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

[Aenguish]

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: Select all

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 {<tr[^>]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]*)<[^>]*><[^>]*><[^>]*><[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*><[^>]*><[^>]*>([^/]+)/([^<]+)<[^>]*><[^>]*>([^<]+)<[^>]*><[^>]*>[^\(]*\(([^%]+)%\)<[^>]*><[^>]*></tr>(.*)} $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

[Sir_Fz]

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.

[Aenguish]

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

[Aenguish]

Ok, here it is:

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

Code: Select all

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

[dwickie]

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

Code: Select all

global data

right after proc xxxx....

[De Kus]

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.

[Aenguish]

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

Code: Select all

proc user_search {nick uhost hand chan mode args} { 

He throws another error:

Code: Select all

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

Im really lost

[De Kus]

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 ^-^.

[Aenguish]

Yes, its :

bind pub - !nollex user_search

Do i have to call it in a different way?

[Sir_Fz]

From tcl-commands.doc:

PUB
bind pub <flags> <command> <proc>
procname <nick> <user@host> <handle> <channel> <text>

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).

[De Kus]

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

Code: Select all

bind pub - !nollex user:search

proc 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 <mode> <args>

[Aenguish]

Thanks for the "hint" *g*

[hellspawn]

Hi,

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

[Ghoete]

Can you post the script?