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

B.6 Adduser/chlogin 289
}
print " -u uid uid to chown home to after moving\n";
print " -g {gid|group} new gid for home\n";
print " -v be verbose\n";
print " -n make NOT. This implies -v -v.\n";
print " -m don't run Make in $DEF_YP_DIR\n";
print " -h this help\n";
print " old_login login to rename\n";
print " new_login new login name\n";
print "Either -L or -Y must be given!\n";
###########################################################################
# Parse and validate options
###########################################################################
sub parseoptions
{
print "Parsing options\n" if $opt_verbose>0;
local(@ARGV) = @_;
getopts('YLnvu:g:h');
$opt_not = $opt_n if $opt_n ne "";
$opt_verbose = $opt_v if $opt_v ne "";
$opt_make = $opt_m if $opt_m ne "";
if($opt_h){
&clearlock($DEF_LOCK);
&usage;
exit(0);
}
if($#ARGV!=1){
print "$0: login missing.\n";
&usage;
exit(1);
}else{
$old_login=$ARGV[0];
$new_login=$ARGV[1];
}
### Operate either in YP or Local mode
if($opt_L eq "" and $opt_Y eq ""){
print "Either -L or -Y must be given!\n";
usage();
exit(1);
}
### Be verbose if not actually doing anything
if($opt_not){
$opt_verbose+=2;
}
### Is old login there?
if(!(@x=getpwnam($old_login))){
die "$0: User \"$old_login\" does not exist.\n";
}
### Is new login there?
if(@x=getpwnam($new_login)){
die "$0: User \"$new_login\" does already exist.\n";
}
### Determine old home to rename
$old_home=(getpwnam($old_login))[7];
if(! -d $old_home){
die "$0: Home \"$old_home\" does not exist.\n";
}
### Determine new home to rename
$new_home=(getpwnam($new_login))[7];
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003