--- loncom/lond	2003/01/15 04:43:14	1.106
+++ loncom/lond	2003/02/03 18:03:52	1.108
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.106 2003/01/15 04:43:14 foxr Exp $
+# $Id: lond,v 1.108 2003/02/03 18:03:52 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,29 +31,20 @@
 # 10/7,10/8,10/9,10/11,10/13,10/15,11/4,11/16,
 # 12/7,12/15,01/06,01/11,01/12,01/14,2/8,
 # 03/07,05/31 Gerd Kortemeyer
-# 06/26 Scott Harrison
 # 06/29,06/30,07/14,07/15,07/17,07/20,07/25,09/18 Gerd Kortemeyer
-# 12/05 Scott Harrison
 # 12/05,12/13,12/29 Gerd Kortemeyer
 # YEAR=2001
-# Jan 01 Scott Harrison
 # 02/12 Gerd Kortemeyer
-# 03/15 Scott Harrison
 # 03/24 Gerd Kortemeyer
-# 04/02 Scott Harrison
 # 05/11,05/28,08/30 Gerd Kortemeyer
-# 9/30,10/22,11/13,11/15,11/16 Scott Harrison
 # 11/26,11/27 Gerd Kortemeyer
-# 12/20 Scott Harrison
 # 12/22 Gerd Kortemeyer
 # YEAR=2002
 # 01/20/02,02/05 Gerd Kortemeyer
 # 02/05 Guy Albertelli
-# 02/07 Scott Harrison
 # 02/12 Gerd Kortemeyer
 # 02/19 Matthew Hall
 # 02/25 Gerd Kortemeyer
-# 05/11 Scott Harrison
 # 01/xx/2003 Ron Fox.. Remove preforking.  This makes the general daemon
 #      logic simpler (and there were problems maintaining the preforked
 #      population).  Since the time averaged connection rate is close to zero
@@ -1222,7 +1213,7 @@ sub make_new_child {
                            print $client "error:$!\n";
                        }
 # ----------------------------------------------------------------- dumpcurrent
-                   } elsif ($userinput =~ /^dumpcurrent/) {
+                   } elsif ($userinput =~ /^currentdump/) {
                        my ($cmd,$udom,$uname,$namespace)
                           =split(/:/,$userinput);
                        $namespace=~s/\//\_/g;
@@ -1244,9 +1235,8 @@ sub make_new_child {
                               next if (exists($data{$symb}) && 
                                        exists($data{$symb}->{$param}) &&
                                        $data{$symb}->{'v.'.$param} > $v);
-                              #&logthis("v = ".$v." p = ".$param." s = ".$symb);
                               $data{$symb}->{$param}=$value;
-                              $data{$symb}->{'v.'.$param}=$value;
+                              $data{$symb}->{'v.'.$param}=$v;
                            }
                            if (untie(%hash)) {
                              while (my ($symb,$param_hash) = each(%data)) {