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:[EMAIL PROTECTED]:/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 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
