egghelp/eggheads community

catch die in tcl

2003-06-02T06:25:59-04:00

So basicaly wich is wich? I failed to understand what you mean by the things you've said at the begining, oh well.. Some things are made not to be understood, just to be done/executed

Statistics: Posted by caesar — Mon Jun 02, 2003 6:25 am

catch die in tcl

2003-06-02T04:50:51-04:00

This has the be the first and last Monday morning in existance that you or any1 will ever get some good stuff from me. No I didn't get some last night, though that would have set you up for a week of good stuff

Code:

if {![info exists arewealive]} {  catch {unbind dcc n die *dcc:die}  bind dcc n die our:dcc:die  rename die our:die  proc die {rsn} {    our:dcc:die $::botnick 0 $rsn  }}set arewealive 1proc our:dcc:die {hand idx arg} {  set a 0  set b 0  foreach x [binds evnt] {    if {![string equal -nocase [lindex $x 2] predie]} { continue }    incr a    incr [numberize [[lindex $x 4] $hand $arg]]  }  if {$a == $b} { die "($hand) $arg" }}proc numberize {n} {  if {$n == ""} { return 0}  if {$n == "0"} { return 0 }  return 1}

This is untested

You use it by using the EVNT bind, and saying you wish to trigger the "predie" event.

EG

Code:

bind EVNT - predie my:event:proc

You code will be called with 2 arguments, the handle of the person doing this, or the nickname of the bot (when the Tcl die command is triggered), and the reason.

Your code should return 1 if you wish for the bot to exit normaly, and 0 if your wish to stall the exiting.

This will allow you to use some form of security script, to require a password to die, or to confirm the die.

Code:

proc my:die:function {hand rsn} {  if {![matchattr $hand Z]} { return 0 }  if {([uptime] - $uptime) < 600} { return }  return 1}bind EVNT - predie my:die:function

Do not die if the user does not have customer flag Z
Do not die if the bot has been online less than 10 mins.
Otherwise say that we are willing to let the bot die (note, other procedures you may not).

Statistics: Posted by ppslim — Mon Jun 02, 2003 4:50 am

catch die in tcl

2003-06-02T00:54:35-04:00

As far as I can see there is no such binding for what you've asked. You still can rebind the .die in another proc, save your stuff then complete the die. See the bind filt in the docs/tcl-commands.doc file.

Statistics: Posted by caesar — Mon Jun 02, 2003 12:54 am

catch die in tcl

2003-06-01T18:24:38-04:00

hmm doesnt work it seems, tried like this and did a .die from telnet

Code:

bind evnt -|- sighup quitbind evnt -|- sigterm quitbind evnt -|- sigill quitbind evnt -|- rehash quitbind evnt -|- prerehash quitbind evnt -|- prerehash quitbind evnt -|- prerestart quitproc quit { type } {   putlog "got event, $type"}

Statistics: Posted by cez — Sun Jun 01, 2003 6:24 pm

catch die in tcl

2003-06-01T15:03:09-04:00

check the bind evnt in tcl-commands.doc

Statistics: Posted by Papillon — Sun Jun 01, 2003 3:03 pm

catch die in tcl

2003-06-01T14:46:24-04:00

is there some bind i could do to run a process when catching a .die so that i can save some stuff which i dont want to do every time the value changes??

Statistics: Posted by cez — Sun Jun 01, 2003 2:46 pm