egghelp/eggheads community

Re: Well, there is a close...

2003-09-07T04:55:43-04:00

Code:

[...]  while {![eof $onmsg]} {    gets $onmsg msg1    set tempmsg [split $msg1 " " ]    set tempmsg0 [lindex $tempmsg 0]    switch -- $tempmsg0 {      1 - 2 - 3 - 4 - 5 {         set msg [string trimleft $msg1 $tempmsg0]      }      "" {close $onmsg ; return 1}    }    puthelp "NOTICE $nick :$msg "  }  close $onmsg[...]

This is a example to use switch...

Statistics: Posted by TsT — Sun Sep 07, 2003 4:55 am

Re: Well, there is a close...

2003-09-07T03:16:06-04:00

} elseif {[lindex $tempmsg 0] == ""} {
return 1
}

It is returning without closing the file first... as such you should
add in a "close $onmsg" before the return statement.

You should contact the author of the script, and if the script is a file in the egghelp.org database, you may want to consider contacting slennox as well.

Statistics: Posted by strikelight — Sun Sep 07, 2003 3:16 am

Well, there is a close...

2003-09-07T02:18:05-04:00

proc onjoin_out {nick addr hand chan} {
global botnick
set onmsg [open $botnick.$chan a+]
seek $onmsg 0 start

while {![eof $onmsg]} {
gets $onmsg msg1
set tempmsg [split $msg1 " " ]
if { [lindex $tempmsg 0] == "1" } {
set msg [string trimleft $msg1 "1"]
} elseif { [lindex $tempmsg 0] == "2" } {
set msg [string trimleft $msg1 "2"]
} elseif { [lindex $tempmsg 0] == "3" } {
set msg [string trimleft $msg1 "3"]
} elseif { [lindex $tempmsg 0] == "4" } {
set msg [string trimleft $msg1 "4"]
} elseif { [lindex $tempmsg 0] == "5" } {
set msg [string trimleft $msg1 "5"]
} elseif {[lindex $tempmsg 0] == ""} {
return 1
}
puthelp "NOTICE $nick :$msg "
}
close $onmsg
}

That should close it correctly, shouldnt it? btw, this isn't my code.

Statistics: Posted by Guest — Sun Sep 07, 2003 2:18 am

Too many open files.

2003-09-06T20:01:53-04:00

you have forgotten to close the file at the end of the proc

search the file where "proc onjoin_out" is in and add a close for the file thats opened

Statistics: Posted by GodOfSuicide — Sat Sep 06, 2003 8:01 pm

Too many open files.

2003-09-06T19:44:21-04:00

I run a botnet of 3 eggdrops, and on one of them (only noticed this on one so far). I get errors like:
[07:00] ERROR writing user file.
[07:04] Tcl error [onjoin_out]: couldn't open "Balthamos.#chat-world": too many open files
(4 minute difference there).
Not sure about it being a tcl error considering the user file error. If it starts getting these errors, it wont accept dcc or telnet connections either for the same reason (too many open files).

Anyone know what is wrong?

Statistics: Posted by Guest — Sat Sep 06, 2003 7:44 pm