RE: "authentication" sub in perl

30 Sep 2011


      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@deployingradius.com
To: freeradius-users@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