[cvslog] (2008-02-11 02:28:51 UTC) Module eggdrop1.6: Change committed!

cvslog cvs at tsss.org
Sun Feb 10 20:28:52 CST 2008


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2008-02-11 02:28:51 UTC
Commited by: Jeff Fisher <guppy at techmonkeys.org>

Modified files:
     eggdrop.conf scripts/Makefile.in scripts/quotepass.tcl

Log message:

a couple of small fixes to the quotepass.tcl script

---------------------- diff included ----------------------
Index: eggdrop1.6/eggdrop.conf
diff -u eggdrop1.6/eggdrop.conf:1.48 eggdrop1.6/eggdrop.conf:1.49
--- eggdrop1.6/eggdrop.conf:1.48	Sun Feb 10 19:22:46 2008
+++ eggdrop1.6/eggdrop.conf	Sun Feb 10 20:28:40 2008
@@ -1,7 +1,7 @@
 #! /path/to/executable/eggdrop
 # ^- This should contain a fully qualified path to your Eggdrop executable.
 #
-# $Id: eggdrop.conf,v 1.48 2008-02-11 01:22:46 guppy Exp $
+# $Id: eggdrop.conf,v 1.49 2008-02-11 02:28:40 guppy Exp $
 #
 # This is a sample Eggdrop configuration file which includes all possible
 # settings that can be used to configure your bot.
@@ -1353,7 +1353,7 @@
 # can connect if you did not return an identd response. This script will
 # handle sending that for you.
 
-if {[info exists net-type] && $net-type == 2} {
+if {[info exists net-type] && ${net-type} == 2} {
   source scripts/quotepass.tcl
 }
  
Index: eggdrop1.6/scripts/Makefile.in
diff -u eggdrop1.6/scripts/Makefile.in:1.13 eggdrop1.6/scripts/Makefile.in:1.14
--- eggdrop1.6/scripts/Makefile.in:1.13	Thu Jun 17 00:43:29 2004
+++ eggdrop1.6/scripts/Makefile.in	Sun Feb 10 20:28:41 2008
@@ -1,5 +1,5 @@
 # Makefile for scripts/
-# $Id: Makefile.in,v 1.13 2004-06-17 05:43:29 wcc Exp $
+# $Id: Makefile.in,v 1.14 2008-02-11 02:28:41 guppy Exp $
 
 SHELL = @SHELL@
 top_srcdir = @top_srcdir@
@@ -15,7 +15,8 @@
 DOCS = CONTENTS
 
 SCRIPTS = action.fix.tcl alltools.tcl compat.tcl getops.tcl \
-klined.tcl notes2.tcl ques5.tcl sentinel.tcl userinfo.tcl cmd_resolve.tcl
+klined.tcl notes2.tcl ques5.tcl sentinel.tcl userinfo.tcl cmd_resolve.tcl \
+quotepass.tcl
 
 EXESCRIPTS = autobotchk botchk weed
 
Index: eggdrop1.6/scripts/quotepass.tcl
diff -u eggdrop1.6/scripts/quotepass.tcl:1.2 eggdrop1.6/scripts/quotepass.tcl:1.3
--- eggdrop1.6/scripts/quotepass.tcl:1.2	Sun Feb 10 19:43:30 2008
+++ eggdrop1.6/scripts/quotepass.tcl	Sun Feb 10 20:28:41 2008
@@ -10,14 +10,18 @@
 # -------
 #  10Feb08: initial version
 #
-# $Id: quotepass.tcl,v 1.2 2008-02-11 01:43:30 guppy Exp $
+# $Id: quotepass.tcl,v 1.3 2008-02-11 02:28:41 guppy Exp $
+
+set quotepass_resyntax "must type /QUOTE PASS (\[^\" \]*)"
 
 bind evnt - init-server quotepass_unbind
 bind evnt - disconnect-server quotepass_unbind
 bind evnt - connect-server quotepass_bind
 
 proc quotepass_notice {from cmd text} {
-  if {[regexp "PASS (.*)" $text - pass]} {
+  global quotepass_resyntax
+  if {[regexp -nocase $quotepass_resyntax $text - pass]} {
+    putlog "Got a QUOTE PASS request from the server, sending \"PASS $pass\"" 
     putserv "PASS $pass"
   }
   return 0
----------------------- End of diff -----------------------



More information about the Changes mailing list