SVN: toys/stbr/stbr.tcl

[shadzik]

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)"