Script to search releases in http://orlydb.com/
#fff on
alias pre {
unset %pre.nn %pre.release %pre.tipo %pre.data
sockclose pre
set %prel 0
sockopen pre orlydb.com 80
}
on *:sockopen:pre:{
if ($sockerr) { echo >> Erro ao conectar... | halt }
else {
sockwrite -n $sockname GET %pre.q HTTP/1.1
sockwrite -n $sockname Host: orlydb.com
sockwrite -n $sockname $crlf
}
}
on *:sockread:pre:{
if ($sockerr > 0) return
sockread %read
;echo -a %read
if (class="timestamp isin %read) { set %pre.data 1[ $+ 14 $+ $striphtml(%read) $+ 1] }
if (class="section isin %read) { set %pre.tipo 1[10 $+ $striphtml(%read) $+ 1] }
if (class="release isin %read) { set %pre.release 5 $+ $striphtml(%read) | msg %pre.chan %pre.tipo %pre.release %pre.data | inc %pre.nn }
if (%pre.nn >= 5) { sockclose pre }
}
alias striphtml {
noop $regsub($1-,/(<(?:.+?)>)/g,$null,%string)
return %string
}
on *:text:!pre*:#:{
set %pre.chan $chan
unset %pre.q
set %pre.q /?q= $+ $replace($2-,$chr(32),+)
pre
}
on *:input:*:{
if (.pre == $1) {
set %pre.chan $active
unset %pre.q
set %pre.q /?q= $+ $replace($2-,$chr(32),+)
pre
}
}