SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Mon May 14 22:01:28 2007
New Revision: 8531

Modified:
   toys/stbr/stbr.tcl
Log:
- cleanup


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Mon May 14 22:01:28 2007
@@ -6,14 +6,6 @@
 set back &
 set cntr 0
 set towho "./scripts/sent.txt"
-set green "<font color='green'>"
-set red "<font color='red'>"
-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>"
 set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
 
 proc cvs { spec } {
@@ -29,7 +21,7 @@
 bind pub * stbr, pub:stbr
 
 proc pub:stbr {nick host hand chan arg} {
-global file back cntr logfile towho red green endc bold endb cvsurl endcvs enda
+global file back cntr logfile towho
 putcmdlog "#$hand# Noticed Send To Build Request Mail command";
 set first [lindex $arg 0]
 set second [lindex $arg 1]