alias checknewtopic {
sockopen pbcheck $gettok(%pb.site,$iif(http:// isin %pb.site,2,1),47) 80
}
on *:sockopen:pbcheck:{
sockwrite -n $sockname GET / $+ $gettok(%pb.site,$iif(http:// isin %pb.site,3-,2-),47) HTTP/1.1
sockwrite -n $sockname Host: $gettok(%pb.site,$iif(http:// isin %pb.site,2,1),47)
sockwrite -n $sockname Connection: close
sockwrite $sockname $crlf
%pb.tr = class="forumlink"> $+ %pb.f $+ <
unset %pb.ft
}
on *:sockopen:pbtopic:{
sockwrite -n $sockname GET / $+ $iif(http:// isin %pb.site,$iif($numtok(%pb.site,47) > 3,$gettok(%pb.site,3- $+ $calc($numtok(%pb.site,47)-1),47)),$iif($numtok(%pb.site,47) > 2,$gettok(%pb.site,2- $+ $calc($numtok(%pb.site,47)-1),47))) $+ $chr(47) $+ %pb.ur HTTP/1.1
sockwrite -n $sockname Host: $gettok(%pb.site,$iif(http:// isin %pb.site,2,1),47)
sockwrite -n $sockname Connection: close | sockwrite $sockname $crlf | unset %pb.ft2
}
on *:sockread:pbtopic:{
if (!$sockerr) {
sockread %pb.t2
if ($sockbr) {
if (;highlight= isin %pb.t2) {
%pb.tn = $mid(%pb.t2,$pos(%pb.t2,;highlight=,1)) | %pb.tn2 = $mid(%pb.tn,$calc($pos(%pb.tn,">) + 2),$calc($pos(%pb.tn,</a) - $pos(%pb.tn,">) - 2))
echo -s Forum: %pb.f | echo -s Topic: %pb.tn2 | echo -s Author: %pb.at | echo -s Date: %pb.ld
echo -s URL: $iif(http:// !isin %pb.site,http:// $+ $gettok(%pb.site,1,47),$replace($gettok(%pb.site,1- $+ $calc($numtok(%pb.site,47) -1),47),:/,://)) $+ $chr(47) $+ %pb.ur $+ $chr(35) $+ $gettok(%pb.ur,2,61)
}
}
}
}
on *:sockread:pbcheck:{
if (!$sockerr) {
sockread %pb.t
if ($sockbr) {
if (%pb.tr isin %pb.t) { %pb.ft = yes }
elseif (%pb.ft == yes) {
if (nowrap isin %pb.t) {
%pb.sp = $mid(%pb.t,$calc($pos(%pb.t,gensmall,1) + 10))
%pb.ld = $mid(%pb.sp,0,$calc($pos(%pb.sp,<) - 1))
%pb.at = $mid(%pb.sp,$calc($pos(%pb.sp,">) + 2),$calc($pos(%pb.sp,</a) - $pos(%pb.sp,">) - 2))
%pb.ur = $gettok($mid(%pb.sp,$pos(%pb.sp,viewtopic.php?),$calc($pos(%pb.sp,"><) - $pos(%pb.sp,viewtopic.php?))),1,38)
sockclose pbcheck | sockopen pbtopic $gettok(%pb.site,$iif(http:// isin %pb.site,2,1),47) 80 | unset %pb.ft
}
}
}
}
}