SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Nov  8 03:38:42 2009
New Revision: 10965

Modified:
   toys/stbr/stbr.tcl
Log:
- updated checkunfilled


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Nov  8 03:38:42 2009
@@ -170,8 +170,8 @@
 				set pkg [lindex $splited 0]
 			}
 			exec $resend $dist $pkg/$spec $branch $towho 
-			exec sqlite $unfilled "update unfilled set date='$time' where spec='$spec' and branch='$branch' and line='$dist';"
-			putserv "privmsg $queuechan :I've found unfilled requests. Resent request for $spec to $towho."
+			exec sqlite $unfilled "update unfilled set date='$time' where spec='$spec' and branch='$branch' and line='$dist';" &
+			putserv "privmsg $queuechan :Found requests unfilled for more than 2 days. Resent request for $spec to $towho."
 		}
 	}
 }