3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.Tk> |
# Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.Tk> |
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 |
9 |
# as published by the Free Software Foundation; either version 2 |
# as published by the Free Software Foundation; either version 2 |
10 |
# of the License, or (at your option) any later version. |
# of the License, or (at your option) any later version. |
11 |
# |
# |
12 |
# This program is distributed in the hope that it will be useful, |
# This program is distributed in the hope that it will be useful, |
13 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
15 |
# GNU General Public License for more details. |
# GNU General Public License for more details. |
16 |
# |
# |
17 |
# You should have received a copy of the GNU General Public License |
# You should have received a copy of the GNU General Public License |
18 |
# along with this program (see gpl.txt); if not, write to the |
# along with this program (see gpl.txt); if not, write to the |
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.Tk |
23 |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
# Or can be found on IRC (EFNet or FreeNode) as FireEgl. |
24 |
# |
# |
76 |
# Note, we set ::server-idx everytime we read from a server socket, |
# Note, we set ::server-idx everytime we read from a server socket, |
77 |
# so that we can have basic support for multiple server connections. |
# so that we can have basic support for multiple server connections. |
78 |
set ::server-idx $idx |
set ::server-idx $idx |
79 |
RAW $from $key $arg |
callraw $from $key $arg |
80 |
} else { |
} else { |
81 |
Error {EOF} {Got EOF From Server} |
Error {EOF} {Got EOF From Server} |
82 |
} |
} |
163 |
|
|
164 |
# This runs all the RAW IRC binds: |
# This runs all the RAW IRC binds: |
165 |
# (They should return 0 if they want tcldrop to continue processing, 1 if not.) |
# (They should return 0 if they want tcldrop to continue processing, 1 if not.) |
166 |
proc ::tcldrop::server::RAW {from key arg} { |
proc ::tcldrop::server::callraw {from key arg} { |
167 |
foreach a [binds raw] { |
foreach a [binds raw] { |
168 |
foreach {type flags mask count proc} $a {} |
foreach {type flags mask count proc} $a {} |
169 |
if {[string equal -nocase $mask $key]} { |
if {[string equal -nocase $mask $key]} { |