[LON-CAPA-cvs] cvs: loncom(Refactoring) / lond

[foxr]

foxr		Thu Apr 15 07:26:34 2004 EDT

  Modified files:              (Branch: Refactoring)
    /loncom	lond 
  Log:
  - Fix mis-spelling of GetProfileEntryEncrpyted.
  - Fix error - if lcuseradd failed, the make user function returned ok
    anyway... very mis-leading.
  
  
Index: loncom/lond
diff -u loncom/lond:1.178.2.15 loncom/lond:1.178.2.16
--- loncom/lond:1.178.2.15	Tue Apr 13 05:41:57 2004
+++ loncom/lond	Thu Apr 15 07:26:34 2004
@@ -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 $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 @@
 }
 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 @@
     
     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 @@
 }
 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 @@
 	
 	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";