(RADIATOR) add attr

[Tech]

Hi ,
I am trying to add attributes, if a request is received from either of  
2  nas. as all other access requests come from a lot of other nas that 
do not require  the  added attributes. I am trying to do this by way of  
both a PreAuthHook and  ReplyHook  with no luck

I am also sending the hook file,

 

Any help thanks

# -*- mode: Perl -*-
#
sub
{
my $p = ${$_[0]};

my $code = $p->code;
#my $nas = $p->get_attr('NAS-IP-Address');
my $nas = $p->get_attr('NASIDENTIFIER');

if ($code eq 'Access-Request' && $nas eq ('2.2.9.2','2.1.1.1'))
{
$p->add_attr('Ascend-Data-Filter',"ip in drop dstip x.x.x.0/24 tcp 
dstport',23");
$p->add_attr('Ascend-Data-Filter',"ip in drop dstip x.x.x.0/24 tcp 
dstport',23");
$p->add_attr('Ascend-Data-Filter',"ip in drop dstip x.x.x.0/24 tcp 
dstport',79");
$p->add_attr('Ascend-Data-Filter',"ip in drop dstip x.x.x.0/24 tcp 
dstport',161");
$p->add_attr('Ascend-Data-Filter',"ip in forward");
$p->add_attr('Ascend-Data-Filter',"ip out forward);
}
   return;
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.open.com.au/pipermail/radiator/attachments/20040914/09d8c8aa/attachment.html>