Return to make_domain_coordinator.pl CVS log | Up to [LON-CAPA] / loncom / build |
version 1.3, 2002/04/15 19:11:41 | version 1.4, 2002/06/10 01:50:16 |
---|---|
Line 130 unless ($domain=~/^\w+$/ and $domain!~/\ | Line 130 unless ($domain=~/^\w+$/ and $domain!~/\ |
"\n"; | "\n"; |
} | } |
print "Password: "; $|=0; | |
my $passwd=<>; # read in password from standard input | my $passwd=<>; # read in password from standard input |
chomp($passwd); | chomp($passwd); |