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