egghelp/eggheads community

this is awfull

2002-10-13T03:31:03-04:00

no...not only if i add url in 4 lines by using copy paste, this error also appear even if i add url one by one. It said to many open files:

[00:19] Tcl error [newz]: couldn't open "/blah/blah/file(2)": too many open files
[00:19] Tcl error in script for 'timer7077':
[00:19] couldn't open "/blah/blah/file(3)": too many open files

but

if {![file exists files(1)]} { set f [open $files(1) a+]; close $f }
if {![file exists files(2)]} { set f [open $files(2) a+]; close $f }
if {![file exists files(3)]} { set f [open $files(3) a+]; close $f }
if {![file exists files(4)]} { set f [open $files(4) a+]; close $f }
and

seek $a 0 end
seek $c 0 end
seek $e 0 end
seek $g 0 end
catch {close $a}
catch {close $c}
catch {close $e}
catch {close $g}

should close files that have been opened before Right?
how to prevent this error apear again? arrrrgggg...pls....i need help

Statistics: Posted by Guest — Sun Oct 13, 2002 3:31 am

error

2002-10-13T03:11:00-04:00

i dont understand....if i add more than 4 lines url, seems this error bugging me sometimes, and makes me have to restart my bot:

[23:58] Tcl error [newz]: couldn't open "/blah/blah/file(4)": too many open files

is this bugs

Statistics: Posted by Guest — Sun Oct 13, 2002 3:11 am

Request Help plz

2002-10-10T05:15:11-04:00

cool... thx
but...i think my bot became quite slow to respon after i add something, dont you think so?

Statistics: Posted by Guest — Thu Oct 10, 2002 5:15 am

Request Help plz

2002-10-08T03:21:54-04:00

I tested exactly that script on my bot.. all I changed was ofc the files and I added this:

Code:

if {![file exists files(1)]} { set f [open $files(1) a+]; close $f } if {![file exists files(2)]} { set f [open $files(2) a+]; close $f } if {![file exists files(3)]} { set f [open $files(3) a+]; close $f } if {![file exists files(4)]} { set f [open $files(4) a+]; close $f }

it worked like a charm...

Statistics: Posted by Papillon — Tue Oct 08, 2002 3:21 am

Request Help plz

2002-10-08T02:51:08-04:00

i tried that, put $a $text, but the result is still the same, my bot cannot detect either

maybe this code cannot detect more than one file, and only work and detect 1 file, though theorical and logically this code should work, but in practice, things dont always match with theory

i dont know, maybe there's some code I missed, so guys...do you mind to correct this code below or maybe test it, maybe there's something missing on it

set files(1) "/eggdrop/scripts/newfile"
set files(2) "/eggdrop/scripts/c"
set files(3) "/eggdrop/scripts/b"
set files(4) "/eggdrop/myscripts/a"

proc newz {nick host hand text} {
global files
set a [open $files(1) r+]
set b [read $a]
set c [open $files(2) r+]
set d [read $c]
set e [open $files(3) r+]
set f [read $e]
set g [open $files(4) r+]
set h [read $g]

if {[string match -nocase "*$text*" $b] || [string match -nocase "*$text*" $d] || [string match -nocase "*$text*" $f] || [string match -nocase "*$text*" $h]} {
return 0
}
seek $a 0 end
seek $c 0 end
seek $e 0 end
seek $g 0 end
puts $a $text
catch {close $a}
catch {close $c}
catch {close $e}
catch {close $g}
}

putlog "test.tcl loaded"

Statistics: Posted by Guest — Tue Oct 08, 2002 2:51 am

Request Help plz

2002-10-04T02:52:44-04:00

hey u didn't follow my code....
yours:

Code:

} seek $a 0 end seek $c 0 end seek $e 0 end puts $a {text} catch {close $a} catch {close $c} catch {close $e} }

mine:

Code:

} seek $a 0 end seek $c 0 end seek $e 0 end puts $a $text catch {close $a} catch {close $c} catch {close $e}}

do you see the difference here? Tou are putting only the string "text" in the file... not the variable $text..... so u can type your url as many times as you want, bu tit will still just put "text" in the file

Statistics: Posted by Papillon — Fri Oct 04, 2002 2:52 am

Request Help plz

2002-10-03T15:41:53-04:00

1) You need to close those files in the:

f {[string match -nocase "*$text*" $b]||[string match -nocase "*$text*" $d]||[string match -nocase "*$text*" $f]} {
close $a
Close $c
close $e
return
}

2) Did you try: putlog "$b $d $f"
So to check the actuall stuff you read?

Statistics: Posted by darko`` — Thu Oct 03, 2002 3:41 pm

Request Help plz

2002-10-03T03:14:56-04:00

set files(1) "/blah/blah/new"
set files(2) "/blah/blah/file1"
set files(3) "/blah/blah/file2"

proc add_url {nick host hand text} {
global files
set a [open $files(1) r+]
set b [read $a]
set c [open $files(2) r+]
set d [read $c]
set e [open $files(3) r+]
set f [read $e]

if {[string match -nocase "*$text*" $b]||[string match -nocase "*$text*" $d]||[string match -nocase "*$text*" $f]} {
return 0
}
seek $a 0 end
seek $c 0 end
seek $e 0 end
puts $a {text}
catch {close $a}
catch {close $c}
catch {close $e}
}

do you mean like this?
but it still didnt work, my bot even cannot detect if the url is on those files?
think i have already give up and so depert , sorry to disturb you guys, but thx for helped me

Statistics: Posted by Guest — Thu Oct 03, 2002 3:14 am

Request Help plz

2002-10-02T06:21:32-04:00

Code:

} seek $a 0 end seek $c 0 end seek $e 0 end puts $a {text} catch {close $a}

alot of bugs here
u are forgetting to close all the files..
and the only thing u are putting into the file are the string "text"
should be

Code:

} seek $a 0 end seek $c 0 end seek $e 0 end puts $a $textcatch {close $a} catch {close $c} catch {close $e}

Statistics: Posted by Papillon — Wed Oct 02, 2002 6:21 am

Request Help plz

2002-10-02T06:06:58-04:00

may I ask why you are using 4 files?

Statistics: Posted by Papillon — Wed Oct 02, 2002 6:06 am

Request Help plz

2002-10-02T06:04:16-04:00

hmm...i try to write like this:

set files(1) "/blah/blah/new.txt"
set files(2) "/blah/blah/file3.txt"
set files(3) "/blah/blah/file2.txt"
set files(4) "/blah/blah/file1.txt"

if {![file exist files(1)]} { set f [open $files(1) a+]; close $f }
if {![file exist files(2)]} { set f [open $files(2) a+]; close $f }
if {![file exist files(3)]} { set f [open $files(3) a+]; close $f }
if {![file exist files(4)]} { set f [open $files(4) a+]; close $f }

proc add_url {nick host hand text} {
global files
set a [open $files(1) r+]
set b [read $a]
set c [open $files(2) r+]
set d [read $c]
set e [open $files(3) r+]
set f [read $e]
if {[string match -nocase "*$text*" $b]||[string match -nocase "*$text*" $d]||[string match -nocase "*$text*" $f]} {
return 0
}
seek $a 0 end
seek $c 0 end
seek $e 0 end
puts $a {text}
catch {close $a}

but my bot only detect if the url already on new file, then i add a different url (that not exist in new file but already exist in file1) example http://bot.com, my bot cant detect it and then add it to new file, even if i add it again, the bot still add it to new file (so, http://bot.com becomes double in new file)

Statistics: Posted by Guest — Wed Oct 02, 2002 6:04 am

Request Help plz

2002-10-02T05:05:18-04:00

do like this:

Code:

set files(1) "/home/blah/blah/file1"set files(2) "/home/blah/blah/file2"set files(3) "/home/blah/blah/file3"## etc.. add as many as u needif {![file exist files(1)]} { set f [open $files(1) a+]; close $f }if {![file exist files(2)]} { set f [open $files(1) a+]; close $f }if {![file exist files(3)]} { set f [open $files(1) a+]; close $f }## etc.. must match the number of filesproc add_url {nick host hand text} { global filesset a [open $files(1) r+] set b [read $a] set c [open $files(2) r+]## etc... u have to open and read the files one by one

Statistics: Posted by Papillon — Wed Oct 02, 2002 5:05 am

Request Help plz

2002-10-02T04:13:39-04:00

???
do you mean i must add
if {![file exist file]} { set f [open $file a+]; close $f }
above set a [open $files r+] line??

I try to put it but it still appear error message same with the last, then i try to put it bellow set b [read $a] line, but it show error [01:07] Tcl error [add_url]: invalid command name "files"

can u more specify where i must do?? i'm still really confuse

thx

Statistics: Posted by Guest — Wed Oct 02, 2002 4:13 am

Request Help plz

2002-10-02T02:50:22-04:00

Code:

set a [open $files r+]

u have to split up $files before u can read them
use:

Code:

if {![file exist file]} { set f [open $file a+]; close $f }

to check if a file exsits

Statistics: Posted by Papillon — Wed Oct 02, 2002 2:50 am

Request Help plz

2002-10-02T02:41:07-04:00

is this can check some file too? I mean bot can check url in some file (file1,file2,newfile) and if doesnt exist, then the bot add it to newfile

i try to write like this:

set files {
{/home/blah/blah/file1}
{/home/blah/blah/file2}
{/home/blah/blah/newfile}

set file "/home/blah/blah/newfile"

proc add_url {nick host hand text} {
global files file
set a [open $files r+]
set b [read $a]
set c [open $file r+]

if {[string match -nocase "*$text*" $b]} {
return 0
}
puts $c {text}
catch {close $a}

but it didnt work and an error message appear:

[14:41] Tcl error [add_url]: couldn't open "
{/home/blah/blah/file1}
{/home/blah/blah/file2}
{/home/blah/blah/newfile}
": no such file or directory

what's wrong? is there any missing code i put??
thx

Statistics: Posted by Guest — Wed Oct 02, 2002 2:41 am