"authentication" sub in perl

[Alex rsm]

my apology. It was a copy/paste typo:

sub authorize {
   print "TEST1\n";
   # For debugging purposes only
#  &log_request_attributes;

   # Here's where your authorization code comes
   # You can call another function from here:
   &test_call;

   return RLM_MODULE_OK;
}

# Function to handle authenticate
sub authenticate {
   print "TEST2\n";
   # For debugging purposes only
#  &log_request_attributes;

   if ($RAD_REQUEST{'User-Name'} =~ /^baduser/i) {
      # Reject user and tell him why
      $RAD_REPLY{'Reply-Message'} = "Denied access by rlm_perl function";
      return RLM_MODULE_REJECT;
   } else {
      # Accept user and set some attribute
      $RAD_REPLY{'h323-credit-amount'} = "100";
      return RLM_MODULE_OK;
   }
}




> Date: Fri, 30 Sep 2011 17:36:32 +0200
> From: aland at deployingradius.com
> To: freeradius-users at lists.freeradius.org
> Subject: Re: "authentication" sub in perl
> 
> Alex rsm wrote:
> > I am trying to call an external perl function within "authentication" sub"
> > 
> > - functions are uncommented in modules/perl file
> >    ...
> >    func_authenticate = authenticate
> >    func_authorize = authorize
> >    ...
> 
>   The default example works.
> 
> > - subs are modified in /raddb/example.pl
> > sub authenticate{
> >    print "TEST1\n";
> > }
> > 
> > sub authenticate {
> >    print "TEST2\n";
> >    /usr/local/etc/raddb/test.pl;
> > }
> > 
> > When freeradius receives a REQUEST, only "authenticate" sub is called
> > and not "authenticate" sub.
> 
>   That makes NO sense at all.
> 
>   You have TWO "authenticate" subroutines, and you expect that Perl will
> magically call the one you want?
> 
>   Computers don't work that way.
> 
> > How can I enable "authenticate" to be called when a REQUEST is arrived?
> 
>   Ask a question that makes sense.
> 
>   Alan DeKok.
> -
> List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freeradius.org/pipermail/freeradius-users/attachments/20110930/fb4c04b1/attachment.html>