SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Fri Nov  6 16:40:48 2009
New Revision: 10959

Modified:
   toys/stbr/stbr.tcl
Log:
- updated !del


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Fri Nov  6 16:40:48 2009
@@ -222,7 +222,7 @@
 bind pub * !stat pub:stat
 
 proc pub:del {nick host hand chan arg} {
-global logfile cancellation
+global logfile cancellation unfilled
 	if {([matchattr $hand S])} {
 		set usage "Usage: !del spec date time"
 		set spec [lindex $arg 0]
@@ -237,6 +237,7 @@
 		set email ""; append email $developer; append email "@pld-linux.org"
 		putcmdlog "Deleting entry for: $spec on $date. Sending mail to $developer"
 		exec sqlite $logfile "DELETE FROM application where spec='$spec' and date='$date'; DELETE FROM stbr where date='$date';" &
+		exec sqlite $unfilled "DELETE FROM unfilled where spec='$spec';" &
 		exec $cancellation $spec $email $hand &
 		putserv "privmsg $chan :$nick: Request deleted. Cancellation e-mail sent to $developer"
 	}