SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Oct 21 03:48:30 2007
New Revision: 8834

Modified:
   toys/stbr/stbr.tcl
Log:
- add freenode nick identification


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Oct 21 03:48:30 2007
@@ -8,6 +8,16 @@
 set cntr 0
 set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
 set usage "Usage: !stbr \[help\] \[url\] \[no\]upgrade spec1\[:BRANCH\] spec2\[:BRANCH\] ..."
+set nickpass ""
+
+bind notc B "*This nickname is owned by someone else*" identify
+
+proc identify { nick uhost hand text } {
+global nickpass
+	putserv "PRIVMSG nickserv :identify $nickpass"
+	putlog "Sending Identify to NickServ"
+}
+
 
 proc help {nick} {
 	putserv "privmsg $nick :Most important is that you understand what the difference between 'upgrade' and 'noupgrade' is. When you call 'noupgrade' it's going to be just an test-build. When you call 'upgrade' the package is going to be upgraded on builders and ftp. Visit http://stbr.pld-linux.org/ to see the status of your request. Options in square brackets are optional."