The bot is freezing...why?

[tessa1]

Hi, somebody knows, why the bot is freezing

Code: Select all

set ochan "#opers"

bind pub - !startservices startservices_msg
proc startservices_msg {nick uhost hand chan arg} {
  if {$::ochan != $chan} {return 0}
  exec /var/www/IRC/HUB/services/services
  exec /var/www/IRC/NeoStats/neostats
  exec /var/www/IRC/Eggdrop/eggdrop
  return 1
}

greets tessa

[Sir_Fz]

Try using [open] instead of exec. Example:

Code: Select all

set bla [open "|/var/www/IRC/HUB/services/services"]
close $bla

[demond]

because of your unresponsive (or maybe interactive, waiting input) external apps you spawn with [exec], which waits for them to finish

[tessa1]

Something like this?

Code: Select all

set ochan "#opers"

bind pub - !startservices startservices_msg
proc startservices_msg {nick uhost hand chan arg} {
  if {$::ochan != $chan} {return 0}
  set bla [open "|/var/www/IRC/HUB/services/services"]
  close $bla
  set blo [open "|/var/www/IRC/NeoStats/neostats"]
  close $blo
  set blu [open "|/var/www/IRC/Eggdrop/eggdrop"]
  close $blu
  return 1
}

[demond]

possibly like it, but not quite; you need asynchronous I/O

search forum for "tail -f"

[tessa1]

[demond]

instead of making faces, do the search and try to understand what you find (go to tcl.tk and read about [fconfigure] and [fileevent])

[tessa1]

ok...i think i should learn...learn...learn

[tessa1]

Do you mean this?

Code: Select all

bind pub - !startservices startservices_msg
proc startservices_msg {nick uhost hand chan arg} {
if {$::ochan != $chan} {return 0}

set fc [open "|tail -f /var/www/IRC/HUB/services/services"]
  fconfigure $fc -blocking 0
  fileevent $fc readable {putserv "privmsg $::ochan :[load $fc]"}
}
  return 1
}

[demond]

nope, that tail has nothing to do with your stuff, don't take things literally; also, it's not [load], it's [read]

[demond]

pity, you were on the right track