[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.1 and 1.4

version 1.1, 2002/03/02 03:49:18 version 1.4, 2002/06/10 01:50:16
Line 6 Line 6
   
 make_domain_coordinator.pl - Make a domain coordinator on a LON-CAPA system  make_domain_coordinator.pl - Make a domain coordinator on a LON-CAPA system
   
   =cut
   
   # The LearningOnline Network
   # make_domain_coordinator.pl - Make a domain coordinator on a system
   #
   # $Id$
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   # YEAR=2002
   # 3/1,3/3,3/4 Scott Harrison
   #
   ###
   
   =pod
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
 Automates the steps for domain coordinator creation.  This  Automates the steps for domain coordinator creation.  This
Line 44  Set roles.hist and roles.db Line 78  Set roles.hist and roles.db
   
 =cut  =cut
   
 # The LearningOnline Network  
 # make_domain_coordinator.pl - Make a domain coordinator on a system  
 #  
 # $Id$  
 #  
 # Copyright Michigan State University Board of Trustees  
 #  
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  
 #  
 # LON-CAPA is free software; you can redistribute it and/or modify  
 # it under the terms of the GNU General Public License as published by  
 # the Free Software Foundation; either version 2 of the License, or  
 # (at your option) any later version.  
 #  
 # LON-CAPA is distributed in the hope that it will be useful,  
 # but WITHOUT ANY WARRANTY; without even the implied warranty of  
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  
 # GNU General Public License for more details.  
 #  
 # You should have received a copy of the GNU General Public License  
 # along with LON-CAPA; if not, write to the Free Software  
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  
 #  
 # /home/httpd/html/adm/gpl.txt  
 #  
 # http://www.lon-capa.org/  
 #  
 # YEAR=2002  
 # 3/1 Scott Harrison  
   
 # NOTE: I am interspersing the manual procedure with the automation.  # NOTE: I am interspersing the manual procedure with the automation.
 # To see the manual procedure, do perldoc ./make_domain_coordinator.pl  # To see the manual procedure, do perldoc ./make_domain_coordinator.pl
   
Line 97  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 125  unless ($domain=~/^\w+$/ and $domain!~/\ Line 130  unless ($domain=~/^\w+$/ and $domain!~/\
  "\n";   "\n";
 }  }
   
   print "Password: "; $|=0;
 my $passwd=<>; # read in password from standard input  my $passwd=<>; # read in password from standard input
 chomp($passwd);  chomp($passwd);
   
Line 317  sub propath { Line 323  sub propath {
   
 =pod  =pod
   
 AUTHOR  =head1 AUTHOR
   
 Scott Harrison, harris41@msu.edu  Scott Harrison, harris41@msu.edu
   
Removed from v.1.1  
changed lines
  Added in v.1.4

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