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

Diff of /tcldrop/modules/console/console.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 18 02:58:31 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 36  namespace eval console { Line 36  namespace eval console {
36    
37  # Stores the console data in the userfile for $idx:  # Stores the console data in the userfile for $idx:
38  proc console::store {idx} {  proc console::store {idx} {
39          # FixMe: Complete.          if {![catch { setuser [idx2hand $idx] [console $idx] }]} {
40                    return 1
41            } else {
42                    return 0
43            }
44  }  }
45    
46  # FixMe: Provide the .console and .store DCC commands.  # FixMe: Provide the .console and .store DCC commands.

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