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 } |