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
  }
}