Author: shadzik
Date: Thu May 17 01:39:55 2007
New Revision: 8577
Modified:
toys/stbr/stbr.tcl
Log:
- add branch to database
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Thu May 17 01:39:55 2007
@@ -50,7 +50,7 @@
set tfile [open $towho r]
gets $tfile person; append rspecs " (to $person)"
close $tfile
-exec sqlite $logfile "INSERT INTO application
VALUES('$date','$spec','$person','$first');"
+exec sqlite $logfile "INSERT INTO application
VALUES('$date','$spec','$branch','$person','$first');"
}
putserv "privmsg $chan :$nick: Sent STBR Mail, an $first will be performed for
$rspecs."
if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; return 1}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
