SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Oct 21 04:34:45 2007
New Revision: 8835

Modified:
   toys/stbr/stbr.tcl
Log:
- now better


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Oct 21 04:34:45 2007
@@ -10,11 +10,18 @@
 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
+bind notc - "*This nick is owned by someone else*" identify
+bind dcc n identify man_identify 
+
+proc man_identify { hand idx mask } {
+global nickpass
+	putserv "PRIVMSG NickServ :identify $nickpass"
+	putlog "Sending Identify to NickServ"
+}
 
 proc identify { nick uhost hand text } {
 global nickpass
-	putserv "PRIVMSG nickserv :identify $nickpass"
+	putserv "PRIVMSG NickServ :identify $nickpass"
 	putlog "Sending Identify to NickServ"
 }