Simple read & display webpage script

[Astatine]

Hi all, I need help writing a very simple script. It needs to take a pubic msg from a channel that specifies an id number (such as !id 999) and then grab the contents of a page (such as www.domain.com/content.php?id=999) and display it. The id number will change and the output of the web page can be very bare, just the needed data. Can someone help me with this? Thanks.

[demond]

Code: Select all

package require http
bind pub - !id foo
proc foo {n u h c t} {
  set t [::http::geturl http://www.domain.com/content.php?id=$t]
  foreach line [split [::http::data $t] \n] {puthelp "privmsg $c :$line"}
  ::http::cleanup $t
}

you might want to add some error checking to this

[Astatine]

Thanks, it works perfectly.

[DJ-X-Ray133]

Hi,
I wrote a Script in PHP on my Webserver.
The content of this script changes often a day.

I need a script that gets the content only when its requestet by !foo in a channel. How can i do this???

Does your Script do this demond?

Thank you,
Dj-X-Ray133

[demond]

try it, changing the URL to yours

[DJ-X-Ray133]

It seems to work great, thank you.

But some people in my channel don't like bots so i decided to let him act by msg and not by public requests. But when I msg the !command the console says:

[01:55] Tcl error [today]: wrong # args: should be "today n u h c t"

how can i fix it?

[demond]

Code: Select all

package require http 
bind msg - cmd foo 
proc foo {n u h t} { 
  set t [::http::geturl http://yourURL] 
  foreach line [split [::http::data $t] \n] {puthelp "notice $n :$line"} 
  ::http::cleanup $t 
} 

[DJ-X-Ray133]

Thank you very much it works perfect. But how can I use two or more arguments vor the website like $t???

Sry, i dont like tcl much, i'd like a php module for eggdrop ^^

Cya, Dj-X-Ray133

[DJ-X-Ray133]

Maybe i hsould describe it more:
i want that the users that give the bot the command can use two arguments, like
!foocmd foo1 foo2

And then it would go to a homepage like
http://foo.org/foo.php?foo1=$foo1&foo2=$foo2

Is that possible????

[demond]

Code: Select all

package require http 
bind msg - cmd foo 
proc foo {n u h t} { 
  set foo1 [lindex [split $t] 0]
  set foo2 [lindex [split $t] 1]
  set t [::http::geturl http://foo.org/foo.php?foo1=${foo1}&foo2=${foo2}] 
  foreach line [split [::http::data $t] \n] {puthelp "notice $n :$line"} 
  ::http::cleanup $t 
}