--- loncom/lond	2003/03/02 03:58:55	1.110
+++ loncom/lond	2003/03/04 22:32:20	1.111
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.110 2003/03/02 03:58:55 www Exp $
+# $Id: lond,v 1.111 2003/03/04 22:32:20 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -856,7 +856,8 @@ sub make_new_child {
                                unless (-e $fpnow) {
 				   unless (mkdir($fpnow,0777)) {
                                       $fperror="error: ".($!+0)
-					  ." mkdir failed\n";
+					  ." mkdir failed while attempting "
+                                              ."makeuser\n";
                                    }
                                }
                            }
@@ -1028,7 +1029,8 @@ sub make_new_child {
                             print $client "ok\n"; 
 			} else {
                             print $client "error: ".($!+0)
-				." IO::File->new Failed\n";
+				." IO::File->new Failed "
+                                    ."while attempting log\n";
 		        }
 		       }
 # ------------------------------------------------------------------------- put
@@ -1057,11 +1059,13 @@ sub make_new_child {
                               print $client "ok\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) failed\n";
+				  ." untie(GDBM) failed ".
+                                      "while attempting put\n";
                            }
                        } else {
                            print $client "error: ".($!)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting put\n";
                        }
 		      } else {
                           print $client "refused\n";
@@ -1101,11 +1105,13 @@ sub make_new_child {
                               print $client "ok\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting rolesput\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting rolesput\n";
                        }
 		      } else {
                           print $client "refused\n";
@@ -1129,11 +1135,13 @@ sub make_new_child {
                               print $client "$qresult\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting get\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting get\n";
                        }
 # ------------------------------------------------------------------------ eget
                    } elsif ($userinput =~ /^eget/) {
@@ -1167,11 +1175,13 @@ sub make_new_child {
                               }
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting eget\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting eget\n";
                        }
 # ------------------------------------------------------------------------- del
                    } elsif ($userinput =~ /^del/) {
@@ -1197,11 +1207,13 @@ sub make_new_child {
                               print $client "ok\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting del\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting del\n";
                        }
 # ------------------------------------------------------------------------ keys
                    } elsif ($userinput =~ /^keys/) {
@@ -1220,11 +1232,13 @@ sub make_new_child {
                               print $client "$qresult\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting keys\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting keys\n";
                        }
 # ----------------------------------------------------------------- dumpcurrent
                    } elsif ($userinput =~ /^currentdump/) {
@@ -1263,11 +1277,13 @@ sub make_new_child {
                              print $client "$qresult\n";
                            } else {
                              print $client "error: ".($!+0)
-				 ." untie(GDBM) Failed\n";
+				 ." untie(GDBM) Failed ".
+                                     "while attempting currentdump\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                      "while attempting currentdump\n";
                        }
 # ------------------------------------------------------------------------ dump
                    } elsif ($userinput =~ /^dump/) {
@@ -1299,11 +1315,13 @@ sub make_new_child {
                                print $client "$qresult\n";
                            } else {
                                print $client "error: ".($!+0)
-				   ." untie(GDBM) Failed\n";
+				   ." untie(GDBM) Failed ".
+                                       "while attempting dump\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                      "while attempting dump\n";
                        }
 # ----------------------------------------------------------------------- store
                    } elsif ($userinput =~ /^store/) {
@@ -1341,11 +1359,13 @@ sub make_new_child {
                               print $client "ok\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting store\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting store\n";
                        }
 		      } else {
                           print $client "refused\n";
@@ -1377,11 +1397,13 @@ sub make_new_child {
                               print $client "$qresult\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting restore\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting restore\n";
                        }
 # -------------------------------------------------------------------- chatsend
                    } elsif ($userinput =~ /^chatsend/) {
@@ -1421,7 +1443,8 @@ sub make_new_child {
 		       }
 		       else {
 			   print $client "error: ".($!+0)
-			       ." IO::File->new Failed\n";
+			       ." IO::File->new Failed ".
+                                   "while attempting queryreply\n";
 		       }
 # ----------------------------------------------------------------------- idput
                    } elsif ($userinput =~ /^idput/) {
@@ -1446,11 +1469,13 @@ sub make_new_child {
                               print $client "ok\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting idput\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                      "while attempting idput\n";
                        }
 # ----------------------------------------------------------------------- idget
                    } elsif ($userinput =~ /^idget/) {
@@ -1469,11 +1494,13 @@ sub make_new_child {
                               print $client "$qresult\n";
                            } else {
                               print $client "error: ".($!+0)
-				  ." untie(GDBM) Failed\n";
+				  ." untie(GDBM) Failed ".
+                                      "while attempting idget\n";
                            }
                        } else {
                            print $client "error: ".($!+0)
-			       ." tie(GDBM) Failed\n";
+			       ." tie(GDBM) Failed ".
+                                   "while attempting idget\n";
                        }
 # ---------------------------------------------------------------------- tmpput
                    } elsif ($userinput =~ /^tmpput/) {
@@ -1491,7 +1518,8 @@ sub make_new_child {
 		       }
 		       else {
 			   print $client "error: ".($!+0)
-			       ."IO::File->new Failed\n";
+			       ."IO::File->new Failed ".
+                                   "while attempting tmpput\n";
 		       }
 
 # ---------------------------------------------------------------------- tmpget
@@ -1508,7 +1536,8 @@ sub make_new_child {
 		       }
 		       else {
 			   print $client "error: ".($!+0)
-			       ."IO::File->new Failed\n";
+			       ."IO::File->new Failed ".
+                                   "while attempting tmpget\n";
 		       }
 
 # ---------------------------------------------------------------------- tmpdel
@@ -1521,7 +1550,8 @@ sub make_new_child {
 			   print $client "ok\n";
 		       } else {
 			   print $client "error: ".($!+0)
-			       ."Unlink tmp Failed\n";
+			       ."Unlink tmp Failed ".
+                                   "while attempting tmpdel\n";
 		       }
 # -------------------------------------------------------------------------- ls
                    } elsif ($userinput =~ /^ls/) {