on *:text:*http*:#: { 
    var %x $1-
    var %z 1
    while (%z <= $numtok(%x,32)) {
      if (http:// isin $gettok(%x,%z,32)) { /urlcheck $chan $gettok(%x,%z,32) | BREAK }
      /inc %z 1
    }
  }
 
 
alias urlcheck {
  unset %url.*
  set %I $ticks
  set $+(%,url.chan.,%I) $1
  set $+(%,url.check.,%I) $replace($2,http://,$null)
  set $+(%,url.host.,%I) $gettok($eval($+(%,url.check.,%I),2),1,47)
  set $+(%,url.get.,%I) $replace($eval($+(%,url.check.,%I),2),$eval($+(%,url.host.,%I),2),$null)
  sockopen $+(remoteurl.,%I) $eval($+(%,url.host.,%I),2) 80
}
 
on *:SOCKOPEN:remoteurl.*: {
  sockwrite -n $sockname GET $+($chr(47),$($eval($+(%,url.get.,%I),2)))
  sockwrite -n $sockname Host: $($eval($+(%,url.host.,%I),2))
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 $+ $crlf $+ $crlf
}
 
on *:SOCKREAD:remoteurl.*: {
  var %r
  sockread %r
  if ($regex(%r,<title>)) {
    ;msg $eval($+(%,url.chan.,%I),2) ' $+ $between(%r,<title>,</title>,1) $+ ' (at ' $+ $eval($+(%,url.host.,%I),2) $+ ') 
    .echo $eval($+(%,url.chan.,%I),2) ' $+ $between(%r,<title>,</title>,1) $+ ' (at ' $+ $eval($+(%,url.host.,%I),2) $+ ') 
  }
}
 
; Gummo's
alias between { 
  noop $regex($1,/\Q $+ $2 $+ \E(.*?)\Q $+ $3 $+ \E/gi) 
  return $regml($4) 
}

Commenting Options