#!/usr/bin/perl
# addrad - by Richard Windmann
if ($#ARGV != 3)
{
print "\n";
print "Usage: addppp username password firstname lastname\n";
print "\n";
print "Example: addrad jblow R137usQ Joe Blow\n";
print "\n";
exit;
}
$username = $ARGV[0];
$password = $ARGV[1];
$firstname= $ARGV[2];
$lastname = $ARGV[3];
system("cp /usr/private/etc/raddb/users~
/usr/private/etc/raddb/users.bak");
system("cp /usr/private/etc/raddb/users /usr/backup/users~");
system("cp /usr/private/etc/raddb/users /usr/private/etc/raddb/users~");
open (USERS, ">>/usr/private/etc/raddb/users");
print USERS "# $firstname $lastname\n";
print USERS "$username\tPassword = $password\n";
print USERS "\tPort-Limit = 1,\n";
print USERS "\tService-Type = Framed,\n";
print USERS "\tFramed-Protocol = PPP,\n";
print USERS "\tFramed-IP-Netmask = 255.255.255.0,\n";
print USERS "\tFramed-IP-Address = 255.255.255.254,\n";
print USERS "\tFramed-Routing = None,\n";
print USERS "\tFramed-MTU = 1500,\n";
print USERS "\tFramed-Compression = Van-Jacobson-TCP-IP,\n";
print USERS "\tIdle-Timeout = 3600\n";
print USERS "#\n";
close (USERS);
system("cp /usr/private/etc/raddb/users /usr/backup/users");
system("killall -9 radiusd");