version 1.7, 2002/10/12 16:23:21
|
version 1.8, 2002/10/12 16:42:51
|
Line 113 characters and be a string of length gre
|
Line 113 characters and be a string of length gre
|
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. |
|
It is recommended that the USERNAME should be institution-specific |
|
as opposed to something like "Sammy" or "Jo". |
|
For example, "dcmsu" or "dcumich" would be good domain coordinator |
|
USERNAMEs for places like Mich State Univ, etc. |
|
|
The second argument specifies the domain of the computer |
The second argument specifies the domain of the computer |
coordinator and should consist of only alphanumeric characters. |
coordinator and should consist of only alphanumeric characters. |
Line 122 coordinator and should consist of only a
|
Line 126 coordinator and should consist of only a
|
# ----------------------------------------------- So, are we invoked correctly? |
# ----------------------------------------------- So, are we invoked correctly? |
# Two arguments or abort |
# Two arguments or abort |
if (@ARGV!=2) { |
if (@ARGV!=2) { |
die 'usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] '."\n". |
die('usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] '."\n". |
'(and password through standard input)'."\n"; |
'(and password through standard input)'."\n". |
|
'It is recommended that the USERNAME should be institution-specific '. |
|
"\n".'as opposed to something like "Sammy" or "Jo".'."\n". |
|
'For example, "dcmsu" or "dcumich" would be good domain coordinator'. |
|
"\n".'USERNAMEs for places like Mich State Univ, etc.'."\n"); |
} |
} |
my ($username,$domain)=(@ARGV); shift @ARGV; shift @ARGV; |
my ($username,$domain)=(@ARGV); shift @ARGV; shift @ARGV; |
unless ($username=~/^\w+$/ and $username!~/\_/) { |
unless ($username=~/^\w+$/ and $username!~/\_/) { |