Technische Dokumentation zum Unix-Verbund ... - Dr. Hubert Feyrer

B.2 Adduser/deluser 284
}
print "$0: login missing.\n";
&usage;
exit(1);
}else{
$opt_login=$ARGV[0];
}
### Be verbose if not actually doing anything
if($opt_not){
$opt_verbose+=2;
}
### extra options (-o)
push(@opt_extras,split(/,/,$extra));
### Is login there?
if(!getpwnam($opt_login)){
die "$0: User \"$opt_login\" does not exist.\n";
}
### Determine home to nuke
$opt_home=(getpwnam($opt_login))[7];
###########################################################################
# Remove homedir
###########################################################################
sub nukehome
{
print "Removing homedirectory $opt_login\n" if $opt_verbose>0;
}
$cmd="rm -fr $opt_home";
print " $cmd\n" if $opt_verbose>1;
system($cmd) if !$opt_not;
###########################################################################
# Remove mailfolder
###########################################################################
sub nukemail
{
print "Removing mailfolder $opt_login\n" if $opt_verbose>0;
}
$cmd="rm -f /var/mail/$opt_login";
print " $cmd\n" if $opt_verbose>1;
system($cmd) if !$opt_not;
###########################################################################
# Remove user from passwd-file
###########################################################################
sub updatepasswd
{
print "Deleting user $opt_login from passwd-file\n" if $opt_verbose>0;
}
$cmd="sed '/^$opt_login:/d' $DEF_YP_DIR/passwd >$DEF_YP_DIR/passwd.$$";
print " $cmd\n" if $opt_verbose>1;
system($cmd) if !$opt_not;
$cmd="mv $DEF_YP_DIR/passwd.$$ $DEF_YP_DIR/passwd";
print " $cmd\n" if $opt_verbose>1;
system($cmd) if !$opt_not;
$cmd="chmod go-w $DEF_YP_DIR/passwd";
print " $cmd\n" if $opt_verbose>1;
system($cmd) if !$opt_not;
###########################################################################
# update NIS-map, if -m is not given
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003