egghelp/eggheads community

TCL problem

2005-03-13T20:04:07-04:00

I think you don't know what I was talking about

your script relies on an external program (/home/shock/eggdrop/players) to feed it with results to show on IRC; that program has a bug (defect, if you will) which causes it to crash (terminate abnormally with a "segmentation violation" error message); so the whole issue doesn't have anything to do with TCL or eggdrop and you are in the wrong place to ask for help - contact your "clan" support or whoever happened to write that program

Statistics: Posted by demond — Sun Mar 13, 2005 8:04 pm

TCL problem

2005-03-13T19:51:33-04:00

I tryed your explanation, but didnt work. so still have the same problem, the only thing is that it dosent return the error. so it must be something else.. and i dont know what, cos the same code work just fine on a file called "unreal" .. and it's called the same way and everything.

Statistics: Posted by mindflow — Sun Mar 13, 2005 7:51 pm

TCL problem

2005-03-13T19:40:38-04:00

so you rather believe your line counting (and a return that spawns child process and then causes segmentation violation, lol) than my explanation?

*shrug*

Statistics: Posted by demond — Sun Mar 13, 2005 7:40 pm

TCL problem

2005-03-13T19:25:59-04:00

This is what i can get true partyline:

« bot » Tcl: child killed: segmentation violation
« bot » Tcl: while executing
« bot » Tcl: "exec /home/shock/eggdrop/players $mess3 > /tmp/players"
« bot » Tcl: (procedure "UnReal" line 92)
« bot » Tcl: invoked from within

and line 92 is:

return 0

so shouldent cos any error.. here is the code abow and below it, marked line 92:

Code:

if {$mess == "!find"} {        set mess2 [string tolower [lindex $arg 1]]        if {$mess2 == "add"} {            if {[matchattr $hand m] == 0} {                puthelp "PRIVMSG $chan :$nick, lamers kan inte adda!!!"                return 0 <<-- line 92             }            puthelp "PRIVMSG $nick :Roger on that!!!"            set word2 [string tolower [lrange $arg 2 end]]            set test [exec echo $word2 >> /home/shock/eggdrop/servers]            return 0        }        set mess3 [lindex $arg 1]        if {$mess3 == ""} {            return 0        }        set vara [exec /home/shock/eggdrop/players $mess3 > /tmp/players]         set of [open "/tmp/players"]         while {![eof $of]} {         set line [gets $of]         if {$line != ""} {                puthelp "PRIVMSG $chan : $line"         }        }        return 0}

Statistics: Posted by mindflow — Sun Mar 13, 2005 7:25 pm

TCL problem

2005-03-13T19:17:48-04:00

not an eggdrop problem

your external program /home/shock/eggdrop/players crashes and does nothing

you can catch the error and check if the output file exists:

Code:

if ![catch {exec /home/shock/eggdrop/players $mess3 > /tmp/players}] {  if [file exists /tmp/players] {    # do stuff  }}

Statistics: Posted by demond — Sun Mar 13, 2005 7:17 pm

TCL problem

2005-03-13T18:19:59-04:00

This is the error i get:

Tcl error [UnReal]: child killed: segmentation violation

this is the code i use:

Code:

        set vara [exec /home/shock/eggdrop/players $mess3 > /tmp/players]         set of [open "/tmp/players"]         while {![eof $of]} {         set line [gets $of]          if {$line != ""} {                puthelp "PRIVMSG $chan : $line"         }        }         return 0}

now to my problem, i cant figure out what cosing the error, nethe how to solve it.

set vara [exec /home/shock/eggdrop/players $mess3 > /tmp/players]

thats the line cosing it, how can i make shure the file /tmp/payers exist ? i dont know how i can add a line that says "true" or "false", somone that have any ideas?

Statistics: Posted by mindflow — Sun Mar 13, 2005 6:19 pm