--- loncom/lond	1999/11/04 20:12:47	1.3
+++ loncom/lond	1999/11/04 20:53:04	1.4
@@ -3,7 +3,7 @@
 # lond "LON Daemon" Server (port "LOND" 5663)
 # 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 Gerd Kortemeyer
+# 10/7,10/8,10/9,10/11,10/13,10/15,11/4 Gerd Kortemeyer
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
 # runs as a daemon
@@ -507,12 +507,12 @@ sub make_new_child {
 			       ) { print $hfh "P:$now:$what\n"; }
 		       }
                        my @pairs=split(/\&/,$what);
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            foreach $pair (@pairs) {
 			       ($key,$value)=split(/=/,$pair);
                                $hash{$key}=$value;
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
                               print $client "ok\n";
                            } else {
                               print $client "error:$!\n";
@@ -529,11 +529,11 @@ sub make_new_child {
                        my @queries=split(/\&/,$what);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            for ($i=0;$i<=$#queries;$i++) {
                                $qresult.="$hash{$queries[$i]}&";
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;
                               print $client "$qresult\n";
                            } else {
@@ -551,11 +551,11 @@ sub make_new_child {
                        my @queries=split(/\&/,$what);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            for ($i=0;$i<=$#queries;$i++) {
                                $qresult.="$hash{$queries[$i]}&";
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;
                               if ($cipher) {
                                 my $cmdlength=length($qresult);
@@ -592,11 +592,11 @@ sub make_new_child {
 			       ) { print $hfh "D:$now:$what\n"; }
 		       }
                        my @keys=split(/\&/,$what);
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            foreach $key (@keys) {
                                delete($hash{$key});
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
                               print $client "ok\n";
                            } else {
                               print $client "error:$!\n";
@@ -612,11 +612,11 @@ sub make_new_child {
                        chomp($namespace);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            foreach $key (keys %hash) {
                                $qresult.="$key&";
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;
                               print $client "$qresult\n";
                            } else {
@@ -633,11 +633,11 @@ sub make_new_child {
                        chomp($namespace);
                        my $proname=propath($udom,$uname);
                        my $qresult='';
-                       if (dbmopen(%hash,"$proname/$namespace.db",0644)) {
+      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT,0640)) {
                            foreach $key (keys %hash) {
                                $qresult.="$key=$hash{$key}&";
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;
                               print $client "$qresult\n";
                            } else {
@@ -660,12 +660,12 @@ sub make_new_child {
 			       ) { print $hfh "P:$now:$what\n"; }
 		       }
                        my @pairs=split(/\&/,$what);
-                       if (dbmopen(%hash,"$proname.db",0644)) {
+                 if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_WRCREAT,0640)) {
                            foreach $pair (@pairs) {
 			       ($key,$value)=split(/=/,$pair);
                                $hash{$key}=$value;
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
                               print $client "ok\n";
                            } else {
                               print $client "error:$!\n";
@@ -681,11 +681,11 @@ sub make_new_child {
                        my $proname="$perlvar{'lonUsersDir'}/$udom/ids";
                        my @queries=split(/\&/,$what);
                        my $qresult='';
-                       if (dbmopen(%hash,"$proname.db",0644)) {
+                 if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_WRCREAT,0640)) {
                            for ($i=0;$i<=$#queries;$i++) {
                                $qresult.="$hash{$queries[$i]}&";
                            }
-			   if (dbmclose(%hash)) {
+			   if (untie(%hash)) {
 		              $qresult=~s/\&$//;
                               print $client "$qresult\n";
                            } else {