(RADIATOR) Pre Handler hook help...

[Toomas Kärner]

Hi,
You can also do it like this:

$p->add_attr( 'Calling-Station-Id',(($p->get_attr( 'RB-NAS-Real-Port') &
0xff0000) >> 16) .\
                ".". ($p->get_attr( 'RB-NAS-Real-Port') & 0xffff)); \
Here is only vpi.vci because i dont need more ...
rgds.
Tomkar

----- Original Message -----
From: "Robert Blayzor" <noc at inoc.net>
To: <radiator at open.com.au>
Sent: Friday, July 12, 2002 10:21 PM
Subject: (RADIATOR) Pre Handler hook help...


> We have an handler which uses the following hook:
>
> <Client 64.246.152.18>
>         Identifier              DSL1
>         Secret                  shhhh
>         DupInterval             2
>         NasType                 ignore
>         PreHandlerHook sub { ${$_[0]}->add_attr('NAS-Port-Type',
> 'SDSL'); my $i_p = ${$_[0]\
> }->get_attr('RB-NAS-Real-Port'); my $i_a = sprintf("%s/%s/%s.%s", map
> oct("0b$_"), unpack("\
> B32", pack("N", $i_p)) =~ /(.{5})(.{3})(.{8})(.*)/);
> ${$_[0]}->add_attr('Calling-Station-Id\
> ', $i_a);}
> </Client>
>
>
> In a nutshell the Hander basically adds a NAS-Port-Type and is to take a
> 32bit integer representation of DSL ports and put them in the
> 'Calling-Station-Id' attribute.
>
> The output should come out to be soething like:  5/0/0/233, etc.
> However everything comes out at 0/0/0.0, like $i_p is null, but it's not
> because the following code (if I reverse things) works fine...
>
>         PreHandlerHook sub { ${$_[0]}->add_attr('NAS-Port-Type',
> 'SDSL'); my $i_p = ${$_[0]\
> }->get_attr('RB-NAS-Real-Port');
> ${$_[0]}->add_attr('Calling-Station-Id', $i_p);}
>
>
> Output the following code right from PERL works fine too:
>
> perl -e 'print sprintf("%s/%s/%s.%s", map(oct("0b$_"), unpack("B32",
> pack("N", 671088873)) =~ /(.{5})(.{3})(.{8})(.*)/)) ."\n";'
> 5/0/0.233
>
>
> Any ideas?  I really need to get this to work.  Thanks!
>
> --
> Robert Blayzor, BOFH
> INOC, LLC
> rblayzor at inoc.net
>
> "Pinky, you've left the lens cap of your mind on again."
>  - The Brain
>
>
> ===
> 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.