egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-11-20T12:22:02-04:00 https://forum.eggheads.org/app.php/feed/topic/16334 2008-11-20T12:22:02-04:00 2008-11-20T12:22:02-04:00 https://forum.eggheads.org/viewtopic.php?p=85902#p85902 <![CDATA[Print basic info from website]]>

Code: 

namespace eval svt {}setudef flag nopubsvtset svt(pref) "!"set svt(commands) "svt"set svt(time) 30set svt(page) http://svt.se/svttext/web/pages/358.htmlset svt(version) "1.0"set svt(author) "tvrsh @ IrcNet.ru"package require httpforeach bind [split $svt(commands) " "] {bind pub -|- $svt(pref)$bind ::svt::pubbind msg -|- $svt(pref)$bind ::svt::msg}proc ::svt::msg {nick uhost hand arg} {    ::svt::svt $nick $uhost $hand $nick $arg}proc ::svt::pub {nick uhost hand chan arg} {   if {[channel get $chan nopubsvt]} return   ::svt::svt $nick $uhost $hand $chan $arg}proc ::svt::svt {nick uhost hand chan arg} {global svt lastbind      set arg [lindex [split $arg] 0]if {[info exists svt(host,$uhost)]} {if {$chan == $nick} {putquick "PRIVMSG $nick :\00303Wait \00304$svt(time) \00303seconds before next request."return} else {putquick "NOTICE $nick :\00303Wait \00304$svt(time) \00303seconds before next request."return}}           set agent "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"set svt(host,$uhost) 1set svt(timer,$uhost) [utimer $svt(time) [list ::svt::reset $uhost ] ]set svt_tok [::http::config -useragent $agent]set svt_tok [::http::geturl $svt(page) -timeout 30000]  set html [::http::data $svt_tok]::http::cleanup $svt_tok       set rgx "<span\\\ class=\\\"W\\\ bgB\\\">(.*?)<div\\\ class=\\\"subWrapper\\\">"       regsub -all -- {\n} $html "" html           foreach line [split $html \n] {               if {[regexp -nocase -- $rgx $line garb data]} {               set html $data               regsub -all -- {</span><span.*?>} $html " " html               regsub -all -- {<span\ class=.*?>} $html "|" html               regsub -all -- {</span>} $html "" html               regsub -all -- {</div>} $html "" html               regsub -all -- {</pre>} $html "" html               regsub -all -- {\s+} $html " " html               #putlog $html                  foreach line [split $html "|"] {                      if {$line != " "} { putserv "PRIVMSG $chan :\00302$line" }                  }               return}}}proc ::svt::reset { uhost } { global svt catch {killutimer $svt(timer,$uhost)}  catch {unset svt(timer,$uhost)}   catch {unset svt(host,$uhost)}}putlog "svt.tcl v$svt(version) by $svt(author) loaded."
This is the result:
[19:19:53] <tvrsh> !svt
[19:19:53] <bionic> ISHOCKEY Elitserien (55 omg.)
[19:19:53] <bionic> 17/11 Frцlunda - Sцdertдlje 3-2
[19:19:53] <bionic> Linkцping - Rцgle 3-1
[19:19:53] <bionic> Modo - Skellefteе 0-6
[19:19:53] <bionic> 18/11 HV71 - Luleе 1-1 SD
[19:19:53] <bionic> Fдrjestad - Timrе 2-0
[19:19:56] <bionic> Djurgеrden - Brynдs 2-4
[19:19:58] <bionic> S V O F VЦ GM IM P
[19:20:00] <bionic> 1 Linkцpin 22 12 5 5 1 65- 50 42
[19:20:01] <bionic> 2 Skelleft 22 10 5 7 1 66- 54 36
[19:20:04] <bionic> 3 Fдrjesta 22 11 3 8 0 53- 47 36
[19:20:06] <bionic> 4 Brynдs 22 10 3 9 2 51- 58 35
[19:20:08] <bionic> 5 Rцgle 22 9 5 8 1 62- 59 33
[19:20:09] <bionic> 6 Modo 23 9 4 10 2 66- 71 33
[19:20:12] <bionic> 7 Luleе 22 9 5 8 0 60- 57 32
[19:20:14] <bionic> 8 Frцlunda 22 8 5 9 2 55- 56 31
[19:20:16] <bionic> 9 HV71 22 7 7 8 3 60- 62 31
[19:20:17] <bionic> 10 Djurgеrd 23 6 8 9 3 63- 66 29
[19:20:20] <bionic> 11 Timrе 22 6 5 11 4 55- 66 27
[19:20:22] <bionic> 12 Sцdertдl 22 5 7 10 2 53- 63 24
[19:20:24] <bionic> Kommande omgеngar sid. 359

Statistics: Posted by username — Thu Nov 20, 2008 12:22 pm

]]> 2008-11-20T09:03:08-04:00 2008-11-20T09:03:08-04:00 https://forum.eggheads.org/viewtopic.php?p=85897#p85897 <![CDATA[Print basic info from website]]> gl

Statistics: Posted by ultralord — Thu Nov 20, 2008 9:03 am

]]> 2008-11-18T03:48:31-04:00 2008-11-18T03:48:31-04:00 https://forum.eggheads.org/viewtopic.php?p=85858#p85858 <![CDATA[Print basic info from website]]>
I want a script that when I do !text it takes information from
http://svt.se/svttext/web/pages/358.html and prints the whole table of stats into my channel(It is kind of experimental so it doesnt realy matter how it looks like, the main part is that something goes into the channel).

Further on I want to implement a !search function that for example !text <searchword> does output the whole row of that searchword.
So, If I do !text <modo> it should output the whole row for modo stats only.

Is this possible?
I would appreciate this ALOT
Thank you

Statistics: Posted by offndr — Tue Nov 18, 2008 3:48 am

]]>