--- loncom/lond	2000/01/12 19:30:43	1.7
+++ loncom/lond	2000/01/14 14:46:57	1.8
@@ -4,7 +4,7 @@
 # 5/26/99,6/4,6/10,6/11,6/14,6/15,6/26,6/28,6/30,
 # 7/8,7/9,7/10,7/12,7/17,7/19,9/21,
 # 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 Gerd Kortemeyer
+# 12/7,12/15,01/06,01/11,01/12,01/14 Gerd Kortemeyer
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
 # runs as a daemon
@@ -498,6 +498,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^put/) {
                       my ($cmd,$udom,$uname,$namespace,$what)
                           =split(/:/,$userinput);
+                      $namespace=~s/\//\_/g;
                       $namespace=~s/\W//g;
                       if ($namespace ne 'roles') {
                        chomp($what);
@@ -564,6 +565,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^get/) {
                        my ($cmd,$udom,$uname,$namespace,$what)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
                        chomp($what);
                        my @queries=split(/\&/,$what);
@@ -586,6 +588,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^eget/) {
                        my ($cmd,$udom,$uname,$namespace,$what)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
                        chomp($what);
                        my @queries=split(/\&/,$what);
@@ -621,6 +624,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^del/) {
                        my ($cmd,$udom,$uname,$namespace,$what)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
                        chomp($what);
                        my $proname=propath($udom,$uname);
@@ -648,8 +652,8 @@ sub make_new_child {
                    } elsif ($userinput =~ /^keys/) {
                        my ($cmd,$udom,$uname,$namespace)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
-                       chomp($namespace);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
       if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
@@ -669,8 +673,8 @@ sub make_new_child {
                    } elsif ($userinput =~ /^dump/) {
                        my ($cmd,$udom,$uname,$namespace)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
-                       chomp($namespace);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
       if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
@@ -690,6 +694,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^store/) {
                       my ($cmd,$udom,$uname,$namespace,$rid,$what)
                           =split(/:/,$userinput);
+                      $namespace=~s/\//\_/g;
                       $namespace=~s/\W//g;
                       if ($namespace ne 'roles') {
                        chomp($what);
@@ -731,6 +736,7 @@ sub make_new_child {
                    } elsif ($userinput =~ /^restore/) {
                        my ($cmd,$udom,$uname,$namespace,$rid)
                           =split(/:/,$userinput);
+                       $namespace=~s/\//\_/g;
                        $namespace=~s/\W//g;
                        chomp($rid);
                        my $proname=propath($udom,$uname);