kevin J wrote:
> Thor, can you show me your auth.pl?
It's a perl script.
This is the reject subroutine, which can be called anywhere in the script to
reject the user with a message:
sub auth_reject {
my ($message) = @_;
print LOG "Rejecting login: $message\n";
print "Reply-Message := \"$message\"\n";
print LOG "\n";
close LOG;
exit 1;
}
As for accepting the user, the script collects attributes in a hash and then
finishes with:
foreach (keys %attr) { $output .= "$_ := $attr{$_},\n"; }
print $output;
exit 0;
--
Regards,
Thor Spruyt
E: [EMAIL PROTECTED]
W: www.thor-spruyt.com
M: +32 (0)475 67 22 65
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
