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

B.6 Adduser/chlogin 290
}
if(-d $new_home){
die "$0: Home \"$new_home\" does already exist.\n";
}
($new_home=$old_home)=~s|/[^/]*$|/$new_login|;
if(-d $new_home){
die "$0: Home \"$new_home\" does already exist.\n";
}
### Check for clash w/ new uid
if($opt_u ne ""){
if(@x=getpwuid($opt_u)){
die "$0: UID $opt_u already given to login $x[0].\n";
}
}
### Does new gid exist?
if($opt_g ne ""){
if($opt_g=~/\d+/){
# gid is numeric
if(!getgrgid($opt_g)){
die "$0: unknown gid '$opt_g'\n";
}else{
$opt_gid = (getgrgid($opt_g))[2];
$opt_group = (getgrgid($opt_g))[0];
}
}else{
# gid is group name
if((getgrnam($opt_g)) eq ""){
die "$0: unknown group '$opt_g'\n";
}else{
$opt_gid = (getgrnam($opt_g))[2];
$opt_group = (getgrnam($opt_g))[0];
}
}
}
###########################################################################
# Change login (passwd, home)
###########################################################################
sub do_chlogin
{
if($opt_L){
# Local files
changefile("$DEF_ETC_DIR/passwd",$old_login,
sub {
$x[0]=$new_login;
$x[2]=$opt_u if $opt_u ne "";
$x[3]=$opt_gid if $opt_g ne "";
$x[5]=$new_home;
});
changefile("$DEF_ETC_DIR/shadow",$old_login,
sub {
$x[0]=$new_login;
});
}else{
# YP files
changefile("$DEF_YP_DIR/passwd",$old_login,
sub {
$x[0]=$new_login;
$x[2]=$opt_u if $opt_u ne "";
$x[3]=$opt_gid if $opt_g ne "";
$x[5]=$new_home;
});
updateNIS(); # ggf. ypmake
}
print "New login ($new_login)"
if $opt_verbose;
print ", uid ($opt_u)"
if $opt_verbose and $opt_u;
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003