Author: shadzik Date: Mon May 14 17:32:29 2007 New Revision: 8524 Modified: toys/stbr/stbr.tcl Log: - link specs with cvsweb in logfile
Modified: toys/stbr/stbr.tcl ============================================================================== --- toys/stbr/stbr.tcl (original) +++ toys/stbr/stbr.tcl Mon May 14 17:32:29 2007 @@ -11,13 +11,16 @@ set endc "</font>" set bold "<b>" set endb "</b>" +set cvsurl "<a href='http://cvs.pld-linux.org/cgi-bin/cvsweb/SPECS/"; +set endcvs "'>" +set enda "</a>" bind pub * !stbr pub:stbr bind pub * stbr: pub:stbr bind pub * stbr, pub:stbr proc pub:stbr {nick host hand chan arg} { -global file back cntr logfile towho red green endc bold endb +global file back cntr logfile towho red green endc bold endb cvsurl endcvs enda putcmdlog "#$hand# Noticed Send To Build Request Mail command"; 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} set first [lindex $arg 0] @@ -30,7 +33,8 @@ foreach spec $specs { if {!([string match *.spec $spec])} { append spec ".spec"} lappend rspecs $spec -append logspecs "$red"; lappend logspecs $spec ; append logspecs "$endc" +append logspecs $cvsurl; append logspecs $spec; append logspecs $endcvs +append logspecs "$red"; lappend logspecs $spec ; append logspecs "$endc"; append logspecs $enda if {[exec $file $nick $first $spec]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec."; return 1} set tfile [open $towho r] gets $tfile person; append rspecs " (to $person)"; append logspecs " (to $green$person$endc)" _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
