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

B.1 Adduser/adduser 279
}
}
}
### figure out home directory
# XXX in asssoziatives Array verlagern, wenn default/adduser in
# XXX Modul verwandelt wird - HF
if($opt_group eq "student"){
$opt_home="$DEF_S_BASE/$opt_login";
}elsif($opt_group eq "bedienst"){
$opt_home="$DEF_B_BASE/$opt_login";
}else{
&clearlock($DEF_LOCK);
die "$0: Can't figure out homedirectory for group '$opt_group'.\n";
}
### extra options (-o)
push(@opt_extras,split(/,/,$extra));
###########################################################################
# print options
###########################################################################
sub printoptions
{
print "opt_uid = \"$opt_uid\"\n";
print "opt_group = \"$opt_group\"\n";
print "opt_gid = \"$opt_gid\"\n";
print "opt_verbose = \"$opt_verbose\"\n";
print "opt_not = \"$opt_not\"\n";
print "opt_shell = \"$opt_shell\"\n";
print "opt_make = \"$opt_make\"\n";
print "opt_comment = \"$opt_comment\"\n";
print "opt_login = \"$opt_login\"\n";
print "opt_pwd = \"$opt_pwd\"\n";
print "opt_home = \"$opt_home\"\n";
print "opt_extras = (@opt_extras)\n";
}
###########################################################################
# encrypt given password
###########################################################################
sub encrypt{
local($c,$l1,$l2,$a);
}
if($#_0){
# salt given
$c=crypt($_[0],$_[1]);
}else{
# get random salt
srand(time());
$a="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890";
$l1=(split(//,$a))[rand(length($a))];
$l2=(split(//,$a))[rand(length($a))];
$c=crypt($_[0],"$l1$l2");
}
$c;
###########################################################################
# Add new entry to passwd-file, values are already checked to be ok
###########################################################################
sub newuser
{
print "Add new entry $opt_login to passwd-file\n" if $opt_verbose>0;
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003