[Tcldrop/CVS] tcldrop ./tcldrop.conf modules/server/server.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/12/01 16:38:36

Modified files:
        .              : tcldrop.conf 
        modules/server : server.tcl 

Log message:
        I only changed tcldrop.conf, why are these other files wanting to be 
committed!   retarded CVS..

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/tcldrop.conf.diff?tr1=1.6&tr2=1.7&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/server/server.tcl.diff?tr1=1.14&tr2=1.15&r1=text&r2=text

Patches:
Index: tcldrop/modules/server/server.tcl
diff -u tcldrop/modules/server/server.tcl:1.14 
tcldrop/modules/server/server.tcl:1.15
--- tcldrop/modules/server/server.tcl:1.14      Sun Nov 30 20:59:52 2003
+++ tcldrop/modules/server/server.tcl   Mon Dec  1 16:38:35 2003
@@ -1,6 +1,6 @@
 # server.tcl --
 #
-# $Id: server.tcl,v 1.14 2003/12/01 01:59:52 fireegl Exp $
+# $Id: server.tcl,v 1.15 2003/12/01 21:38:35 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -27,7 +27,7 @@
 
 namespace eval ::tcldrop::server {
        variable version {0.8}
-       variable rcsid {$Id: server.tcl,v 1.14 2003/12/01 01:59:52 fireegl Exp 
$}
+       variable rcsid {$Id: server.tcl,v 1.15 2003/12/01 21:38:35 fireegl Exp 
$}
        # Provide the server module:
        package provide tcldrop::server $version
        # Initialize variables:
@@ -389,12 +389,8 @@
 
 # Register with the loaded event to start trying to get on IRC:
 bind evnt - loaded ::tcldrop::server::Loaded -priority 100
-proc ::tcldrop::server::Loaded {type} {
-       server
-}
+proc ::tcldrop::server::Loaded {type} { server }
 
 # Close the server connection if we're about to do a restart:
 bind evnt - prerestart ::tcldrop::server::PreRestart -priority 100
-proc ::tcldrop::server::PreRestart {type} {
-       quit $type
-}
\ No newline at end of file
+proc ::tcldrop::server::PreRestart {type} { quit $type }
\ No newline at end of file
Index: tcldrop/tcldrop.conf
diff -u tcldrop/tcldrop.conf:1.6 tcldrop/tcldrop.conf:1.7
--- tcldrop/tcldrop.conf:1.6    Mon Dec  1 16:19:53 2003
+++ tcldrop/tcldrop.conf        Mon Dec  1 16:38:35 2003
@@ -1,6 +1,6 @@
 # tcldrop.conf
 #
-# $Id: tcldrop.conf,v 1.6 2003/12/01 21:19:53 fireegl Exp $
+# $Id: tcldrop.conf,v 1.7 2003/12/01 21:38:35 fireegl Exp $
 #
 # This is a sample Tcldrop configuration file which includes all possible
 # settings that can be used to configure your bot.
@@ -780,24 +780,20 @@
 # Set the nick the bot uses on IRC, and on the botnet unless you specify a
 # separate botnet-nick, here.
 # Tcldrop supports this setting.
-set nick "Tclette"
+set nick "Tcldrop"
 
 # Set the alternative nick which the bot uses on IRC if the nick specified
 # by 'set nick' is unavailable. All '?' characters will be replaced by random
 # numbers.
-set altnick "Tcldr?p"
+set altnick "Tcl_drop"
 
 # Set what should be displayed in the real-name field for the bot on IRC.
 # Tcldrop supports this setting.
-set realname "/msg LamestBot hello"
+set realname "Tcldrop - http://Tcldrop.SF.Net/";
 
 # This is a Tcl script to be run immediately after connecting to a server.
 # Tcldrop supports this setting.
-bind evnt - init-server evnt:init_server
-proc evnt:init_server {type} {
-  global botnick
-  putquick "MODE $botnick +i-ws"
-}
+set init-server { putquick "MODE $::botnick +i-ws" }
 
 # Set the default port which should be used if none is specified with
 # '.jump' or in 'set servers'.