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