2 |
# |
# |
3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.Tk> |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.CJB.Net> |
6 |
# |
# |
7 |
# This program is free software; you can redistribute it and/or |
# This program is free software; you can redistribute it and/or |
8 |
# modify it under the terms of the GNU General Public License |
# modify it under the terms of the GNU General Public License |
19 |
# Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
# Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
20 |
# Or visit http://www.GNU.Org/licenses/gpl.html |
# Or visit http://www.GNU.Org/licenses/gpl.html |
21 |
# |
# |
22 |
# The author of this project can be reached at FireEgl@Tcldrop.Tk |
# The author of this project can be reached at FireEgl@Tcldrop.CJB.Net |
23 |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
24 |
# |
# |
25 |
# share module for tcldrop. |
# share module for tcldrop. |
43 |
#::tcldrop::SetDefault blah 1 |
#::tcldrop::SetDefault blah 1 |
44 |
} |
} |
45 |
|
|
46 |
bind bot - share ::tcldrop::share::share |
bind share - users ::tcldrop::share::share |
47 |
proc ::tcldrop::share::share {data} { |
proc ::tcldrop::share::share {type command data} { |
48 |
|
putlog "Inside ::tcldrop::share::share $type $command $data" |
49 |
} |
} |