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

B.1 Adduser/adduser 277
}
print " -h this help\n";
print " login login to create\n";
###########################################################################
# Parse options and check if valid
###########################################################################
sub parseoptions
{
print "Parsing options\n" if $opt_verbose>0;
local(@ARGV) = @_;
getopts('u:g:o:nvVms:c:p:P:h');
$opt_uid = $opt_u if $opt_u ne "";
$gid = $opt_g if $opt_g ne "";
$extra = $opt_o if $opt_o ne "";
$opt_not = $opt_n if $opt_n ne "";
$opt_verbose = $opt_v if $opt_v ne "";
$opt_verbose++ if $opt_V ne "";
$opt_make = $opt_m if $opt_m ne "";
$opt_shell = $opt_s if $opt_s ne "";
$opt_comment = $opt_c if $opt_c ne "";
$opt_pwd = $opt_p if $opt_p ne "";
$opt_pwd = $opt_P if $opt_P ne "";
if($opt_h){
&clearlock($DEF_LOCK);
&usage;
exit(0);
}
if($#ARGV0){
print "$0: too many arguments.\n";
&clearlock($DEF_LOCK);
&usage;
exit(1);
}else{
$opt_login=$ARGV[0];
}
########################################################################
print "Checking options\n" if $opt_verbose>0;
### Be verbose if not actually doing anything
if($opt_not){
$opt_verbose+=2;
}
### login ok?
if(getpwnam($opt_login)){
&clearlock($DEF_LOCK);
die "$0: User \"$opt_login\" already exists.\n";
}
### default-password to use
$opt_pwd=$opt_login # take login as initial password
if $opt_pwd eq "";
if ($opt_P) {
$opt_cpwd = $opt_pwd; # Passwort ist bereits verschluesselt
} else {
$opt_cpwd=encrypt($opt_pwd); # Passwort verschluesseln
}
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003