/[tcldrop]/tcldrop/modules/server/server.tcl
ViewVC logotype

Diff of /tcldrop/modules/server/server.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by fireegl, Wed May 28 19:47:53 2003 UTC revision 1.7 by fireegl, Wed Jun 4 21:02:38 2003 UTC
# Line 3  Line 3 
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  #  #
# Line 76  proc ::tcldrop::server::Read {idx line} Line 76  proc ::tcldrop::server::Read {idx line}
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          }          }
# Line 163  proc ::tcldrop::server::jump {{server {} Line 163  proc ::tcldrop::server::jump {{server {}
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]} {

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26