[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Tcldrop/CVS] tcldrop/modules conn.tcl core.tcl dcc.tcl idx.t...
|
From: |
Philip Moore |
|
Subject: |
[Tcldrop/CVS] tcldrop/modules conn.tcl core.tcl dcc.tcl idx.t... |
|
Date: |
Tue, 27 May 2003 11:32:10 -0400 |
CVSROOT: /cvsroot/tcldrop
Module name: tcldrop
Changes by: Philip Moore <address@hidden> 03/05/27 11:32:09
Modified files:
modules : conn.tcl core.tcl dcc.tcl idx.tcl pkgIndex.tcl
modules/channels: channels.tcl pkgIndex.tcl
modules/console: console.tcl pkgIndex.tcl
modules/dns : dns.tcl pkgIndex.tcl
modules/irc : irc.tcl pkgIndex.tcl
modules/server : pkgIndex.tcl server.tcl
modules/users : pkgIndex.tcl users.tcl users_arraydb.tcl
modules/yahoo : pkgIndex.tcl yahoo.tcl
Log message:
Changed the separator for the module (package) names to ::
For example, where once was tcldrop-users-arraydb, is now
tcldrop::users::arraydb
This is the way they do it in standard Tcl packages..
I also rebuilt the pkgIndex.tcl files.. Some of them I had to do
manually. =(
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/conn.tcl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/core.tcl.diff?tr1=1.11&tr2=1.12&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dcc.tcl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/idx.tcl.diff?tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/pkgIndex.tcl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/channels/channels.tcl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/channels/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/console/console.tcl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/console/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dns/dns.tcl.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dns/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/irc/irc.tcl.diff?tr1=1.16&tr2=1.17&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/irc/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/server/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/server/server.tcl.diff?tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/users/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/users/users.tcl.diff?tr1=1.7&tr2=1.8&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/users/users_arraydb.tcl.diff?tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/yahoo/pkgIndex.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/yahoo/yahoo.tcl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
Patches:
Index: tcldrop/modules/channels/channels.tcl
diff -u tcldrop/modules/channels/channels.tcl:1.3
tcldrop/modules/channels/channels.tcl:1.4
--- tcldrop/modules/channels/channels.tcl:1.3 Sun May 25 07:18:24 2003
+++ tcldrop/modules/channels/channels.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# channels.tcl --
#
-# $Id: channels.tcl,v 1.3 2003/05/25 11:18:24 fireegl Exp $
+# $Id: channels.tcl,v 1.4 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -29,7 +29,7 @@
# Provide the users module:
variable version {0.2}
variable rcsid {$Id}
- package provide tcldrop-channels $version
+ package provide tcldrop::channels $version
# Initialize variables:
variable Channels
array set Channels {}
Index: tcldrop/modules/channels/pkgIndex.tcl
diff -u tcldrop/modules/channels/pkgIndex.tcl:1.1
tcldrop/modules/channels/pkgIndex.tcl:1.2
--- tcldrop/modules/channels/pkgIndex.tcl:1.1 Tue May 20 10:34:43 2003
+++ tcldrop/modules/channels/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,4 +8,4 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-channels 0.2 [list source [file join $dir
channels.tcl]]
+package ifneeded tcldrop::channels 0.2 [list source [file join $dir
channels.tcl]]
Index: tcldrop/modules/conn.tcl
diff -u tcldrop/modules/conn.tcl:1.2 tcldrop/modules/conn.tcl:1.3
--- tcldrop/modules/conn.tcl:1.2 Sun May 25 07:18:24 2003
+++ tcldrop/modules/conn.tcl Tue May 27 11:32:08 2003
@@ -1,6 +1,6 @@
# conn.tcl --
#
-# $Id: conn.tcl,v 1.2 2003/05/25 11:18:24 fireegl Exp $
+# $Id: conn.tcl,v 1.3 2003/05/27 15:32:08 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -31,9 +31,10 @@
namespace eval ::tcldrop::conn {
variable version {0.1}
- package provide tcldrop-conn $version
+ package provide tcldrop::conn $version
variable rcsid {$Id}
variable Defaults
+ if {![info exists ::my-ip]} { set ::my-ip {} }
set Defaults(global) [list {async} {1} {buffering} {line} {myaddr}
${::my-ip} {blocking} {0} {timeout} {237}]
# Export all the commands that should be available to 3rd-party
scripters:
namespace export connect control config
Index: tcldrop/modules/console/console.tcl
diff -u tcldrop/modules/console/console.tcl:1.3
tcldrop/modules/console/console.tcl:1.4
--- tcldrop/modules/console/console.tcl:1.3 Sun May 25 07:18:24 2003
+++ tcldrop/modules/console/console.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# console.tcl --
#
-# $Id: console.tcl,v 1.3 2003/05/25 11:18:24 fireegl Exp $
+# $Id: console.tcl,v 1.4 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -28,7 +28,7 @@
# Provide the console module:
variable version {0.1}
variable {$Id}
- package provide tcldrop-console $version
+ package provide tcldrop::console $version
#checkmodule dcc
# Export all the commands that should be available to 3rd-party
scripters:
namespace export store
Index: tcldrop/modules/console/pkgIndex.tcl
diff -u tcldrop/modules/console/pkgIndex.tcl:1.1
tcldrop/modules/console/pkgIndex.tcl:1.2
--- tcldrop/modules/console/pkgIndex.tcl:1.1 Tue May 20 10:34:43 2003
+++ tcldrop/modules/console/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,4 +8,4 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-console 0.1 [list source [file join $dir console.tcl]]
+package ifneeded tcldrop::console 0.1 [list source [file join $dir
console.tcl]]
Index: tcldrop/modules/core.tcl
diff -u tcldrop/modules/core.tcl:1.11 tcldrop/modules/core.tcl:1.12
--- tcldrop/modules/core.tcl:1.11 Tue May 27 10:14:37 2003
+++ tcldrop/modules/core.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# modules/core.tcl --
#
-# $Id: core.tcl,v 1.11 2003/05/27 14:14:37 fireegl Exp $
+# $Id: core.tcl,v 1.12 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -46,8 +46,8 @@
if {[info commands Stdout] == {}} { proc Stdout {levels channel text} {
puts "[clock format [clock seconds] -format {[%H:%M]}] $text" } }
# Provide the users module:
variable version {0.3}
- package provide tcldrop-core $version
- variable rcsid {$Id: core.tcl,v 1.11 2003/05/27 14:14:37 fireegl Exp $}
+ package provide tcldrop::core $version
+ variable rcsid {$Id: core.tcl,v 1.12 2003/05/27 15:32:09 fireegl Exp $}
# Initialize variables:
variable Binds
variable Timers
@@ -436,7 +436,7 @@
# And NOT like we currently have it:
# tcldrop-users-arraydb
# It would be best (appearance wise) if they were all changed to
be more like a standard Tcl package.
- if {(($version != {}) && ([catch { package require "tcldrop-$module"
$version } err])) || ([catch { package require "tcldrop-$module" } err])} {
+ if {(($version != {}) && ([catch { package require "tcldrop::${module}"
$version } err])) || ([catch { package require "tcldrop::$module" } err])} {
putlog "[format $::tcldrop::lang(0x209)] $module $version: $err"
puterrlog "$::errorInfo"
} else {
@@ -461,7 +461,7 @@
if {[addlang $::lang $module]} {
putlog "[format $::tcldrop::lang(0x20f) $module]"
} else {
- putlog "[format $::tcldrop::lang(0x210) $module]"
+ catch { putlog "[format $::tcldrop::lang(0x210)
$module]" }
}
}
}
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.3 tcldrop/modules/dcc.tcl:1.4
--- tcldrop/modules/dcc.tcl:1.3 Sun May 25 07:18:24 2003
+++ tcldrop/modules/dcc.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# dcc.tcl --
#
-# $Id: dcc.tcl,v 1.3 2003/05/25 11:18:24 fireegl Exp $
+# $Id: dcc.tcl,v 1.4 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -31,8 +31,8 @@
namespace eval ::tcldrop::dcc {
# Provide the users module:
variable version {0.2}
- package provide tcldrop-dcc $version
- variable rcsid {$Id: dcc.tcl,v 1.3 2003/05/25 11:18:24 fireegl Exp $}
+ package provide tcldrop::dcc $version
+ variable rcsid {$Id: dcc.tcl,v 1.4 2003/05/27 15:32:09 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
Index: tcldrop/modules/dns/dns.tcl
diff -u tcldrop/modules/dns/dns.tcl:1.3 tcldrop/modules/dns/dns.tcl:1.4
--- tcldrop/modules/dns/dns.tcl:1.3 Sat May 24 15:56:16 2003
+++ tcldrop/modules/dns/dns.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# dns.tcl --
#
-# $Id: dns.tcl,v 1.3 2003/05/24 19:56:16 fireegl Exp $
+# $Id: dns.tcl,v 1.4 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -31,8 +31,8 @@
namespace eval ::tcldrop::dns {
variable version {0.1}
- package provide tcldrop-dns $version
- variable rcsid {$Id: dns.tcl,v 1.3 2003/05/24 19:56:16 fireegl Exp $}
+ package provide tcldrop::dns $version
+ variable rcsid {$Id: dns.tcl,v 1.4 2003/05/27 15:32:09 fireegl Exp $}
# Export all the commands that should be available to 3rd-party
scripters:
namespace export dnslookup
}
Index: tcldrop/modules/dns/pkgIndex.tcl
diff -u tcldrop/modules/dns/pkgIndex.tcl:1.1
tcldrop/modules/dns/pkgIndex.tcl:1.2
--- tcldrop/modules/dns/pkgIndex.tcl:1.1 Tue May 20 10:34:44 2003
+++ tcldrop/modules/dns/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,3 +8,4 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
+package ifneeded tcldrop::dns 0.1 [list source [file join $dir dns.tcl]]
Index: tcldrop/modules/idx.tcl
diff -u tcldrop/modules/idx.tcl:1.4 tcldrop/modules/idx.tcl:1.5
--- tcldrop/modules/idx.tcl:1.4 Sun May 25 07:18:24 2003
+++ tcldrop/modules/idx.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# idx.tcl --
#
-# $Id: idx.tcl,v 1.4 2003/05/25 11:18:24 fireegl Exp $
+# $Id: idx.tcl,v 1.5 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -28,7 +28,7 @@
namespace eval ::tcldrop::idx {
variable rcsid {$id}
variable version {0.2}
- package provide tcldrop-idx $version
+ package provide tcldrop::idx $version
variable idxlist
variable idxcount
if {![info exists idxcount]} { variable idxcount 1 }
Index: tcldrop/modules/irc/irc.tcl
diff -u tcldrop/modules/irc/irc.tcl:1.16 tcldrop/modules/irc/irc.tcl:1.17
--- tcldrop/modules/irc/irc.tcl:1.16 Tue May 27 05:59:39 2003
+++ tcldrop/modules/irc/irc.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# irc.tcl --
#
-# $Id: irc.tcl,v 1.16 2003/05/27 09:59:39 Papillon Exp $
+# $Id: irc.tcl,v 1.17 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -28,8 +28,8 @@
namespace eval ::tcldrop::irc {
# Provide the users module:
variable version {0.2}
- variable rcsid {$Id}
- package provide tcldrop-irc $version
+ variable rcsid {$Id: irc.tcl,v 1.17 2003/05/27 15:32:09 fireegl Exp $}
+ package provide tcldrop::irc $version
# Initialize variables:
variable Nicks
array set Nicks {}
Index: tcldrop/modules/irc/pkgIndex.tcl
diff -u tcldrop/modules/irc/pkgIndex.tcl:1.1
tcldrop/modules/irc/pkgIndex.tcl:1.2
--- tcldrop/modules/irc/pkgIndex.tcl:1.1 Tue May 20 10:34:44 2003
+++ tcldrop/modules/irc/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,4 +8,4 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-irc 0.2 [list source [file join $dir irc.tcl]]
+package ifneeded tcldrop::irc 0.2 [list source [file join $dir irc.tcl]]
Index: tcldrop/modules/pkgIndex.tcl
diff -u tcldrop/modules/pkgIndex.tcl:1.2 tcldrop/modules/pkgIndex.tcl:1.3
--- tcldrop/modules/pkgIndex.tcl:1.2 Sat May 24 15:56:16 2003
+++ tcldrop/modules/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,7 +8,7 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-core 0.3 [list source [file join $dir core.tcl]]
-package ifneeded tcldrop-dcc 0.2 [list source [file join $dir dcc.tcl]]
-package ifneeded tcldrop-conn 0.1 [list source [file join $dir conn.tcl]]
-package ifneeded tcldrop-idx 0.2 [list source [file join $dir idx.tcl]]
+package ifneeded tcldrop::conn 0.1 [list source [file join $dir conn.tcl]]
+package ifneeded tcldrop::core 0.3 [list source [file join $dir core.tcl]]
+package ifneeded tcldrop::dcc 0.2 [list source [file join $dir dcc.tcl]]
+package ifneeded tcldrop::idx 0.2 [list source [file join $dir idx.tcl]]
Index: tcldrop/modules/server/pkgIndex.tcl
diff -u tcldrop/modules/server/pkgIndex.tcl:1.1
tcldrop/modules/server/pkgIndex.tcl:1.2
--- tcldrop/modules/server/pkgIndex.tcl:1.1 Tue May 20 10:34:44 2003
+++ tcldrop/modules/server/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,4 +8,4 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-server 0.2 [list source [file join $dir server.tcl]]
+package ifneeded tcldrop::server 0.2 [list source [file join $dir server.tcl]]
Index: tcldrop/modules/server/server.tcl
diff -u tcldrop/modules/server/server.tcl:1.4
tcldrop/modules/server/server.tcl:1.5
--- tcldrop/modules/server/server.tcl:1.4 Sun May 25 07:18:25 2003
+++ tcldrop/modules/server/server.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# server.tcl --
#
-# $Id: server.tcl,v 1.4 2003/05/25 11:18:25 fireegl Exp $
+# $Id: server.tcl,v 1.5 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -27,9 +27,9 @@
namespace eval ::tcldrop::server {
variable version {0.2}
- variable rcsid {$Id}
+ variable rcsid {$Id: server.tcl,v 1.5 2003/05/27 15:32:09 fireegl Exp $}
# Provide the server module:
- package provide tcldrop-server $version
+ package provide tcldrop::server $version
# Initialize variables:
variable Queue
array set Queue {}
Index: tcldrop/modules/users/pkgIndex.tcl
diff -u tcldrop/modules/users/pkgIndex.tcl:1.1
tcldrop/modules/users/pkgIndex.tcl:1.2
--- tcldrop/modules/users/pkgIndex.tcl:1.1 Tue May 20 10:34:44 2003
+++ tcldrop/modules/users/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -8,5 +8,6 @@
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
-package ifneeded tcldrop-users 0.2 [list source [file join $dir users.tcl]]
-package ifneeded tcldrop-users-arraydb 0.2 [list source [file join $dir
users_arraydb.tcl]]
+package ifneeded tcldrop::users 0.3 [list source [file join $dir users.tcl]]
+package ifneeded tcldrop::users::arraydb 0.2 [list source [file join $dir
users_arraydb.tcl]]
+
Index: tcldrop/modules/users/users.tcl
diff -u tcldrop/modules/users/users.tcl:1.7 tcldrop/modules/users/users.tcl:1.8
--- tcldrop/modules/users/users.tcl:1.7 Sun May 25 07:18:25 2003
+++ tcldrop/modules/users/users.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# users.tcl --
#
-# $Id: users.tcl,v 1.7 2003/05/25 11:18:25 fireegl Exp $
+# $Id: users.tcl,v 1.8 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -53,7 +53,7 @@
variable version {0.3}
variable rcsid {$Id}
# Provide the users module:
- package provide tcldrop-users $version
+ package provide tcldrop::users $version
# Export all the commands that should be available to 3rd-party
scripters:
namespace export adduser countusers validuser finduser matchattr
matchchanattr userlist passwdok getuser setuser getinfo getchaninfo
getting-users chhandle chattr botattr adduser addbot deluser delhost addchanrec
delchanrec encpass save backup reload chpass setlaston
# Set internal defaults for globals:
@@ -513,7 +513,7 @@
# Load all of the database modules..
set dbpriority 1
foreach n $userdbs {
- loadmodule "users-$n"
+ loadmodule "users::$n"
incr dbpriority
foreach c {adduser countusers validuser finduser matchattr
matchchanattr userlist passwdok getuser setuser getinfo getchaninfo
getting-users chhandle chattr botattr adduser addbot deluser delhost addchanrec
delchanrec encpass save backup reload chpass setlaston} {
if {[info commands "::tcldrop::users::${n}::$c"] != {}} {
Index: tcldrop/modules/users/users_arraydb.tcl
diff -u tcldrop/modules/users/users_arraydb.tcl:1.5
tcldrop/modules/users/users_arraydb.tcl:1.6
--- tcldrop/modules/users/users_arraydb.tcl:1.5 Sun May 25 07:18:25 2003
+++ tcldrop/modules/users/users_arraydb.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# users_arraydb.tcl --
#
-# $Id: users_arraydb.tcl,v 1.5 2003/05/25 11:18:25 fireegl Exp $
+# $Id: users_arraydb.tcl,v 1.6 2003/05/27 15:32:09 fireegl Exp $
#
# Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
#
@@ -28,7 +28,7 @@
variable version {0.2}
variable rcsid {$Id}
# Provide the users module:
- package provide tcldrop-users-arraydb $version
+ package provide tcldrop::users::arraydb $version
# Initialize the Users variable:
variable Users
array set Users {}
Index: tcldrop/modules/yahoo/pkgIndex.tcl
diff -u tcldrop/modules/yahoo/pkgIndex.tcl:1.1
tcldrop/modules/yahoo/pkgIndex.tcl:1.2
--- tcldrop/modules/yahoo/pkgIndex.tcl:1.1 Tue May 27 00:29:04 2003
+++ tcldrop/modules/yahoo/pkgIndex.tcl Tue May 27 11:32:09 2003
@@ -1 +1,11 @@
-package ifneeded tcldrop-yahoo 0.1 [list source [file join $dir yahoo.tcl]]
+# Tcl package index file, version 1.1
+# This file is generated by the "pkg_mkIndex" command
+# and sourced either when an application starts up or
+# by a "package unknown" script. It invokes the
+# "package ifneeded" command to set up package-related
+# information so that packages will be loaded automatically
+# in response to "package require" commands. When this
+# script is sourced, the variable $dir must contain the
+# full path name of this file's directory.
+
+package ifneeded tcldrop::yahoo 0.1 [list source [file join $dir yahoo.tcl]]
Index: tcldrop/modules/yahoo/yahoo.tcl
diff -u tcldrop/modules/yahoo/yahoo.tcl:1.1 tcldrop/modules/yahoo/yahoo.tcl:1.2
--- tcldrop/modules/yahoo/yahoo.tcl:1.1 Tue May 27 00:29:04 2003
+++ tcldrop/modules/yahoo/yahoo.tcl Tue May 27 11:32:09 2003
@@ -1,6 +1,6 @@
# yahoo.tcl --
#
-# $Id: yahoo.tcl,v 1.1 2003/05/27 04:29:04 fireegl Exp $
+# $Id: yahoo.tcl,v 1.2 2003/05/27 15:32:09 fireegl Exp $
#
# yahoo module for Tcldrop.
# Depends on: none.
@@ -11,8 +11,8 @@
namespace eval ::tcldrop::yahoo {
variable version {0.1}
- package provide tcldrop-yahoo $version
- variable rcsid {$Id: yahoo.tcl,v 1.1 2003/05/27 04:29:04 fireegl Exp $}
+ package provide tcldrop::yahoo $version
+ variable rcsid {$Id: yahoo.tcl,v 1.2 2003/05/27 15:32:09 fireegl Exp $}
variable server {cs6.chat.yahoo.com}
variable port {8002}
variable cookieserv {edit.yahoo.com}