SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun May 13 03:16:54 2007
New Revision: 8506

Modified:
   toys/stbr/stbr.tcl
Log:
- english error message


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun May 13 03:16:54 2007
@@ -24,7 +24,7 @@
 if {!([string match *.spec $spec])} { append spec ".spec"}
 lappend rspecs $spec
 }
-if {[exec $file $nick $first $rspecs $back]==0} {putserv "privmsg $chan :$nick: Blad, STBR nie zostal wyslany"; return 1}
+if {[exec $file $nick $first $rspecs $back]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail"; return 1}
 putserv "privmsg $chan :$nick: Sent STBR Mail to $first for $rspecs."; return 1}
 
 putlog "Send To Builder Request TCL v0.1 by shadzik loaded."