SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Mon May 14 21:24:18 2007
New Revision: 8529

Modified:
   toys/stbr/stbr.tcl
Log:
- fix time outing once again
- add cvs proc to check if requested spec is in repository


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Mon May 14 21:24:18 2007
@@ -14,6 +14,15 @@
 set cvsurl "<a href='http://cvs.pld-linux.org/cgi-bin/cvsweb/SPECS/"
 set endcvs "'>"
 set enda "</a>"
+set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
+
+proc cvs { spec } {
+	global cvsroot
+	if {[catch {exec cvs -d $cvsroot log SPECS/$spec} results]} {
+		return 0
+	}
+return 1
+}
 
 bind pub * !stbr pub:stbr
 bind pub * stbr: pub:stbr
@@ -28,10 +37,11 @@
 set rspecs ""
 set logspecs ""
 if {!([string match th-ready $first] || [string match th-test $first])} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
-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}
 if {([string length $second]<2)} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
+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}
 foreach spec $specs {
 if {!([string match *.spec $spec])} { append spec ".spec"}
+if {([cvs $spec] == 0)} {putserv "privmsg $chan :$nick: There is no such spec ($spec) in PLD's repository."; return 0}
 lappend rspecs $spec
 append logspecs $cvsurl; append logspecs $spec; append logspecs $endcvs
 append logspecs "$red"; lappend logspecs $spec ; append logspecs "$endc"; append logspecs $enda