version 1.2, 2002/03/04 05:06:00
|
version 1.5, 2002/06/10 02:01:16
|
Line 101 There are no flags to this script.
|
Line 101 There are no flags to this script.
|
|
|
usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] |
usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] |
|
|
The password is accepted through standard input. |
The password is accepted through standard input |
|
and should only consist of printable ASCII |
|
characters and be a string of length greater than 5 characters. |
|
|
The first argument |
The first argument |
specifies the user name of the domain coordinator and |
specifies the user name of the domain coordinator and |
should consist of only alphanumeric characters. |
should consist of only alphanumeric characters. |
|
|
The second argument specifies the password for the domain |
The second argument specifies the domain of the computer |
coordinator and should only consist of printable ASCII |
coordinator and should consist of only alphanumeric characters. |
characters and be a string of length greater than 5 characters. |
|
|
|
=cut |
=cut |
|
|
Line 129 unless ($domain=~/^\w+$/ and $domain!~/\
|
Line 130 unless ($domain=~/^\w+$/ and $domain!~/\
|
"\n"; |
"\n"; |
} |
} |
|
|
|
print "Password: "; $|=1; |
my $passwd=<>; # read in password from standard input |
my $passwd=<>; # read in password from standard input |
chomp($passwd); |
chomp($passwd); |
|
|