[cvslog] Module eggdrop1.6: Change committed

cvslog cvs at tsss.iavalley.cc.ia.us
Sat Mar 10 16:39:01 CST 2001


CVSROOT    : /usr/local/cvsroot
Module     : eggdrop1.6
Commit time: 2001-03-10 22:38:14 UTC
Commited by: guppy

Modified files:
     doc/UPDATES1.6 src/patch.h src/tcl.c src/tclhash.c

Log message:

added Wingman's patch to remove debug-tcl

---------------------- diff included ----------------------
Index: eggdrop1.6/doc/UPDATES1.6
diff -u eggdrop1.6/doc/UPDATES1.6:1.72 eggdrop1.6/doc/UPDATES1.6:1.73
--- eggdrop1.6/doc/UPDATES1.6:1.72	Sat Mar 10 16:32:10 2001
+++ eggdrop1.6/doc/UPDATES1.6	Sat Mar 10 16:38:03 2001
@@ -4,6 +4,8 @@
 
 1.6.4
 Found by  Fixed by  What...
+          Wingman/  removed debug-tcl, since this is something noone uses and is
+                    more bloat then anything
 Darude    Darude/   encrypt/decrypt with highbit character messed up the string
           Wingman
 KingBob   Tothwolf/ Fixed rest of the problems with utf8 characters. 
Index: eggdrop1.6/src/patch.h
diff -u eggdrop1.6/src/patch.h:1.439 eggdrop1.6/src/patch.h:1.440
--- eggdrop1.6/src/patch.h:1.439	Sat Mar 10 16:32:10 2001
+++ eggdrop1.6/src/patch.h	Sat Mar 10 16:38:03 2001
@@ -10,7 +10,7 @@
  * statement, leave the rest of the file alone, this allows better
  * overlapping patches.
  * 
- * $Id: patch.h,v 1.439 2001/03/10 22:32:10 guppy Exp $
+ * $Id: patch.h,v 1.440 2001/03/10 22:38:03 guppy Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -41,12 +41,12 @@
  *
  *
  */
-patch("984208073");		/* current unixtime */
+patch("984264537");		/* current unixtime */
 /*
  *
  *
  */
-patch("blowfishfix");
+patch("nodebugtcl");
 /*
  *
  *
Index: eggdrop1.6/src/tcl.c
diff -u eggdrop1.6/src/tcl.c:1.30 eggdrop1.6/src/tcl.c:1.31
--- eggdrop1.6/src/tcl.c:1.30	Fri Jan 26 15:18:22 2001
+++ eggdrop1.6/src/tcl.c	Sat Mar 10 16:38:03 2001
@@ -4,7 +4,7 @@
  *   Tcl initialization
  *   getting and setting Tcl/eggdrop variables
  * 
- * $Id: tcl.c,v 1.30 2001/01/26 21:18:22 guppy Exp $
+ * $Id: tcl.c,v 1.31 2001/03/10 22:38:03 guppy Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -69,7 +69,6 @@
 Tcl_Interp *interp;			/* eggdrop always uses the same
 					   interpreter */
 int	    dcc_flood_thr = 3;
-int	    debug_tcl = 0;
 int	    use_invites = 0;		/* Jason/drummer */
 int	    use_exempts = 0;		/* Jason/drummer */
 int	    force_expire = 0;		/* Rufus */
@@ -432,7 +431,6 @@
   {"default-flags",		&default_flags,		0},
   /* moved from eggdrop.h */
   {"numversion",		&egg_numver,		2},
-  {"debug-tcl",			&debug_tcl,		1},
   {"die-on-sighup",		&die_on_sighup,		1},
   {"die-on-sigterm",		&die_on_sigterm,	1},
   {"remote-boots",		&remote_boots,		1},
@@ -629,18 +627,8 @@
 void do_tcl(char *whatzit, char *script)
 {
   int code;
-  FILE *f = 0;
 
-  if (debug_tcl) {
-    f = fopen("DEBUG.TCL", "a");
-    if (f != NULL)
-      fprintf(f, "eval: %s\n", script);
-  }
   code = Tcl_Eval(interp, script);
-  if (debug_tcl && (f != NULL)) {
-    fprintf(f, "done eval, result=%d\n", code);
-    fclose(f);
-  }
   if (code != TCL_OK) {
     putlog(LOG_MISC, "*", "Tcl error in script for '%s':", whatzit);
     putlog(LOG_MISC, "*", "%s", interp->result);
Index: eggdrop1.6/src/tclhash.c
diff -u eggdrop1.6/src/tclhash.c:1.23 eggdrop1.6/src/tclhash.c:1.24
--- eggdrop1.6/src/tclhash.c:1.23	Sun Jan 21 01:49:05 2001
+++ eggdrop1.6/src/tclhash.c	Sat Mar 10 16:38:03 2001
@@ -7,7 +7,7 @@
  *   (non-Tcl) procedure lookups for msg/dcc/file commands
  *   (Tcl) binding internal procedures to msg/dcc/file commands
  * 
- * $Id: tclhash.c,v 1.23 2001/01/21 07:49:05 guppy Exp $
+ * $Id: tclhash.c,v 1.24 2001/03/10 22:38:03 guppy Exp $
  */
 /* 
  * Copyright (C) 1997  Robey Pointer
@@ -36,7 +36,7 @@
 extern Tcl_Interp	*interp;
 extern struct dcc_t	*dcc;
 extern struct userrec	*userlist;
-extern int		 debug_tcl, dcc_total;
+extern int		 dcc_total;
 extern time_t		 now;
 
 p_tcl_bind_list		bind_table_list;
@@ -656,44 +656,29 @@
 static int trigger_bind(const char *proc, const char *param)
 {
   int x;
-  FILE *f = 0;
 
-  if (debug_tcl) {
-    f = fopen("DEBUG.TCL", "a");
-    if (f != NULL)
-      fprintf(f, "eval: %s%s\n", proc, param);
-  }
-  {
-    /* We now try to debug the Tcl_VarEval() call below by remembering both
-     * the called proc name and it's parameters. This should render us a bit
-     * less helpless when we see context dumps.
-     */
-    const char *msg = "TCL proc: %s, param: %s";
-    char *buf;
-
-    Context;
-    buf = nmalloc(strlen(msg) + (proc ? strlen(proc) : 6)
-		  + (param ? strlen(param) : 6) + 1);
-    sprintf(buf, msg, proc ? proc : "<null>", param ? param : "<null>");
-    ContextNote(buf);
-    nfree(buf);
-  }
+  /* We now try to debug the Tcl_VarEval() call below by remembering both
+   * the called proc name and it's parameters. This should render us a bit
+   * less helpless when we see context dumps.
+   */
+  const char *msg = "TCL proc: %s, param: %s";
+  char *buf;
+
+  Context;
+  buf = nmalloc(strlen(msg) + (proc ? strlen(proc) : 6)
+		+ (param ? strlen(param) : 6) + 1);
+  sprintf(buf, msg, proc ? proc : "<null>", param ? param : "<null>");
+  ContextNote(buf);
+  nfree(buf);
+
   x = Tcl_VarEval(interp, proc, param, NULL);
   Context;
   if (x == TCL_ERROR) {
-    if (debug_tcl && (f != NULL)) {
-      fprintf(f, "done eval. error.\n");
-      fclose(f);
-    }
     if (strlen(interp->result) > 400)
       interp->result[400] = 0;
     putlog(LOG_MISC, "*", "Tcl error [%s]: %s", proc, interp->result);
     return BIND_EXECUTED;
   } else {
-    if (debug_tcl && (f != NULL)) {
-      fprintf(f, "done eval. ok.\n");
-      fclose(f);
-    }
     if (!strcmp(interp->result, "break"))
       return BIND_EXEC_BRK;
     return (atoi(interp->result) > 0) ? BIND_EXEC_LOG : BIND_EXECUTED;
----------------------- End of diff -----------------------



More information about the Changes mailing list