egghelp/eggheads community

adding a search

2011-03-30T15:02:21-04:00

Alright, thanks for all your help

Statistics: Posted by streamish — Wed Mar 30, 2011 3:02 pm

adding a search

2011-03-30T15:08:01-04:00

Rehash fails

Code:

[oldskewl(dcc)] [11:06:29] Writing channel file...[oldskewl(dcc)] [11:06:29] Listening at telnet port 42000 (all).[oldskewl(dcc)] [11:06:29] Loading netbots.tcl v4.10...[oldskewl(dcc)] [11:06:29] Tcl error in file 'oldskewl.conf':[oldskewl(dcc)] [11:06:29] can't read "version": no such variable[oldskewl(dcc)]     while executing[oldskewl(dcc)] "split $version"[oldskewl(dcc)]     invoked from within[oldskewl(dcc)] "if {[string trimleft [lindex [split $version] 1] 0] < 1032200} {[oldskewl(dcc)]   die "*** netbots.tcl $nb_ver requires eggdrop 1.3.22 or later. Please upgrade your ..."[oldskewl(dcc)]     (file "netbots/netbots.tcl" line 13)[oldskewl(dcc)]     invoked from within[oldskewl(dcc)] "source netbots/netbots.tcl"[oldskewl(dcc)]     (file "oldskewl.conf" line 1374)[oldskewl(dcc)] [11:06:29] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)*** Connection closed

I simply do not get it. lol

But like I said, if I change the code to read the file locally, everything works fine.

It isn't this script causing your issue. It's "netbots" causing your issue here. For some reason or another. You may need to contact "slennox" personally on this one. The owner of these very forums. "netbots" is his baby..

note: You can likely #comment or remove all those $version checks as your likely not using such an ancient eggdrop.

Statistics: Posted by speechles — Wed Mar 30, 2011 2:59 pm

adding a search

2011-03-30T14:09:05-04:00

On a side note, I have tried this on multiple eggdrops on different servers. Same result. The script itself runs fantastic. It only crashes when I need to rehash the eggdrop

Statistics: Posted by streamish — Wed Mar 30, 2011 2:09 pm

adding a search

2011-03-30T14:08:28-04:00

Used your code exactly.

Launches fine

Code:

[11:05:49] Writing channel file...[11:05:49] Userfile loaded, unpacking...[11:05:49] === oldskewl: 3 channels, 349 users.Launched into the background  (pid: 94069)

Rehash fails

Code:

[oldskewl(dcc)] [11:06:29] Writing channel file...[oldskewl(dcc)] [11:06:29] Listening at telnet port 42000 (all).[oldskewl(dcc)] [11:06:29] Loading netbots.tcl v4.10...[oldskewl(dcc)] [11:06:29] Tcl error in file 'oldskewl.conf':[oldskewl(dcc)] [11:06:29] can't read "version": no such variable[oldskewl(dcc)]     while executing[oldskewl(dcc)] "split $version"[oldskewl(dcc)]     invoked from within[oldskewl(dcc)] "if {[string trimleft [lindex [split $version] 1] 0] < 1032200} {[oldskewl(dcc)]   die "*** netbots.tcl $nb_ver requires eggdrop 1.3.22 or later. Please upgrade your ..."[oldskewl(dcc)]     (file "netbots/netbots.tcl" line 13)[oldskewl(dcc)]     invoked from within[oldskewl(dcc)] "source netbots/netbots.tcl"[oldskewl(dcc)]     (file "oldskewl.conf" line 1374)[oldskewl(dcc)] [11:06:29] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)*** Connection closed

I simply do not get it. lol

But like I said, if I change the code to read the file locally, everything works fine.

Statistics: Posted by streamish — Wed Mar 30, 2011 2:08 pm

adding a search

2011-03-30T13:57:47-04:00

You missed a brace somewhere else then or otherwise made a small mistake. To remedy the issue, try the complete code below. This should work.

Code:

# requires http packagepackage require http# can we load our web sourced shoelace list?if {[catch {set shoefile [::http::geturl "http://shoelace.org/picdump.txt" -timeout 5000]} error]} {  # no, report error, empty the list  putlog "ERROR: Cannot create link list ( $error )"  set shoelace [list]} else {  # yes, success, build the list  set shoelace [split [http::data $shoefile] "\n"]  ::http::cleanup $shoefile ; unset shoefile} bind pub - !shoelace pub_shoelaceproc pub_shoelace {nick mask hand channel text} {  global shoelace  if {[string length [string trim $text]]} {    #user supplied a search-term    set hits [lsearch -all $shoelace *[string trim $text]*]    #test if we found any..    if {[llength $hits] > 0} {      #We've got atleast one match, pick a random one if we've got multiple ones      set item [lindex $hits [rand [llength $hits]]] ; set status "SEARCH FOUND"    } else {      #No hits, pick a random line from the list      set item [rand [llength $shoelace]] ; set status "RANDOMIZED"    }  } else {    #No search-term supplied, pick a random item    set item [rand [llength $shoelace]] ; set status "RANDOMIZED"  }  putserv "PRIVMSG $channel :\[$status\] [lindex $shoelace $item]"}

Statistics: Posted by speechles — Wed Mar 30, 2011 1:57 pm

adding a search

2011-03-30T13:46:25-04:00

Sorry, I was copying the code from here rather than from my source. My code does have the bracket.

Code:

package require httpif {[catch {set shoefile [::http::geturl "http://shoelace.org/picdump.txt" -timeout 5000]} error]} {  putlog "ERROR: Cannot create link list ( $error )"  set shoelace [list] ; unset shoefile} else {  set shoelace [split [http::data $shoefile] "\n"]  ::http::cleanup $shoefile ; unset shoefile}

But rehash is still crashing the bot with the odd errors

Statistics: Posted by streamish — Wed Mar 30, 2011 1:46 pm

adding a search

2011-03-30T13:43:39-04:00

Code:

if [catch {set shoefile [::http::geturl "http://www.whateverdomain.com/links.txt" -timeout 5000]} error]} {

I thought you said you fixed that missing brace there son...

Notice, between if and [ is a missing { ...
We discussed this above, scroll up... This is the problem, that unaligned brace.. Fix it like you said you already did... Mark your thread [solved] once you do ... heh

Statistics: Posted by speechles — Wed Mar 30, 2011 1:43 pm

adding a search

2011-03-30T13:43:54-04:00

You would think so, and thats why this issue is so odd. When I disable the script and restart the eggdrop there are no errors, and i can rehash fine. Only when the script is loaded will it crash the bot with the errors, unrelating to the script.

Also, when I changed

Code:

package require http if [catch {set shoefile [::http::geturl "http://www.whatever.com/links.txt" -timeout 5000]} error]} {   putlog "ERROR: Cannot create link list ( $error )"   set shoelace [list] ; unset shoefile } else {   set shoelace [split [http::data $shoefile] "\n"]   ::http::cleanup $shoefile ; unset shoefile }

Code:

set shoefile [open "scripts/links.txt" r] set shoelace [split [read -nonewline $shoefile] "\n"] close $shoefile ; unset shoefile

There are no longer errors. This is why I assume it must be in the first set of code.

Statistics: Posted by streamish — Wed Mar 30, 2011 1:39 pm

adding a search

2011-03-30T13:33:59-04:00

die "*** netbots.tcl $nb_ver requires eggdrop 1.3.22 or later. Please upgrade your ..."
(file "netbots/netbots.tcl" line 13)
invoked from within
"source netbots/netbots.tcl"

The error clearly states the contrary to what you think is the culprit.

Statistics: Posted by caesar — Wed Mar 30, 2011 1:33 pm

adding a search

2011-03-30T13:30:04-04:00

Actually I take it back. All of these conflicts seem to be due to this piece of code

Code:

package require http if [catch {set shoefile [::http::geturl "http://www.whateverdomain.com/links.txt" -timeout 5000]} error]} {   putlog "ERROR: Cannot create link list ( $error )"   set shoelace [list] ; unset shoefile } else {   set shoelace [split [http::data $shoefile] "\n"]   ::http::cleanup $shoefile ; unset shoefile }

Any possible reasons?

Statistics: Posted by streamish — Wed Mar 30, 2011 1:30 pm

adding a search

2011-03-29T19:22:09-04:00

I'm having a super weird problem with my script, and it's been happening from the beginning of usage, I just figured it was something random.
Every time I .rehash the bot crashes with the following errors:

Code:

 [16:18:17] *** Can't load Userinfo TCL v1.07 -- At least Eggdrop v1.4.3 required [16:18:17] Loading netbots.tcl v4.10... [16:18:17] Tcl error in file 'oldskewl.conf': [16:18:17] can't read "version": no such variable     while executing "split $version"     invoked from within "if {[string trimleft [lindex [split $version] 1] 0] < 1032200} {   die "*** netbots.tcl $nb_ver requires eggdrop 1.3.22 or later. Please upgrade your ..."     (file "netbots/netbots.tcl" line 13)     invoked from within "source netbots/netbots.tcl"     (file "oldskewl.conf" line 1374) [16:18:17] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)*** Connection closed

I have absolutely no idea what this might be, because its two totally different scripts which are not communicating with each other. Also, this only happens when I load the TCL in question. If I disable i can start/rehash with no problems. Eggdrop version is 1.6.20

Statistics: Posted by streamish — Tue Mar 29, 2011 7:22 pm

adding a search

2011-03-25T03:01:54-04:00

Hahaha, no problem. I should have caught that myself =P

Statistics: Posted by streamish — Fri Mar 25, 2011 3:01 am

adding a search

2011-03-25T02:55:26-04:00

Try this instead...

Code:

package require httpif {[catch {set shoefile [::http::geturl "http://www.whateverdomain.com/links.txt" -timeout 5000]} error]} {  putlog "ERROR: Cannot create link list ( $error )"  set shoelace [list] ; unset shoefile} else {  set shoelace [split [http::data $shoefile] "\n"]  ::http::cleanup $shoefile ; unset shoefile}

That's what giving advice at midnight does to me.. lmfao

I missed a leading start brace { to lead the "if" expression containing the catch. My bad.. sorry to have caused your bot to crash...

Statistics: Posted by speechles — Fri Mar 25, 2011 2:55 am

adding a search

2011-03-25T02:50:34-04:00

Not sure what happened with that snippet of code. Eggdrop crashed, and I'm getting this error:

Code:

[23:49:49] Tcl error in file 'oldskewl.conf':[23:49:49] invalid character "}"in expression "0}"    (parsing expression "0}")    invoked from within"if [catch {set shoefile [http::geturl "http://www.oldskewl.info/links.txt" -timeout 5000]} error]} {  putlog "ERROR: Cannot create link list ( $erro..."    (file "scripts/SorgIS.tcl" line 50)    invoked from within

Statistics: Posted by streamish — Fri Mar 25, 2011 2:50 am

adding a search

2011-03-25T02:40:31-04:00

It wouldn't quite work that way. File handlers are not the same as http socket handlers.
A very basic way to accomplish it would be as follows:

Code:

set shoefile [open "scripts/links.txt" r]set shoelace [split [read -nonewline $shoefile] "\n"]close $shoefile ; unset shoefile

Change what you see above, to look like it does below.

Code:

package require httpif [catch {set shoefile [::http::geturl "http://www.whateverdomain.com/links.txt" -timeout 5000]} error]} {  putlog "ERROR: Cannot create link list ( $error )"  set shoelace [list] ; unset shoefile} else {  set shoelace [split [http::data $shoefile] "\n"]  ::http::cleanup $shoefile ; unset shoefile}

This of course doesn't account for redirects, cookies, secure sockets, gzip, other types of http transaction errors, etc. This method simply assumes your http call will succeed with a code 200 always. We will assume it always does.

Statistics: Posted by speechles — Fri Mar 25, 2011 2:40 am