XTRadius SourceForge Logo 
Home | Download | Documentation | Support | Development  
Documentation
Userguide
FAQ
MySQL HowTo
Vocabulary
Example Script

Documentation > Example Script


Example Perl Script


Here is a simple perl script which authenticates all users with a username of "pippo".


#! /usr/bin/perl
# Very simple XtRadius Authentication Plugin
# (c) 1998/2001 XtRadius Staff
# 02/12/1998 - Natalino Picone (npicone@xtradius.com)

$DENY_ACCESS = 255;
$GRANT_ACCESS = 0;
$ret = $DENY_ACCESS;
$UNAME = $ARGV[1];

if ($UNAME ~= "pippo") {
$ret = $GRANT_ACCESS;
} else {
$ret = $DENY_ACCESS;
}
exit $ret;


Analysis


Obviously not very useful, but an example of how easy it is to do external authentication with XtRadius. Note that the arguments are taken from the command line ($ARGV[1]), this implies that the script was called with the username as an argument from the radius users file.

Fetching the username from the environment is just as easy, here's the same example in Perl except using the enviroment set by XtRadius instead of explicit command line options.



An Example using the Environment

#! /usr/bin/perl
# Very simple XtRadius Authentication Plugin
# (c) 1998/2001 XtRadius Staff
# 02/12/1998 - Natalino Picone (npicone@xtradius.com)

$DENY_ACCESS = 255;
$GRANT_ACCESS = 0;
$ret = $DENY_ACCESS;
$UNAME = $ENV{'Username'};

if ($UNAME ~= "pippo") {
$ret = $GRANT_ACCESS;
} else {
$ret = $DENY_ACCESS;
}
exit $ret;