Code:
proc dlx:tvrage:next { nick host hand chan arg } { global tvrage package require http set arg [string map { " " "_" } $arg] set url "http://services.tvrage.com/tools/quickinfo.php?show=[http::formatQuery $arg]" set page [http::data [set token [http::geturl $url -timeout $tvrage(timeout)]]] ::http::cleanup $token regexp {Show Name@([A-Za-z 0-9\&\':\,]+)} $page gotname show_name set gotnext [ regexp {Next Episode@([0-9x]+)\^([A-Za-z0-9 -\`\"\'\&:.,]+)\^([A-Za-z0-9/]+)/([0-9]+)/([0-9]+)} $page gotnext next_ep next_ep_title next_ep_date1 next_ep_date2 next_ep_date3] set gotunix1 [ regexp {NODST@([0-9]+)} $page gotunix gotunix2 ] regexp {Airtime@([A-Za-z, 0-9:]+)} $page gotairtime show_airtime if { ![info exists show_name] } { putquick "PRIVMSG $chan :Error! (timeout or something similar)" # return -1 } if { $gotnext == 0 } { putquick "PRIVMSG $chan :The next episode of \002$show_name\002 is not yet scheduled." } else { # get a clean unix timestamp in GMT set now [clock scan [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S %Z"] -gmt 1]] # compare GMT timestamps, remove hours,minutes,seconds # generate duration until. set timeleft [duration [expr {($gotunix2 - $now) - (($gotunix2 - $now) % 86400)}]] putquick "PRIVMSG $chan :The next episode of \002$show_name\002 is \002$next_ep_title \[$next_ep\]\002, it will air on \002$next_ep_date2-$next_ep_date1-$next_ep_date3\002 \[\002$timeleft from now\002\]" }}
This is timezone independent. The script automatically adjusts your timezone to GMT. This will not work on FreeBSD (it will work on anything else), as there is a known issue with UTC timestamps given when UTC was not requested. There is a work-around for FreeBSD as well which is equally simple. This code is also tcl8.4 friendly so works on past/present/future bots as well.
Statistics: Posted by speechles — Sun Oct 17, 2010 2:53 pm
]]>
