--- 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/) {