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

Diff of /tcldrop/modules/channels/channels.tcl

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

revision 1.5 by fireegl, Fri Nov 14 15:58:47 2003 UTC revision 1.6 by fireegl, Tue Nov 25 23:17:14 2003 UTC
# Line 3  Line 3 
3  # $Id$  # $Id$
4  #  #
5  # Copyright (C) 2003 FireEgl (Philip Moore) <FireEgl@Tcldrop.CJB.Net>  # 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
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.CJB.Net  # 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  #  #
# Line 206  proc ::tcldrop::channels::loadchannels { Line 206  proc ::tcldrop::channels::loadchannels {
206                  #        are no longer in use, and discard them.                  #        are no longer in use, and discard them.
207                  array set Channels [read $fid [file size $::chanfile]]                  array set Channels [read $fid [file size $::chanfile]]
208                  close $fid                  close $fid
209                    SetUdefDefaults
210          } else {          } else {
211                  putlog "no chanfile exists..yet."                  putlog "no chanfile exists..yet."
212          }          }

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

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