--- loncom/build/make_domain_coordinator.pl	2002/10/12 16:23:21	1.7
+++ loncom/build/make_domain_coordinator.pl	2006/08/11 20:09:02	1.10
@@ -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.10 2006/08/11 20:09:02 albertel Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -33,10 +33,6 @@ make_domain_coordinator.pl - Make a doma
 #
 # http://www.lon-capa.org/
 #
-# YEAR=2002
-# 3/1,3/3,3/4 Scott Harrison
-# 10/12 Scott Harrison
-#
 ###
 
 =pod
@@ -93,10 +89,8 @@ Set roles.hist and roles.db
 
 # ---------------------------------------------------- Configure general values
 
-my %perlvar; # Holds network-wide and machine-specific configuration values.
-# We only need one configuration value however, lonUsersDir.  Rather than
-# read this out of loncapa.conf, I am just going to hard-code this for now.
-$perlvar{'lonUsersDir'}='/home/httpd/lonUsers';
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
 
 =pod
 
@@ -113,6 +107,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 +120,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!~/\_/) {
@@ -173,7 +175,7 @@ if (-d "/home/$username") {
     die ('**** ERROR **** '.$username.' is already a linux operating system '.
 	 'user.'."\n".$caveat);
 }
-my $udpath=propath($domain,$username);
+my $udpath=&propath($domain,$username);
 if (-d $udpath) {
     die ('**** ERROR **** '.$username.' is already defined as a LON-CAPA '.
 	 'user.'."\n".$caveat);
@@ -317,18 +319,19 @@ close(OUT);
 =cut
 
 use GDBM_File; # A simplistic key-value pairing database.
-my %hash;
-
-tie(%hash,'GDBM_File',"$udpath/roles.db",
-    &GDBM_WRCREAT,0640); # Interface with GDBM database thru a hash variable.
 
-$hash{'/'.$domain.'/_dc'}='dc'; # Set the domain coordinator role.
+my $rolesref=&LONCAPA::locking_hash_tie("$udpath/roles.db",&GDBM_WRCREAT());
+if (!$rolesref) {
+    die('unable to tie roles db: '."$udpath/roles.db");
+}
+$rolesref->{'/'.$domain.'/_dc'}='dc'; # Set the domain coordinator role.
 open(OUT, ">$udpath/roles.hist"); # roles.hist is the synchronous plain text.
-map {
-    print(OUT $_.' : '.$hash{$_}."\n");
-} keys %hash;
+foreach my $key (keys(%{$rolesref})) {
+    print(OUT $key.' : '.$rolesref->{$key}."\n");
+}
 close(OUT);
-untie(%hash); # Finish interfacing with GDBM database.
+&LONCAPA::locking_hash_untie($rolesref);
+
 
 `chown www:www $udpath/roles.hist`; # Must be writeable by httpd process.
 `chown www:www $udpath/roles.db`; # Must be writeable by httpd process.
@@ -348,24 +351,10 @@ my $hostname=`hostname`; chomp($hostname
 print("http://$hostname/adm/createuser will allow you to further define".
       " this user.\n"); # Output a suggested URL.
 
-# ================================================================= SUBROUTINES
-# Subroutine propath: take in domain and username, and generate filesystem path
-sub propath {
-    my ($udom,$uname)=@_; # The lonDefDomain, and the domain coord. username.
-    $udom =~ s/\W//g; # Taint removal.
-    $uname =~ s/\W//g; # Taint removal.
-    my $subdir = $uname.'__';
-    $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; # The path must have three subdirs.
-    my $proname = "$perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; # Total path.
-    return $proname; # Return the total user directory filesystem path.
-}
-
 =pod
 
 =head1 AUTHOR
 
 Written to help the LON-CAPA project.
 
-Scott Harrison, sharrison@users.sourceforge.net
-
 =cut