(RADIATOR) PostAuthHook

Nathan 'Franko' Franklin radiator_tsn at tsn.cc
Tue Jun 3 21:51:30 CDT 2003

Hello List,

This is a bit off topic, but i was wandering if you guys could help me

I have a PostAuthHook and inside the postauthhook i want to call some subs in that hook file. I am not really a perl programmer, but i try, anyway it isnt working

Could someone tell me why

PostAuthHook FILE

sub {
 &main::log($main::LOG_DEBUG,"Start Hook Processing");
 # Used for National Ports, 
 # Rejecting user if they are not a national customer,
 # IE They have local ports at thier location
 # Used to make sure that customers arnt dialing into 
 # DOV access unless they have a DOV account 
 &main::log($main::LOG_DEBUG,"Finish Hook Processing");
sub rejectLocationPortNationDialing {
 my $request = ${$_[0]};
 my $reply = ${$_[1]};
 my $result = ${$_[2]};
sub denyNonDOVAccessingDOV {
 my $request = ${$_[0]};
 my $reply = ${$_[1]};
 my $result = ${$_[2]};

end of file

there is extra code inside the two subs i am calling but i wont bother pasting that because it isnt even getting to that

here is the error i am getting

Wed Jun  4 12:40:28 2003: ERR: Compilation error in PostAuthHook: syntax error a
t (eval 45) line 16, near "}

sub rejectLocationPortNationDialing "

Can't use global @_ in "my" at (eval 45) line 17, near "{$_"

any help would be greatly appreciated

Kind Regards

Nathan Franklin
TSN Internet
nathan at tsn.cc
MSN: nathanfranko at hotmail.com

'Always, always, always, live your own life. If not, you only live off others and are mass-produced. Individualism is something no one can take away.' 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.open.com.au/pipermail/radiator/attachments/20030604/b35311da/attachment.html>

More information about the radiator mailing list