--- loncom/lond	2002/03/28 04:27:42	1.76
+++ loncom/lond	2002/04/27 13:10:47	1.77
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.76 2002/03/28 04:27:42 foxr Exp $
+# $Id: lond,v 1.77 2002/04/27 13:10:47 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,6 +73,8 @@ use Authen::Krb4;
 use lib '/home/httpd/lib/perl/';
 use localauth;
 
+my $DEBUG = 0;		       # Non zero to enable debug log entries.
+
 my $status='';
 my $lastlog='';
 
@@ -235,6 +237,13 @@ sub logthis {
     print $fh "$local ($$): $message\n";
 }
 
+# ------------------------- Conditional log if $DEBUG true.
+sub Debug {
+    my $message = shift;
+    if($DEBUG) {
+	&logthis($message);
+    }
+}
 # ------------------------------------------------------------------ Log status
 
 sub logstatus {
@@ -737,14 +746,19 @@ sub make_new_child {
 		     }
 # -------------------------------------------------------------------- makeuser
                    } elsif ($userinput =~ /^makeuser/) {
+		     Debug("Make user received");
     	             my $oldumask=umask(0077);
 		     if ($wasenc==1) {
                        my 
                        ($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);
+		       &Debug("cmd =".$cmd." $udom =".$udom.
+				    " uname=".$uname);
                        chomp($npass);
                        $npass=&unescape($npass);
                        my $proname=propath($udom,$uname);
                        my $passfilename="$proname/passwd";
+		       &Debug("Password file created will be:".
+				    $passfilename);
                        if (-e $passfilename) {
 			   print $client "already_exists\n";
                        } elsif ($udom ne $perlvar{'lonDefDomain'}) {
@@ -773,7 +787,8 @@ sub make_new_child {
                                $salt=substr($salt,6,2);
 			       my $ncpass=crypt($npass,$salt);
                                { 
-                                 my $pf = IO::File->new(">$passfilename");
+				 &Debug("Creating internal auth");
+				 my $pf = IO::File->new(">$passfilename");
  	  		         print $pf "internal:$ncpass\n"; 
                                }
                                print $client "ok\n";
@@ -788,6 +803,8 @@ sub make_new_child {
 				 my $execpath="$perlvar{'lonDaemons'}/".
 				              "lcuseradd";
 				 {
+				     &Debug("Executing external: ".
+						  $execpath);
 				     my $se = IO::File->new("|$execpath");
 				     print $se "$uname\n";
 				     print $se "$npass\n";
@@ -816,10 +833,13 @@ sub make_new_child {
 		     umask($oldumask);
 # -------------------------------------------------------------- changeuserauth
                    } elsif ($userinput =~ /^changeuserauth/) {
-		     if ($wasenc==1) {
+		       &Debug("Changing authorization");
+		      if ($wasenc==1) {
                        my 
                        ($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput);
                        chomp($npass);
+		       &Debug("cmd = ".$cmd." domain= ".$udom.
+			      "uname =".$uname." umode= ".$umode);
                        $npass=&unescape($npass);
                        my $proname=propath($udom,$uname);
                        my $passfilename="$proname/passwd";
@@ -1028,9 +1048,13 @@ sub make_new_child {
                       }
 # -------------------------------------------------------------------- rolesput
                    } elsif ($userinput =~ /^rolesput/) {
+		       &Debug("rolesput");
 		    if ($wasenc==1) {
                        my ($cmd,$exedom,$exeuser,$udom,$uname,$what)
                           =split(/:/,$userinput);
+		       &Debug("cmd = ".$cmd." exedom= ".$exedom.
+				    "user = ".$exeuser." udom=".$udom.
+				    "what = ".$what);
                        my $namespace='roles';
                        chomp($what);
                        my $proname=propath($udom,$uname);