[Tcldrop/CVS] tcldrop/modules dcc.tcl console/console.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/17 22:43:27

Modified files:
        modules        : dcc.tcl 
        modules/console: console.tcl 

Log message:
        Okee, NOW [console] and [store] are working.. I tested 'em. =)

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dcc.tcl.diff?tr1=1.19&tr2=1.20&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/console/console.tcl.diff?tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: tcldrop/modules/console/console.tcl
diff -u tcldrop/modules/console/console.tcl:1.6 
tcldrop/modules/console/console.tcl:1.7
--- tcldrop/modules/console/console.tcl:1.6     Mon Nov 17 21:58:31 2003
+++ tcldrop/modules/console/console.tcl Mon Nov 17 22:43:27 2003
@@ -1,6 +1,6 @@
 # console.tcl --
 #
-# $Id: console.tcl,v 1.6 2003/11/18 02:58:31 fireegl Exp $
+# $Id: console.tcl,v 1.7 2003/11/18 03:43:27 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -24,7 +24,7 @@
 #
 #      console module for tcldrop.
 
-namespace eval console {
+namespace eval ::tcldrop::console {
        # Provide the console module:
        variable version {0.1}
        variable {$Id}
@@ -35,8 +35,8 @@
 }
 
 # Stores the console data in the userfile for $idx:
-proc console::store {idx} {
-       if {![catch { setuser [idx2hand $idx] [console $idx] }]} {
+proc ::tcldrop::console::store {idx} {
+       if {![catch { setuser [idx2hand $idx] console [console $idx] }]} {
                return 1
        } else {
                return 0
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.19 tcldrop/modules/dcc.tcl:1.20
--- tcldrop/modules/dcc.tcl:1.19        Mon Nov 17 21:58:31 2003
+++ tcldrop/modules/dcc.tcl     Mon Nov 17 22:43:27 2003
@@ -1,6 +1,6 @@
 # dcc.tcl --
 #
-# $Id: dcc.tcl,v 1.19 2003/11/18 02:58:31 fireegl Exp $
+# $Id: dcc.tcl,v 1.20 2003/11/18 03:43:27 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -32,7 +32,7 @@
        # Provide the users module:
        variable version {0.2}
        package provide tcldrop::dcc $version
-       variable rcsid {$Id: dcc.tcl,v 1.19 2003/11/18 02:58:31 fireegl Exp $}
+       variable rcsid {$Id: dcc.tcl,v 1.20 2003/11/18 03:43:27 fireegl Exp $}
        #checkmodule console
        # Export all the commands that should be available to 3rd-party 
scripters:
        namespace export dcclist listen putdcc getchan setchan console echo 
strip idx2hand hand2idx link bots islinked putbot putallbots sock2idx idx2sock
@@ -545,7 +545,7 @@
                # FixMe: The type may not sposta be TELNET_ID yet, need to find 
out:
                ::tcldrop::idx::Register $idx [list idx $idx sock stdout handle 
* ident User hostname Console remote address@hidden port 0 type TELNET_ID other 
"t-in  waited 1s" timestamp [unixtime]]
                # FixMe: Create a bind for when people successfully login and 
set the console settings elsewhere:
-               console $idx
+               #console $idx
                # Turn off logging to Stdout, because it's a dcc session now, 
not a screen:
                unbind log - * ::tcldrop::Stdout
        }