SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Sun May 13 04:01:16 CEST 2007
Author: shadzik
Date: Sun May 13 04:01:14 2007
New Revision: 8507
Modified:
toys/stbr/stbr.tcl
Log:
- add logging functionality
- version 0.2
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sun May 13 04:01:14 2007
@@ -25,6 +25,11 @@
lappend rspecs $spec
}
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 " ";
+puts $lfile $log
+close $lfile
putserv "privmsg $chan :$nick: Sent STBR Mail to $first for $rspecs."; return 1}
-putlog "Send To Builder Request TCL v0.1 by shadzik loaded."
+putlog "Send To Builder Request TCL v0.2 by shadzik loaded."
More information about the pld-cvs-commit
mailing list