;;; intersys site title ;;;
on *:TEXT:*:#: {
  if (www isin $1-) || (http isin $1-) {
    noop $regex($1-,/(?:https?:\/\/)?((?:www\.)?[\w-.]+\.(?>[a-z]{2,4})(?![a-z]))([\w-_#?=%.\/&?]+)?/ig)
    set %W.host $regml(1) | set %W.get $regml(2) | set %W.chan $chan
   if ($sock(website)) sockclose website | sockopen website %w.host 80
  }
}
on *:sockopen:website: {
  if (!$sockerr) {
    sockwrite -n $sockname GET $iif($chr(47) !isin %W.get ,$chr(47), %w.get ) HTTP/1.1
    sockwrite -n $sockname Host: %W.host
    sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname Connection: Close
    sockwrite -n $sockname $crlf
  }
}
on *:sockread:website: {
  var %x | sockread -f %x
  if ($regex(%x,/<title[\w\s="]*>(.*?)<\/title>/i)) {
    msg %W.chan Title: $regsubex($regml(1),/<[^>]+(?:>|$)|^[^<>]+>/g,) | unset %W.* | sockclose $sockname
  }
}