/[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.14 by fireegl, Mon Dec 1 01:59:52 2003 UTC revision 1.15 by fireegl, Mon Dec 1 21:38:35 2003 UTC
# Line 389  proc ::tcldrop::server::001 {from key ar Line 389  proc ::tcldrop::server::001 {from key ar
389    
390  # Register with the loaded event to start trying to get on IRC:  # Register with the loaded event to start trying to get on IRC:
391  bind evnt - loaded ::tcldrop::server::Loaded -priority 100  bind evnt - loaded ::tcldrop::server::Loaded -priority 100
392  proc ::tcldrop::server::Loaded {type} {  proc ::tcldrop::server::Loaded {type} { server }
         server  
 }  
393    
394  # Close the server connection if we're about to do a restart:  # Close the server connection if we're about to do a restart:
395  bind evnt - prerestart ::tcldrop::server::PreRestart -priority 100  bind evnt - prerestart ::tcldrop::server::PreRestart -priority 100
 proc ::tcldrop::server::PreRestart {type} {  
         quit $type  
 }  
396    proc ::tcldrop::server::PreRestart {type} { quit $type }

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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