Author: shadzik
Date: Sun May 13 07:11:50 2007
New Revision: 8515
Modified:
toys/stbr/stbr.tcl
Log:
- more informative error message
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sun May 13 07:11:50 2007
@@ -23,7 +23,7 @@
foreach spec $specs {
if {!([string match *.spec $spec])} { append spec ".spec"}
lappend rspecs $spec
-if {[exec $file $nick $first $spec $back]==0} {putserv "privmsg $chan :$nick:
An error occured. Couldn't send STBR Mai"; return 1}
+if {[exec $file $nick $first $spec $back]==0} {putserv "privmsg $chan :$nick:
An error occured. Couldn't send STBR Mail for $spec."; return 1}
}
set lfile [open $logfile a]
set time [clock seconds]
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
