Information from web

[TheOne1337]

Hi
I have one PHP file in my server and it contains one line text. It is good in the way it is in the file so only thing what TCL has to do is:

When somebody says in channel !example then bot says text from PHP file to channel.


I don't have very good english, but i'll hope that somebody understands.

Best Regards
Bert

[caesar]

Code: Select all

bind pub - !example my:example

proc 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"
  }
}

Something like this anyway. Use this as an example. Use the search function to find more examples related to this subject. If you (or anyone else) got any questions feel free to ask (just reply).

[TheOne1337]

Big big big thanks! It worked perfectly.

[monie089]

how can i make that tell the users online from a forum

[caesar]

TheOne1337: You'r welcome.

monie089: in your case *erase* (using regsub for instance) the crap you don't want. Example:

Code: Select all

regsub -all {<[^>]+>|<} $content { } content

Use it (the code I've posted above) as an example. Use the search function to find other discutions on this subject.

[monie089]

ok thanks

[DJmart]

How can I edit that so it PM's or notices the user?

Thanks.

[r0t3n]

Change:

Code: Select all

putserv "PRIVMSG $chan :$line"

To:

For PM:

Code: Select all

putserv "PRIVMSG $nick :$line"

For Notice:

Code: Select all

putserv "NOTICE $nick :$line"

[Justdabomb2]

nvm *edited*

I got help

~Thanks caesar