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

[foxr]

foxr		Mon Mar  8 16:54:05 2004 EDT

  Modified files:              (Branch: Refactoring)
    /loncom	lond 
  Log:
  Fix 2 minor errors;
  - inc error messages led people to believe the errors were in put.
  - in the inc handler, I did not properly reconstruct $userinput for Failure.
  
  
  
Index: loncom/lond
diff -u loncom/lond:1.178.2.6 loncom/lond:1.178.2.7
--- loncom/lond:1.178.2.6	Tue Mar  2 06:33:03 2004
+++ loncom/lond	Mon Mar  8 16:54:05 2004
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.178.2.6 2004/03/02 11:33:03 foxr Exp $
+# $Id: lond,v 1.178.2.7 2004/03/08 21:54:05 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -53,7 +53,7 @@
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.178.2.6 $'; #' stupid emacs
+my $VERSION='$Revision: 1.178.2.7 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -1360,7 +1360,7 @@
     my $cmd         = shift;
     my $tail        = shift;
     my $client      = shift;
-    my $userinput   = shift;
+    my $userinput   = "$cmd:$tail";
 
     my ($udom,$uname,$namespace,$what) =split(/:/,$tail);
     $namespace=~s/\//\_/g;
@@ -1391,11 +1391,11 @@
 		Reply( $client, "ok\n", $userinput);
 	    } else {
 		Failure($client, "error: ".($!+0)." untie(GDBM) failed ".
-			"while attempting put\n", $userinput);
+			"while attempting inc\n", $userinput);
 	    }
 	} else {
 	    Failure($client, "error: ".($!+0)." tie(GDBM) Failed ".
-		    "while attempting put\n", $userinput);
+		    "while attempting inc\n", $userinput);
 	}
     } else {
 	Failure($client, "refused\n", $userinput);