egghelp/eggheads community

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-06-15T09:47:23-04:00

Can you post the script?

Statistics: Posted by Ghoete — Wed Jun 15, 2005 9:47 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-05-28T09:14:08-04:00

Hi,

i'm trying to do the same script. do you get it work ?

Statistics: Posted by hellspawn — Sat May 28, 2005 9:14 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-29T03:50:25-04:00

Thanks for the "hint" *g*

Statistics: Posted by Aenguish — Fri Apr 29, 2005 3:50 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-28T03:43:00-04:00

ROFL
dont you think you have forgotten to send the output somewhere? ^^

Code:

bind pub - !nollex user:searchproc user:search {nick uhost hand chan text} {   set text [split $text]   puthelp "NOTICE $nick :[user_search [lindex $text 0] [join [lrange $text 1 end]]]"   return 0}

use something like this and stop making so funny things .
usage with be then:
!nollex

Statistics: Posted by De Kus — Thu Apr 28, 2005 3:43 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-27T18:51:21-04:00

From tcl-commands.doc:

PUB
bind pub
procname

Description: used for commands given on a channel. The first word
becomes the command and everything else is the text argument.
Module: irc

so from your initial proc, mode is the nick and args is the rest (i.e. uhost hand chan text).

Statistics: Posted by Sir_Fz — Wed Apr 27, 2005 6:51 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-27T17:48:56-04:00

Yes, its :

bind pub - !nollex user_search

Do i have to call it in a different way?

Statistics: Posted by Aenguish — Wed Apr 27, 2005 5:48 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-27T16:23:34-04:00

have you any activ binds to that proc? the proc seems to be intented to be called as function, not to be triggered by a bind ^-^.

Statistics: Posted by De Kus — Wed Apr 27, 2005 4:23 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-27T07:22:20-04:00

Yes, mode was always the nickname, i dont see why, but when i give args like that:

Code:

proc user_search {nick uhost hand chan mode args} {

He throws another error:

Code:

Error: Mode has to be 1, 2 or 3. (Not "1 micromaster"!)

Im really lost

Statistics: Posted by Aenguish — Wed Apr 27, 2005 7:22 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T14:46:36-04:00

you cannot use the code above.
your error can only occure, when $mode is lord or Aenguish etc.
but the code you posted doesnt allow to be $mode something like that. I confirmed the regexp and the error command do work that way they are supposed to.

If nothing helps, replace the var name "args" with "arg" and give it a try again. I don't see why it could cause it, but its obvious, mode doesnt contain the number its suppsed to.

Statistics: Posted by De Kus — Tue Apr 26, 2005 2:46 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T14:43:53-04:00

i'am not tcl expert, but try to put (not really know, if it help)

Code:

global data

right after proc xxxx....

Statistics: Posted by dwickie — Tue Apr 26, 2005 2:43 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T14:31:48-04:00

Ok, here it is:

marvin <- Name of the Bot
lord <- User who calls the script

Code:

[20:30]  Currently: can't read "data(lord)": no such element in array[20:30]  Currently:     while executing[20:30]  Currently: "set string $data($mode) "[20:30]  Currently:     (procedure "user_search" line 6)[20:30]  Currently:     invoked from within[20:30]  Currently: "user_search $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by Aenguish — Tue Apr 26, 2005 2:31 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T14:21:37-04:00

"Aenguish" is the Nickname of the one who calls the script.
ok, i will try .set errorinfo and post the result

Statistics: Posted by Aenguish — Tue Apr 26, 2005 2:21 pm

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T11:58:11-04:00

There is no $data(aenguish) in the proc you displayed, the error's probably comming from another proc, try .set errorInfo in your partyline to know more info about the error.

Statistics: Posted by Sir_Fz — Tue Apr 26, 2005 11:58 am

Need help with Web Parsing-like Eggdrop/TCL-Script

2005-04-26T05:48:35-04:00

Hi there, I have a Problem with an TCL-Script for my Windrop.

It should output the Playerinfos from www.nollex.de in the Channel when its called with e.g."user_search 3 micromaster".

Its for a Browsergame called ogame (www.ogame.de)
I´m really new to this Eggdrop/tcl stuff, would be really kind if someone could help me bit out

Heres the script:

Code:

proc user_search {mode args} {   if {![regexp {\A[123]{1}\Z} $mode]} {error "Error: Mode has to be 1, 2 or 3. (Not \"$mode\"!)"}   package require http   foreach char [split $args {}] { append keyword %[format %x [scan $char %c]] }   set string [::http::data [::http::geturl http://www.nollex.de/ogame/se_uni1.php?cmbAllyPlayer=Player&txtSuchen=$keyword]]   regexp {..:: punkte ::..(.*)..:: forschung ::..(.*)..:: flotte ::..(.*)\Z} $string -> data(1) data(2) data(3)   set string $data($mode)   set output {}   while {[regexp {]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]*)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*>([^/]+)/([^<]+)<[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*>[^\(]*\(([^%]+)%\)<[^>]*><[^>]*>(.*)} $string -> rank player ally score from to scoregain percent string]} {     append output "$rank / $player / $ally / $score / $from - $to / $scoregain / $percent%\n"   }   return [string trim $output]

The Error message reads:

Tcl error [user_search]: can't read "data(aenguish)": no such element in array

Thanks for reading, greats Aenguish

Statistics: Posted by Aenguish — Tue Apr 26, 2005 5:48 am