version 1.7, 2002/10/12 16:23:21
|
version 1.9, 2003/02/03 18:03:52
|
Line 34 make_domain_coordinator.pl - Make a doma
|
Line 34 make_domain_coordinator.pl - Make a doma
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2002 |
# YEAR=2002 |
# 3/1,3/3,3/4 Scott Harrison |
|
# 10/12 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 113 characters and be a string of length gre
|
Line 111 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 124 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!~/\_/) { |
Line 366 sub propath {
|
Line 372 sub propath {
|
|
|
Written to help the LON-CAPA project. |
Written to help the LON-CAPA project. |
|
|
Scott Harrison, sharrison@users.sourceforge.net |
|
|
|
=cut |
=cut |