[LON-CAPA-cvs] cvs: loncom / lond
matthew
lon-capa-cvs@mail.lon-capa.org
Tue, 04 Mar 2003 22:32:20 -0000
This is a MIME encoded message
--matthew1046817140
Content-Type: text/plain
matthew Tue Mar 4 17:32:20 2003 EDT
Modified files:
/loncom lond
Log:
Made error messages more verbose - I'm seeing a ton of the " tie(GDBM) Failed"
float by and I need to narrow down my search.
--matthew1046817140
Content-Type: text/plain
Content-Disposition: attachment; filename="matthew-20030304173220.txt"
Index: loncom/lond
diff -u loncom/lond:1.110 loncom/lond:1.111
--- loncom/lond:1.110 Sat Mar 1 22:58:55 2003
+++ loncom/lond Tue Mar 4 17:32:20 2003
@@ -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 @@
unless (-e $fpnow) {
unless (mkdir($fpnow,0777)) {
$fperror="error: ".($!+0)
- ." mkdir failed\n";
+ ." mkdir failed while attempting "
+ ."makeuser\n";
}
}
}
@@ -1028,7 +1029,8 @@
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 @@
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 @@
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 @@
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 @@
}
} 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 @@
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 @@
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 @@
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 @@
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 @@
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 @@
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 @@
}
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 @@
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 @@
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 @@
}
else {
print $client "error: ".($!+0)
- ."IO::File->new Failed\n";
+ ."IO::File->new Failed ".
+ "while attempting tmpput\n";
}
# ---------------------------------------------------------------------- tmpget
@@ -1508,7 +1536,8 @@
}
else {
print $client "error: ".($!+0)
- ."IO::File->new Failed\n";
+ ."IO::File->new Failed ".
+ "while attempting tmpget\n";
}
# ---------------------------------------------------------------------- tmpdel
@@ -1521,7 +1550,8 @@
print $client "ok\n";
} else {
print $client "error: ".($!+0)
- ."Unlink tmp Failed\n";
+ ."Unlink tmp Failed ".
+ "while attempting tmpdel\n";
}
# -------------------------------------------------------------------------- ls
} elsif ($userinput =~ /^ls/) {
--matthew1046817140--