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

B.1 Adduser/adduser 281
}
print " $cmd\n" if $opt_verbose>1;
system("$cmd") if !$opt_not;
$cmd="chgrp -hR $opt_group $opt_home";
print " $cmd\n" if $opt_verbose>1;
system("$cmd") if !$opt_not;
$cmd="chmod 701 $opt_home";
print " $cmd\n" if $opt_verbose>1;
system("$cmd") if !$opt_not;
###########################################################################
# Copy quotas from user $DEF_QUOTAUSER (if defined)
###########################################################################
sub setquotas
{
print "Editing quotas\n" if $opt_verbose>0;
}
if($DEF_QUOTAUSER ne ""){
$cmd="edquota -p $DEF_QUOTAUSER $opt_login";
print " $cmd\n" if $opt_verbose>1;
system("$cmd") if !$opt_not;
}
###########################################################################
# Execute scripts for extra services (in @opt_extras)
# exact call: "adduser.$extra"
###########################################################################
sub enableextras
{
print "Enabling extra services\n" if $opt_verbose>0;
}
foreach $extra ( @opt_extras ){
local($file);
}
$file="$0.$extra";
if(-f $file){
local($v);
local($opt);
$options="";
for($i=0;$i1;
system("$cmd") if !$opt_not;
}else{
printf STDERR "$0 WARNING: Can't add extra '$extra' ($file missing)\n";
}
###########################################################################
###########################################################################
##
## MAIN
##
###########################################################################
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003