(RADIATOR) Changing parameter name

[Ricardo Martinez]

Hugh.
	I made a simple prehook.pl based on the goodies/hooks file

sub
{
        my $p = ${$_[0]};

        my $digestattr;

        if ($digestattr = $p->get_attr('Digest-Attributes'))
        {
                &main::log($main::LOG_DEBUG,"Digest-Attribute =
$digestattr");
        }
        return;
}

When i see the DEBUG in my RADAR i obtain : 

Code:       Access-Request
Identifier: 176
Authentic:  *~<156><197>9<172><186><254><20>t<151><242><231><212>_"
Attributes:
	User-Name = "javier at mydomain.com"
	Digest-Attributes = "<10><8>javier"
	Digest-Attributes = "<1><21>mydomain.com"
	Digest-Attributes = "<2>*4166f0eb0d4835657409ea069796b3df70846ccc"
	Digest-Attributes = "<4><25>sip:mydomain.com"
	Digest-Attributes = "<3><10>REGISTER"
	Digest-Attributes = "<5><6>auth"
	Digest-Attributes = "<9><10>00000001"
	Digest-Attributes = "<8><10>d2ca0362"
	Digest-Response = "22624b52fd28dacadfd6b245a5141da5"
	Service-Type = Sip-Session
	Sip-Uri-User = "5555832351"
	NAS-IP-Address = 127.0.0.1
	NAS-Port = 5060

Fri Oct  8 15:51:27 2004: DEBUG: Digest-Attribute = 
javier
Fri Oct  8 15:51:27 2004: DEBUG: Handling request with Handler 'Request-Type
= Access-Request'
Fri Oct  8 15:51:27 2004: DEBUG:  Deleting session for javier at mydomain.com,
127.0.0.1, 5060
Fri Oct  8 15:51:27 2004: DEBUG: Handling with Radius::AuthSQL
Fri Oct  8 15:51:27 2004: DEBUG: Handling with Radius::AuthSQL: 
Fri Oct  8 15:51:27 2004: DEBUG: Query is: 'select a.gaterik_Cod from
gateway_nub where radiator.use(a.terminal_alias)='javier at mydomain.com' and
a.gate_cod=b.numero='5555832351'': 

Fri Oct  8 15:51:27 2004: DEBUG: Radius::AuthSQL looks for match with
javier at mydomain.com
Fri Oct  8 15:51:27 2004: DEBUG: Radius::AuthSQL ACCEPT: 
Fri Oct  8 15:51:27 2004: DEBUG: Access accepted for javier at mydomain.com
Fri Oct  8 15:51:27 2004: DEBUG: Packet dump: 


As you can see i get a wierd character before the parameter =
Digest-Attribute = javier

How can read the Digest-Attributes = "<10><8>javier" and parse the "<10>" to
check it and chage the Digest-Attribute for Digest-Username ?
I'm not good in perl.. i hope that someone can help me

Thanks in advance

Ricardo.

> -----Mensaje original-----
> De:	Hugh Irvine [SMTP:hugh at open.com.au]
> Enviado el:	Jueves, 07 de Octubre de 2004 01:51 a.m.
> Para:	Ricardo Martinez
> CC:	'radiator at open.com.au'
> Asunto:	Re: (RADIATOR) Changing parameter name
> 
> 
> Hello Ricardo -
> 
> You will need to do this in a PreClientHook which parses the attributes 
> and does what you describe.
> 
> There are some example hooks in the file "goodies/hooks.txt" and 
> someone posted something similar for dealing with cisco-avpairs to the 
> mailing list relatively recently.
> 
> regards
> 
> Hugh
> 
> 
> 
> On 7 Oct 2004, at 00:48, Ricardo Martinez wrote:
> 
> > Hello list.
> > 	I have a acc and auth messages coming to my RADIATOR server.  These
> > messages look like this:
> > Attributes:
> > 	User-Name = "ricardo at sipproxy.mydomain.com"
> > 	Digest-Attributes = "<1><21>sipproxy.mydomain.com"
> > 	Digest-Attributes = "<2>*41646f972e82fcbf472f434aeee4c3f8e9ca608c"
> > 	Digest-Attributes = "<4><25>sip:sipproxy.mydomain.com"
> > 	Digest-Attributes = "<3><10>REGISTER"
> > 	Digest-Attributes = "<5><6>auth"
> > 	Digest-Response = "6b578f793a921c390a708f0feede320f"
> > 	Service-Type = Sip-Session
> > 	Sip-Uri-User = "5555832352"
> > 	NAS-IP-Address = 127.0.0.1
> > 	NAS-Port = 5060
> >
> > Is possible to make some manipulation of this particular message and 
> > turn it
> > into this:?
> >
> > Attributes:
> > 	User-Name = "ricardo at sipproxy.mydomain.com"
> > 	Realm = "<1><21>sipproxy.mydomain.com"
> > 	Call-id = "<2>*41646f972e82fcbf472f434aeee4c3f8e9ca608c"
> > 	Uri = "<4><25>sip:sipproxy.mydomain.com"
> > 	Method = "<3><10>REGISTER"
> > 	Type = "<5><6>auth"
> > 	Nonce = "6b578f793a921c390a708f0feede320f"
> > 	Service-Type = Sip-Session
> > 	Sip-Uri-User = "5555832352"
> > 	NAS-IP-Address = 127.0.0.1
> > 	NAS-Port = 5060
> >
> >
> > I want change the parameters named "Digest-Attributes" in those listed
> > before.
> >
> > Can someone give an example of how i can do this?
> > Thanks in advance.
> > Best Regards
> >
> > Ricardo
> >
> > --
> > Archive at http://www.open.com.au/archives/radiator/
> > Announcements on radiator-announce at open.com.au
> > To unsubscribe, email 'majordomo at open.com.au' with
> > 'unsubscribe radiator' in the body of the message.
> >
> >
> 
> NB: I am travelling this week, so there may be delays in our 
> correspondence.
> 
> -- 
> Radiator: the most portable, flexible and configurable RADIUS server
> anywhere. Available on *NIX, *BSD, Windows 95/98/2000, NT, MacOS X.
> -
> Nets: internetwork inventory and management - graphical, extensible,
> flexible with hardware, software, platform and database independence.
> -
> CATool: Private Certificate Authority for Unix and Unix-like systems.
> 
> --
> Archive at http://www.open.com.au/archives/radiator/
> Announcements on radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with
> 'unsubscribe radiator' in the body of the message.

--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.