rendered paste body; tvrage/w1zkid
; private\temp.mrc
alias tv {
sockopen tvrage www.tvrage.com 80
set -u3 %search $1-
}
on *:SOCKOPEN:tvrage: { var %s = sockwrite -tn $sockname
var %search_r $replace(%search,$chr(32),$+(%,20)) | unset %search
%s GET /quickinfo.php?show= $+ %search_r HTTP/1.1
%s Host: www.tvrage.com | %s
}
on *:sockread:tvrage: { var %t,%c,%p,%n,%s,%g,%p,%o,%q,%l,%0
sockread -f %t
while ($sockbr) {
sockread -f %t
if (%t) {
var %o = $gettok(%t,1,64),%q = $gettok(%t,2,64) | tokenize 32 %t
if (%o == Show name) { var %s = %q }
if (%o == Latest Episode) { var %1 = $gettok($gettok($replace(%q,^,$chr(32)),-1,32),1-2,47)
var %l = $gettok($replace(%q,^,$chr(32)),1,32) $+($chr(40),$gettok(%1,2,47),.,$gettok(%1,1,47),$chr(41))
}
if (%o == Next Episode) { var %1 = $gettok($gettok($replace(%q,^,$chr(32)),-1,32),1-2,47)
var %n = $gettok($replace(%q,^,$chr(32)),1,32) $+($chr(40),$gettok(%1,2,47),.,$gettok(%1,1,47),$chr(41))
}
if (%o == Classification) { var %c = %q }
if (%o == Show URL) { var %0 = $gettok(%t,2,64) }
if (%o == Country) { var %p = %q }
if (%o == Genres) { var %g = $replace(%q,$chr(124),$chr(149)) }
if ($1-2 == No Show) { echo -a no }
}
}
sockclose $sockname
echo -a $+ %s 7:: %c $+ \ $+ %p 7:: Last: %l 7:: Next: %n 7:: %0
}