erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erbot-cvs] Changes to erbot/erbc5.el


From: D . Goel
Subject: [Erbot-cvs] Changes to erbot/erbc5.el
Date: Sat, 08 Jan 2005 13:22:49 -0500

Index: erbot/erbc5.el
diff -u erbot/erbc5.el:1.10 erbot/erbc5.el:1.11
--- erbot/erbc5.el:1.10 Sat Jan  1 04:37:31 2005
+++ erbot/erbc5.el      Sat Jan  8 17:53:08 2005
@@ -1,5 +1,5 @@
 ;;; erbc5.el --- continuation of erbc.el
-;; Time-stamp: <2004-12-31 22:45:55 deego>
+;; Time-stamp: <2005-01-08 12:52:25 deego>
 ;; Copyright (C) 2003 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc5.el
@@ -175,8 +175,8 @@
 
 (ignore-errors (require 'calc))
 
-(defvar erbnoc-calc-time 3)
-(defcustom erbnoc-calc-p nil
+(defvar erbn-calc-time 3)
+(defcustom erbn-calc-p nil
   "Enable this variable at your own risk.
 Enabling this means that fsbot will do calc operations, but those have
 no timeout build in... leading to DOS attacks. ")
@@ -191,13 +191,13 @@
 which is why turned off by default.
 
 "
-  (unless erbnoc-calc-p 
+  (unless erbn-calc-p 
     (error "Sorry, but i am a bot! not a calc!"))
   (unless str (error "Eval what?"))
   (unless (stringp str)
     (setq str (format "%s" str)))
   (with-timeout 
-      (erbnoc-calc-time "That's WAY too much math for me!")
+      (erbn-calc-time "That's WAY too much math for me!")
     (calc-eval str)))
     
 (defalias 'fs-calc 'fs-calc-eval)
@@ -205,7 +205,7 @@
 (erbutils-defalias '(process-list))
 (defalias 'fs-list-processes 'fs-process-list)
 
-(defcustom erbnoc-sregex-p nil
+(defcustom erbn-sregex-p nil
   "Nil by default for safety. Enable to permit fs-sregex.
 I think it is safe, but not 100% sure, so disabled by default. --DG"
   )
@@ -218,7 +218,7 @@
 
 (defun fsi-sregex (&rest args)
   (cond
-   (erbnoc-sregex-p
+   (erbn-sregex-p
     (apply 'sregex args))
    (t
     (error "sregexp is disabled in this bot. "))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]