XKCD Title finder for Orp

on $*:TEXT:/xkcd.com\/(\d+)/i:#: {
  sockclose xkcd
  set %# $chan
  set %xkcd $regml(1)
  sockopen xkcd www.xkcd.com 80
}

on *:SOCKOPEN:xkcd:{
  sockwrite -nt $sockname GET / $+ %xkcd $+ / HTTP/1.1
  sockwrite -nt $sockname Host: www.xkcd.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:xkcd:{
  var %x
  sockread %x
  if ($sockerr) {
    msg %# [SockErr] $sockname - errno: $sock($sockname).wserr err: $sock($sockname).wsmsg
    return
  }
  if (*<title>*</title>* iswm %x) {
    msg %# $remove(%x,<title>,</title>)
  }
}