egghelp/eggheads community

check site

2006-01-23T17:03:46-04:00

Ok, I found live.tcl but this script is ... When i use:
Code:
[20:17]  !score england[20:17]  Sorry Fclan, no score found.
Code:
[20:17]  !score e[20:17]  Newcastle Jets 1 - 0 Melbourne Victory
this script doesn`t work :/

!score england doesnt work.
Its !score

Statistics: Posted by norway27 — Mon Jan 23, 2006 5:03 pm

check site

2006-01-22T15:19:16-04:00

Ok, I found live.tcl but this script is ... When i use:

Code:

[20:17]  !score england[20:17]  Sorry Fclan, no score found.

Code:

[20:17]  !score e[20:17]  Newcastle Jets 1 - 0 Melbourne Victory

this script doesn`t work :/

Statistics: Posted by FcLan — Sun Jan 22, 2006 3:19 pm

check site

2006-01-22T05:57:37-04:00

Live.tcl ?! I was searching it, where can I get it??, @ demond, I use rssnews.tcl, but I need to know how work with http..

Statistics: Posted by FcLan — Sun Jan 22, 2006 5:57 am

check site

2006-01-21T23:02:53-04:00

use RSS script such as rssnews.tcl

Statistics: Posted by demond — Sat Jan 21, 2006 11:02 pm

check site

2006-01-21T19:26:46-04:00

For footbal results I use live.tcl that shows info from www.livescore.com
But I wish there was a script for football news..I tried to search for espn.tcl but I only got dead links

Statistics: Posted by norway27 — Sat Jan 21, 2006 7:26 pm

check site

2006-01-21T19:16:31-04:00

I need it for football results, so I need few veriables .. ;/

Statistics: Posted by FcLan — Sat Jan 21, 2006 7:16 pm

check site

2006-01-21T19:07:42-04:00

Code:

Tcl error [www:news4]: can't read "news": no such variable

Yes I got that too sometimes..I had to search through the page for another class and then change the name of the class in the script until I got it right..

Statistics: Posted by norway27 — Sat Jan 21, 2006 7:07 pm

check site

2006-01-21T19:00:03-04:00

Code:

Tcl error [www:news4]: can't read "news": no such variable

Statistics: Posted by FcLan — Sat Jan 21, 2006 7:00 pm

check site

2006-01-21T18:20:39-04:00

Something like this:

Code:

package require httpbind pub - !news www:news4proc www:news4 {nick host handle chan text} {   set token [::http::geturl http://www.webpage.com -timeout 10000]   set status [::http::status $token]   if {$status!="ok"} {      switch -exact -- [string tolower $status] {         reset   { puthelp "PRIVMSG $chan :error: server connection was reset." }         timeout { puthelp "PRIVMSG $chan :error: server timeout (10 seconds)"   }         default { puthelp "PRIVMSG $chan :unknown server error occured"      }      }      ::http::cleanup $token; return   }   if {[::http::ncode $token]=="404"} {      ::http::cleanup $token      puthelp "PRIVMSG $chan :Sorry, error 404"; return   }   set data [::http::data $token]; ::http::cleanup $token   set all [regexp -all -inline -nocase -- {class="class_story">(.*?)} $data]   set count 1   foreach {tmp news} $all {      if {$count=="2"} {return}}set all2 [regexp -all -inline -nocase -- {class="class_story"(.*?)} $data]      set count 1   foreach {tmp news2} $all2 {      if {$count=="2"} {return}      incr count   } puthelp "PRIVMSG $chan :www.webpage.com - $news" puthelp "PRIVMSG $chan :www.webpage.com - $news2"}

It was messy..got alot of html code too with it...but the bot did respond with
line 1: topic
Line 2: topic & story

I hope someone can try to fix this code because I have no idea what to do!

Statistics: Posted by norway27 — Sat Jan 21, 2006 6:20 pm

check site

2006-01-20T13:46:42-04:00

Can you show me?

Statistics: Posted by FcLan — Fri Jan 20, 2006 1:46 pm

check site

2006-01-20T12:18:54-04:00

Any ideas why mroe than 1 regexp doesn`t work? i have no tcl errors.. bot do not send msg

I got it to work a little bit if I typed in the name of the same class in both places...

Statistics: Posted by norway27 — Fri Jan 20, 2006 12:18 pm

check site

2006-01-20T10:18:57-04:00

Any ideas why mroe than 1 regexp doesn`t work? i have no tcl errors.. bot do not send msg

Statistics: Posted by FcLan — Fri Jan 20, 2006 10:18 am

check site

2006-01-19T14:21:08-04:00

I tried to make it also, but doesn`t work, don`t know why.. 0 errors in tcl..

Code:

package require httpbind pub - !news www:news4proc www:news4 {nick host handle chan text} {   set token [::http::geturl http://www.eurosport.com/football/ -timeout 10000]   set status [::http::status $token]   if {$status!="ok"} {      switch -exact -- [string tolower $status] {         reset   { puthelp "PRIVMSG $chan :error: server connection was reset." }         timeout { puthelp "PRIVMSG $chan :error: server timeout (10 seconds)"   }         default { puthelp "PRIVMSG $chan :unknown server error occured"      }      }      ::http::cleanup $token; return   }   if {[::http::ncode $token]=="404"} {      ::http::cleanup $token      puthelp "PRIVMSG $chan :Sorry, error 404"; return   }   set data [::http::data $token]; ::http::cleanup $token   set all [regexp -all -inline -nocase -- {class="storyshortmaintitle">(.*?)} $data]   set count 1   foreach {tmp news} $all {      if {$count=="2"} {return}}set all2 [regexp -all -inline -nocase -- {class="(.*?)} $data]      set count 1   foreach {tmp news2} $all2 {      if {$count=="2"} {return}      incr count   } puthelp "PRIVMSG $chan :www.eurosport.com - $news - $news2"}

Statistics: Posted by FcLan — Thu Jan 19, 2006 2:21 pm

Re: check site

2006-01-19T12:25:53-04:00

it is a news script, but I want to see latest news on channel only when site is updated.. can someone help?

Code:

package require httpbind pub - !news www:news4proc www:news4 {nick host handle chan text} {   set token [::http::geturl http://www.eurosport.com/football/ -timeout 10000]   set status [::http::status $token]   if {$status!="ok"} {      switch -exact -- [string tolower $status] {         reset   { puthelp "PRIVMSG $chan :error: server connection was reset." }         timeout { puthelp "PRIVMSG $chan :error: server timeout (10 seconds)"   }         default { puthelp "PRIVMSG $chan :unknown server error occured"      }      }      ::http::cleanup $token; return   }   if {[::http::ncode $token]=="404"} {      ::http::cleanup $token      puthelp "PRIVMSG $chan :Sorry, error 404"; return   }   set data [::http::data $token]; ::http::cleanup $token   set all [regexp -all -inline -nocase -- {class="storyshortmaintitle">(.*?)} $data]   set count 1   foreach {tmp news} $all {      if {$count=="2"} {return}      puthelp "PRIVMSG $chan :www.eurosport.com - $news"      incr count   }}

It would be great if someone could show me how this script can read from 2 classes and post it in a chan..this script reads from one-> class="storyshortmaintitle"

Lets say the 2 classes are "storyshortmaintitle" and "story"

like this:

!news
"storyshortmaintitle"
"story"

thx

Statistics: Posted by norway27 — Thu Jan 19, 2006 12:25 pm

check site

2006-01-18T07:37:12-04:00

Ok I tried to write, but it doesn`t work, i tried with normal site, with regexps which works on other scripts, here is a code with example site, where is mistake? Bot do not reply on trigger...

Code:

package require httpbind pub - !test www:testproc www:test {nick host handle chan text} {                        set lastnews ""                 set lastnews $match                 set data [http::data http::geturl www.example.com]]regexp {(.*?)

Statistics: Posted by FcLan — Wed Jan 18, 2006 7:37 am