timer

[FcLan]

Timer, how to send last post to channel very 30 minutes
pls just help me with timer.. thx

Code: Select all

package require http
bind pub - !forum www:news
proc www:news {nick host handle chan text} {
   set data [http::data [http::geturl http://someurl.com]]
   regexp {</a> / <b><a href="(.*?)">(.*?)</a></b></div>} $data data match lik

   puthelp "PRIVMSG $chan :Ostatni post na forum: \002$lik\002 - $match"
set data [http::data [http::geturl http://someurl.com]]
regexp {<div align="right"> : <b>(.*?)</b> (.*?) </div>} $data data czas godzina

 puthelp "PRIVMSG $chan :Wyslany $czas $godzina"

set data [http::data [http::geturl http://someurl]]

regexp {Nowe: wysłane przez <a href="(.*?)">(.*?)</a> </span>} $data data user2 user
 puthelp "PRIVMSG $chan :Autor: \002$user"
}

[username]

Hope itll work.

Code: Select all

package require http

set chan "#yourchannel"

#here we start our timer
timer 30 www:news

proc www:news { } {
   set data [http::data [http::geturl http://someurl.com]]
   regexp {</a> / <b><a href="(.*?)">(.*?)</a></b></div>} $data data match lik

   puthelp "PRIVMSG $chan :Ostatni post na forum: \002$lik\002 - $match"
set data [http::data [http::geturl http://someurl.com]]
regexp {<div align="right"> : <b>(.*?)</b> (.*?) </div>} $data data czas godzina

 puthelp "PRIVMSG $chan :Wyslany $czas $godzina"

set data [http::data [http::geturl http://someurl]]

regexp {Nowe: wysłane przez <a href="(.*?)">(.*?)</a> </span>} $data data user2 user
 puthelp "PRIVMSG $chan :Autor: \002$user"

#and one more timer to cycle www:news proc
timer 30 www:news
}

[FcLan]

Code: Select all

[19:44] wrong # args: should be "www:news1 nick host handle chan text"

[username]

What is www:news1 from you error msg?

[FcLan]

Ok, I fixed it ;p, but another thing for example I vae a site with:

Code: Select all

club 2:2 club2
club 5:2 club3

And I want to show it at irc with my script it works only with frist line, second not.. I don`t know how to do it

[username]

Ok, I fixed it ;p, but another thing for example I vae a site with:

Code: Select all

club 2:2 club2
club 5:2 club3

And I want to show it at irc with my script it works only with frist line, second not.. I don`t know how to do it

I dont understand you, you want to post this lines to IRC useing regexp? If so youd better post here html code with this lines.

[FcLan]

Yes, but how to do it.. I don`t know how to use it, it`s only an example

[FcLan]

it`s again me .. I try to sue regsub for replace some stupid text to polish letter but it does not work: i mean this line o the code:
regsub -all "¦" $match "s" match

set chan "#yourchannel"

#here we start our timer
timer 30 www:news

Code: Select all

proc www:news { } {
   set data [http::data [http::geturl http://someurl.com]]
   regexp {</a> / <b><a href="(.*?)">(.*?)</a></b></div>} $data data match lik

regsub  -all "¦" $match "s" match

   puthelp "PRIVMSG $chan :Ostatni post na forum: \002$lik\002 - $match"
set data [http::data [http::geturl http://someurl.com]]
regexp {<div align="right"> : <b>(.*?)</b> (.*?) </div>} $data data czas godzina

 puthelp "PRIVMSG $chan :Wyslany $czas $godzina"

set data [http::data [http::geturl http://someurl]]

regexp {Nowe: wysłane przez <a href="(.*?)">(.*?)</a> </span>} $data data user2 user
 puthelp "PRIVMSG $chan :Autor: \002$user"

#and one more timer to cycle www:news proc
timer 30 www:news
}