--- loncom/lond	2004/04/13 09:41:57	1.178.2.15
+++ loncom/lond	2004/04/15 11:26:34	1.178.2.16
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.178.2.15 2004/04/13 09:41:57 foxr Exp $
+# $Id: lond,v 1.178.2.16 2004/04/15 11:26:34 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,7 +53,7 @@ my $DEBUG = 1;		       # Non zero to ena
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.178.2.15 $'; #' stupid emacs
+my $VERSION='$Revision: 1.178.2.16 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -1138,10 +1138,7 @@ sub FetchUserFileHandler {
 }
 RegisterHandler("fetchuserfile", \&FetchUserFileHandler, 0, 1, 0);
 #
-#   Authenticate access to a user file.  Question?   The token for athentication
-#   is allowed to be sent as cleartext is this really what we want?  This token
-#   represents the user's session id.  Once it is forged does this allow too much 
-#   access??
+#   Authenticate access to a user file. 
 #
 # Parameters:
 #    $cmd      - The command that got us here.
@@ -1617,7 +1614,7 @@ sub GetProfileEntryEncrypted {
     
     return 1;
 }
-RegisterHandler("eget", \&GetProfileEncrypted, 0, 1, 0);
+RegisterHandler("eget", \&GetProfileEntryEncrypted, 0, 1, 0);
 
 #
 #   Deletes a key in a user profile database.
@@ -1848,7 +1845,8 @@ sub DumpWithRegexp {
 }
 RegisterHandler("dump", \&DumpWithRegexp, 0, 1, 0);
 
-#  Store an aitem in any database but the roles database.
+#  Store an aitem in any resource meta data(?) or database with
+#  versioning?
 #
 #  Parameters:
 #    $cmd                - Request command keyword.
@@ -4510,7 +4508,9 @@ sub make_passwd_file {
 	
 	my $useraddok = $?;
 	if($useraddok > 0) {
-	    &logthis("Failed lcuseradd: ".&lcuseraddstrerror($useraddok));
+	    my $lcstring = lcuseraddstrerror($useraddok);
+	    &logthis("Failed lcuseradd: $lcstring");
+	    return "error: lcuseradd failed: $lcstring\n";
 	}
 	my $pf = IO::File->new(">$passfilename");
 	print $pf "unix:\n";