egghelp/eggheads community

Eggdrop Web Information

2007-05-04T21:13:44-04:00

Another Way I would appreciate even more is this:
The command !hello is standard and should have 2 more attributes.
!hello chair blue, !hello table green and so on.
'chair blue' will have to link to a proc, 'table green' to another proc, table red to another proc, table white also to another etc...

How to make this?

I still need to tell the script, that chair has to link to chair.htm and table to table.htm. So I will have to make a variable of the .htm.

Statistics: Posted by karodde — Fri May 04, 2007 9:13 pm

Eggdrop Web Information

2007-05-04T18:19:28-04:00

thanks,
now I have a last question.

bind pub - !hello my:test

proc my:test {nick uhost hand chan text} {
set url "http://www.site.com/$hello.htm"
set token [::http::geturl $url]
set content [::http::data $token]
::http::cleanup $content
regexp {(.*?).*?} $content fullmatch exactmatch
regexp {(.*?).*?} $content fullmatch2 exactmatch2
putserv "PRIVMSG $chan : $exactmatch"
}

I want that the ! command (in my case !hello) is set as a variable which stands for the .htm file.

For example:
Somebody types !chair, then the page http://www.site.com/chair.htm has to be proc'ed in my proc code.
When a word is typed, that not exists (at the site) then a error message has to came.
sorry for my english

that would be awsome, thanks for the help!

Statistics: Posted by karodde — Fri May 04, 2007 6:19 pm

Eggdrop Web Information

2007-05-04T17:28:35-04:00

There are newlines in the result, so you either need to remove them with regsub or do some further processing (perhaps using foreach line [split $exactmatch \n]) or even change the regexp to take account of the newlines.

As far as how to handle parameters within a single proc, you basically test for them and process them. A short example:

Code:

proc myproc {nick uhost hand chan text} {        set command [lindex [split $text] 0]        if {$command == "" || $command == "option1"} {               # do thing1        } elseif {$command == "option2"} {               #do thing2        } elseif {$command == "option3"} {               #do thing3        } else {               #do default action        }#anti-wordwrap######################################

The action part of the if's (#do thing) can call another proc and return, or call another proc and wait for the result. If you want to get the result, you use like:

Code:

#do thing1set myvar [someotherproc (optional parameters)]

where optional parameters can be input such as $command, $nick, $text, and so on, or whatever params you want to pass to "someotherproc"

If you just want to branch off to another proc, you do:

Code:

# do thing2someotherproc (optional params)return[code]Or you might want to do further processing after calling someotherproc so you leave the "return" out.You can also integrate the other subprocs into the main proc, under the "if's"Matter of style and design really. I generally keep everything in the same proc, unless it's reusable (meaning, other scripts or parts of the same script use the functions.)  As an example, when I make html scripts, if I have to do extensive regsub's or word-wrapping, I make the wordwrap and regsub functions into seperate procs, so that there's only 1 copy of that processing code, instead of duplicating it under many different "if" sections of the main proc.Hope that makes some sense.

Statistics: Posted by rosc2112 — Fri May 04, 2007 5:28 pm

Eggdrop Web Information

2007-05-04T13:58:47-04:00

Code:

bind pub - !test my:testproc my:test {nick uhost hand chan text} {          #this has to have the name theproc1  set url "http://www.site.com/page.htm"  set token [::http::geturl $url]  set content [::http::data $token]  ::http::cleanup $content  regexp {(.*?).*?} $content fullmatch exactmatch  regexp {(.*?).*?} $content fullmatch2 exactmatch2  putserv "PRIVMSG $chan : $exactmatch"}

When somebody types !test the 'proc' from my code will be outputted by eggdrop.

What I want now, is to give this 'proc' a name, so that I have to type "!test theproc1" to let the eggdrop output the proc theproc1.
I have other proc's too in the later code, I want to give each proc a name,
theproc1
theproc2
theproc3 and so on...

So is there any chance to give each 'proc' a name? I want that the command !test doesnt work, just the commands !test theproc1, !test theproc2, !test theproc3 should work.

Statistics: Posted by karodde — Fri May 04, 2007 1:58 pm

Eggdrop Web Information

2007-05-04T12:57:06-04:00

Code:

bind pub - !example my:exampleproc my:example {nick uhost hand chan text} {  set url "http://uhrzeit.org/atomuhr.html"  set token [::http::geturl $url]  set content [::http::data $token]  ::http::cleanup $content  regexp {(.*?)
.*?Die Uhrzeit} $content fullmatch exactmatch  putserv "PRIVMSG $chan :$exactmatch"}

The script doesnt work, but when I change the last line:

putserv "PRIVMSG $chan :$exactmatch"
to
putserv "PRIVMSG $chan :$fullmatch"

I get the following message from my eggdrop by typing !example

(MyEggdrop)

p.s.
for other sites it works, thanks.

Statistics: Posted by karodde — Fri May 04, 2007 12:57 pm

Eggdrop Web Information

2007-05-04T03:12:27-04:00

You want to use regexp to get the string you're looking for. From your example, something like:

Code:

regexp {(.*?)
.*?Die Uhrzeit} $htmlInput fullmatch exactmatch

There's lots of example scripts for grabbing data from html pages. Take a look around the forum and archive.

Statistics: Posted by rosc2112 — Fri May 04, 2007 3:12 am

Eggdrop Web Information

2007-05-03T07:46:57-04:00

Hello,
I need a script, which should do this:
When somebody in a channel types "!test", I want that my eggdrop automaticly posts a text/string. This text/string comes from a php or html file (http://www.site.com/thefile.html), i specified.
The Problem is, that the html source code contains much text, and I dont know how to tell the eggdrop, to post just the text/string I want.

By searching I found this example code:

Code:

bind pub - !example my:exampleproc my:example {nick uhost hand chan text} {  set url "http://your.web.server/page.php"  set token [::http::geturl $url]  set content [::http::data $token]  ::http::cleanup $content  foreach line [split $content \n] {    putserv "PRIVMSG $chan :$line"  }}

When I use this script the whole html source code is posted by the eggdrop, but I only need one string.

Example:

...code...

Here is any text
I want thistext...text
more text and so ontext

...code...

This is a part of the html source code, and I want the eggdrop to post the red marked text on my channel when somebody types !test.

Thanks for helping!

p.s.
Here another good example:
http://uhrzeit.org/atomuhr.html
(uhrzeit is german and means "Time"; uhr = a clock)

When somebody types !time, I want that the time is posted on the channel.
The source code from the website:

Code:

...code...13:39:53


Die Uhrzeit wird in regelmässigen Abständen mit.....code.....

EDIT:
I tried the script from demond (which needs tDOC), and it works. But it only works in my shell at home:) not with the eggdrop

Statistics: Posted by karodde — Thu May 03, 2007 7:19 am