SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Sun May 13 07:00:44 CEST 2007
Author: shadzik
Date: Sun May 13 07:00:44 2007
New Revision: 8514
Modified:
toys/stbr/stbr.tcl
Log:
- remove unneeded global variable
- execute cvslog.sh for each spec that was send through !stbr
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sun May 13 07:00:44 2007
@@ -11,7 +11,7 @@
bind pub * stbr, pub:stbr
proc pub:stbr {nick host hand chan arg} {
-global file key back cntr logfile
+global file back cntr logfile
putcmdlog "#$hand# Noticed Send To Build Request Mail command";
if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; putserv "privmsg $chan :$nick: I reached my STBR time limit (30sec). Please try later."; return 0}
set first [lindex $arg 0]
@@ -23,8 +23,8 @@
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 $rspecs $back]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail"; return 1}
set lfile [open $logfile a]
set time [clock seconds]
set log [clock format $time -format "%d.%m.%Y %H:%M"]; lappend log "$nick requested build for $rspecs to $first"; append log " ";
More information about the pld-cvs-commit
mailing list