SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Wed Oct  7 00:14:02 2009
New Revision: 10712

Modified:
   toys/stbr/stbr.tcl
Log:
- add version function
- you need now global +S to !del or send request while in maintenance mode


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Wed Oct  7 00:14:02 2009
@@ -1,5 +1,7 @@
 # Send To Builder Request TCL by shadzik at pld-linux.org
 
+set versionstr "Send To Builder Request TCL v0.9 by shadzik"
+
 set cmdbook "./scripts/cmdbook.txt"
 set logfile "/home/users/stbr/db/stbrlog.db"
 set script "./scripts/cvslog.sh"
@@ -8,7 +10,7 @@
 set back &
 set cntr 0
 set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
-set usage "Usage: !stbr \[help\] \[url\] th\|ti \[no\]upgrade spec1\[:BRANCH\]\[+bcond+...\]\[-bcond-...\]\[%kernel%...\] spec2\[:BRANCH\]\[+bcond+...\]\[-bcond-...\]\[%kernel%...\] ..."
+set usage "Usage: !stbr \[help\] \[url\] \[version\] th\|ti \[no\]upgrade spec1\[:BRANCH\]\[+bcond+...\]\[-bcond-...\]\[%kernel%...\] spec2\[:BRANCH\]\[+bcond+...\]\[-bcond-...\]\[%kernel%...\] ..."
 set nickpass "stbr-bot"
 set cmdtxt "./scripts/cmd.txt"
 set maintenance "./scripts/maintenance.txt"
@@ -38,6 +40,7 @@
 	putserv "privmsg $nick :Options:"
 	putserv "privmsg $nick :!stbr help - shows this help"
 	putserv "privmsg $nick :!stbr url - shows main URL on private chat"
+	putserv "privmsg $nick :!stbr version - shows version on public channel"
 	putserv "privmsg $nick :Examples:"
 	putserv "privmsg $nick :!stbr th upgrade spec1 spec2:DEVEL - sends upgrade request for spec1 on branch HEAD and spec2 on branch DEVEL to TH developers"
 	putserv "privmsg $nick :!stbr ti noupgrade spec1 - sends noupgrade request for spec1 on branch HEAD directly to Titanium builders"
@@ -47,6 +50,11 @@
 	putserv "privmsg $nick :Visit http://stbr.pld-linux.org/ to see the status of your request."
 }
 
+proc version {chan nick} {
+	global versionstr
+	putserv "privmsg $chan :$nick: $versionstr"
+}
+
 proc random {book} {
 	set file [open $book r]
 	gets $file hands
@@ -87,7 +95,7 @@
 
 proc pub:stat {nick host hand chan arg} {
 global cvsroot maintenance
-if {([file exists $maintenance]) && (![matchattr $hand n|m])} {
+if {([file exists $maintenance]) && (![matchattr $hand S])} {
 	set plik [open $maintenance r]
 	gets $plik reason
 	close $plik
@@ -132,7 +140,7 @@
 
 proc pub:del {nick host hand chan arg} {
 global logfile cancellation
-	if {([matchattr $hand n|m])} {
+	if {([matchattr $hand S])} {
 		set usage "Usage: !del spec date time"
 		set spec [lindex $arg 0]
 		set day [lindex $arg 1]
@@ -153,12 +161,12 @@
 
 proc pub:stbr {nick host hand chan arg} {
 global script back cntr logfile usage makereq cmdbook cmdtxt maintenance
-if {([file exists $maintenance]) && (![matchattr $hand n|m])} {
+if {([file exists $maintenance]) && (![matchattr $hand S])} {
 	set plik [open $maintenance r]
 	gets $plik reason
 	close $plik
 	putcmdlog "Maintenance mode active"
-	putserv "privmsg $chan :$nick: I'm now in maintenance mode (reason: $reason). Only owners may perform real actions."
+	putserv "privmsg $chan :$nick: I'm now in maintenance mode (reason: $reason). Only privileged users may perform real actions."
 	return 0
 }
 putcmdlog "#$hand# Noticed Send To Build Request Mail command";
@@ -167,6 +175,7 @@
 set first [lindex $arg 0]
 if {([string match help $first])} {help $nick; return 0}
 if {([string match url $first])} {url $nick; return 0}
+if {([string match version $first])} {version $chan $nick; return 0}
 if {([string match dzieki $first]) || ([string match dziekuje $first]) || ([string match thx $first]) || ([string match tx $first]) || ([string match thnx $first]) || ([string match dzięki $first]) || ([string match dziękuję $first])} {
 	set answ [rthx]; putserv "privmsg $chan :$nick: $answ"; return 0
 }
@@ -319,4 +328,4 @@
 if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; return 1}
 }
 
-putlog "Send To Builder Request TCL v0.9 by shadzik loaded."
+putlog "$versionstr loaded."