#!/usr/bin/perl
infile = $ARGV[0];
open( INFILE, $infile ) || die("Could not open $ARGV[0]\n");
foreach $line (<INFILE) {
($user, $passwd) = split(/ /, $line);
$adduser = "adduser -p $passwd -s /sbin/nologin -h /usr/home -g mail
-G ,,, $user > /dev/null";
system($adduser);
}
close INFILE;
We use a more modified version of this as a frontend to adduser. It
copies across the network and what not. You get the idea though. We
call it newuser and the syntax is simply newuser <file o' users>.
The file looks like:
login passwd
login passwd
--
TO UNSUBSCRIBE FROM THIS MAILING LIST: e-mail the word "unsubscribe" to
[EMAIL PROTECTED] .
Trouble? e-mail to [EMAIL PROTECTED] .
