--- loncom/Attic/lchtmldir	2007/08/22 19:53:22	1.20
+++ loncom/Attic/lchtmldir	2010/10/12 09:53:45	1.22
@@ -2,7 +2,7 @@
 
 # The Learning Online Network with CAPA
 #
-# $Id: lchtmldir,v 1.20 2007/08/22 19:53:22 albertel Exp $
+# $Id: lchtmldir,v 1.22 2010/10/12 09:53:45 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,7 +78,7 @@ use LONCAPA qw(:match);
 $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/sbin:/home/httpd/perl';
 delete @ENV{qw{IFS CDPATH ENV BASH_ENV}};
 
-my $DEBUG = 1;                         # .nonzero -> Debug printing enabled.
+my $DEBUG = 0;                         # .nonzero -> Debug printing enabled.
 my $path_sep = "/";		# Unix like operating systems.
 
 
@@ -88,8 +88,8 @@ if ($DEBUG) {
     print("Checking uid...\n");
 }
 my $wwwid = getpwnam('www');
-&DisableRoot;
-if($wwwid != $>) {
+
+if($wwwid != $<) {
     if ($DEBUG) {
 	print("User ID incorrect.  This program must be run as user 'www'\n");
     }
@@ -129,7 +129,7 @@ if( $authentication ne "unix:"     &&
     $authentication ne "localauth:") {
     if($DEBUG) {
 	print("Invalid authentication parameter: ".$authentication."\n");
-	print("Should be one of: unix, internal, krb4, localauth\n");
+	print("Should be one of-- unix: internal: krb4: krb5: localauth:\n");
     }
     exit 3;
 }