[BACK]Return to make_domain_coordinator.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/make_domain_coordinator.pl between versions 1.7 and 1.8

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!~/\_/) {
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>