Hi,

>     I check all the clients attributes and start sending the Digest
> attributes.. now the problem is I can't get those attributes in my perl code
> by accessing using RAD_REQUEST or RAD_CHECK, so that I can calculate my ha1,
> ha2 for md5 encryption.

looking at your log...

>         User-Name = "[EMAIL PROTECTED]"
>         Digest-Attributes = "\n\006john"
>         Digest-Attributes = "\001\017192.168.1.227"
>         Digest-Attributes = "\002*48281f56caacb6aa62fc3bb31ec98146efeaae15"
>         Digest-Attributes = "\004\023sip:192.168.1.227"
>         Digest-Attributes = "\003\nREGISTER"
>         Digest-Response = "9ae01536efc46358e61f2fe362552af4"

attributes are there..... thats fine.

> perl_pool: item 0x8d08568 asigned new request. Handled so far: 1
> found interpetator at address 0x8d08568
> rlm_perl: ###############################################################
> rlm_perl: RAD_REQUEST: Digest-Response = 9ae01536efc46358e61f2fe362552af4
> rlm_perl: RAD_REQUEST: Service-Type = SIP
> rlm_perl: RAD_REQUEST: Cisco-AVPair = call-id=
> [EMAIL PROTECTED]
> rlm_perl: RAD_REQUEST: User-Name = [EMAIL PROTECTED]
> rlm_perl: RAD_REQUEST: Sip-URI-User = john
> rlm_perl: RAD_REQUEST: NAS-IP-Address = 127.0.0.1
> rlm_perl: RAD_REQUEST: NAS-Port = 5060
> rlm_perl: RAD_REQUEST: Digest-Attributes = ARRAY(0x8df353c)
^^^^^^^^^^^^

attributes are here - there are muliple values for Digest-Attributes,
so you need to handle that as an array (which its clearly telling you)


> rlm_perl: Added pair Digest-Attributes = \n\006john
> rlm_perl: Added pair Digest-Attributes = \001\017192.168.1.227
> rlm_perl: Added pair Digest-Attributes =
> \002*48281f56caacb6aa62fc3bb31ec98146efeaae15
> rlm_perl: Added pair Digest-Attributes = \004\023sip:192.168.1.227
> rlm_perl: Added pair Digest-Attributes = \003\nREGISTER

look. it knows about them

alan
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html

Reply via email to