#
# Open and read in the password file
local($name, $password, $uid, $gid, $longname, $home,
$shell);
open(PW, $PASS) || die "Unable to open password file
$PASS\n";
while ($line = <PW>) {
chomp($line);
$shell="";
# split
the password entry, and correct if they
# don't
have a longname
($name,$password,$uid,$gid,$longname,$home,$shell)=split(":",
$line);
if ($shell
eq "") {
print "Found it $name\n";
$home=$longname;
$shell=$home;
}
$users{$name}
= 1;
| root:x:0:0:The Super User!!:/root:/bin/bash
randy:lxuttjX.cxq3o:999:1001:Randy Appleton,149D West Science,227-1593:/home/randy:/bin/bash tproehl:x:9000:9000:Todd Proehl,********,********,555-5555:/home/tproehl:/bin/bash ngilman:jRI6NHWwY2dhk:2006:2006:Nate Gilman:/home/ngilman:/bin/bash |