--- loncom/lond	2001/12/20 17:43:05	1.61
+++ loncom/lond	2001/12/22 21:46:02	1.62
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.61 2001/12/20 17:43:05 harris41 Exp $
+# $Id: lond,v 1.62 2001/12/22 21:46:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,7 @@
 # 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
 #
 ###
 
@@ -1089,15 +1090,22 @@ sub make_new_child {
                        }
 # ------------------------------------------------------------------------ dump
                    } elsif ($userinput =~ /^dump/) {
-                       my ($cmd,$udom,$uname,$namespace)
+                       my ($cmd,$udom,$uname,$namespace,$regexp)
                           =split(/:/,$userinput);
                        $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
+                       if (defined($regexp)) {
+                          $regexp=&unescape($regexp);
+		       } else {
+                          $regexp='.';
+		       }
                        my $proname=propath($udom,$uname);
                        my $qresult='';
       if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_READER,0640)) {
                            foreach $key (keys %hash) {
-                               $qresult.="$key=$hash{$key}&";
+                               if (eval('$key=~/$regexp/')) {
+                                  $qresult.="$key=$hash{$key}&";
+			       }
                            }
 			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;