version 1.1, 2011/10/20 18:54:41
|
version 1.2, 2011/10/24 17:46:29
|
Line 102 foreach my $home_directory (</home/*>) {
|
Line 102 foreach my $home_directory (</home/*>) {
|
} |
} |
} else { |
} else { |
print "*** WARNING: $author has no domain. The author may not have published.\n"; |
print "*** WARNING: $author has no domain. The author may not have published.\n"; |
|
print "Enter 1: do nothing, continue\n"; |
|
print "Enter 2: stop\n"; |
|
print "or enter domain for user to be placed into\n"; |
|
print "Your input: "; |
|
my $choice=<STDIN>; |
|
if ($choice==2) { print "Stopped.\n"; exit; } |
|
if ($choice!=1) { |
|
chomp($choice); |
|
if ($choice) { |
|
my $dompath="/home/httpd/html/priv/$choice"; |
|
my $newpath="/home/httpd/html/priv/$choice/$author"; |
|
unless (-e $dompath) { |
|
print "*** WARNING: $dompath does not yet exist.\n"; |
|
} |
|
if ($commit) { |
|
print "Making author $author in domain $choice\n"; |
|
unless (-e $dompath) { |
|
print "Making $dompath\n"; |
|
mkdir($dompath); |
|
chown($uid,$gid,$dompath); |
|
} |
|
print "Making $newpath\n"; |
|
mkdir($newpath); |
|
chown($uid,$gid,$newpath); |
|
} else { |
|
print "Would make author $author in domain $choice\n"; |
|
unless (-e $dompath) { |
|
print "Would make $dompath\n"; |
|
} |
|
print "Would make $newpath\n"; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
print "\nDone.\n"; |
print "\nDone.\n"; |