--- loncom/build/make_domain_coordinator.pl 2002/10/12 16:23:21 1.7 +++ loncom/build/make_domain_coordinator.pl 2002/10/12 16:42:51 1.8 @@ -11,7 +11,7 @@ make_domain_coordinator.pl - Make a doma # The LearningOnline Network # make_domain_coordinator.pl - Make a domain coordinator on a system # -# $Id: make_domain_coordinator.pl,v 1.7 2002/10/12 16:23:21 harris41 Exp $ +# $Id: make_domain_coordinator.pl,v 1.8 2002/10/12 16:42:51 harris41 Exp $ # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # @@ -113,6 +113,10 @@ characters and be a string of length gre The first argument specifies the user name of the domain coordinator and 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 coordinator and should consist of only alphanumeric characters. @@ -122,8 +126,12 @@ coordinator and should consist of only a # ----------------------------------------------- So, are we invoked correctly? # Two arguments or abort if (@ARGV!=2) { - die 'usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] '."\n". - '(and password through standard input)'."\n"; + die('usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] '."\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; unless ($username=~/^\w+$/ and $username!~/\_/) {