View difference between Paste ID: zHpW0EqL and BndHJ4A6

-; --------------
+
-alias -l api_key { return REGISTER_ON_EMBED_LY }
+
-; --------------
+
 ON *:TEXT:*:#: {
   tokenize 32 $strip($1-)
 
   var %t = $numtok($1-,32)
   var %i = 1
 
   while (%i <= %t) {
     var %w = $gettok($1-,%i,32)
 
     if (%w) && ($isurl(%w)) { get_title $chan %w }
 
     inc %i
   }
-    if (%w) && ($isurl(%w)) { scan_url $chan %w }
+
 
 alias get_title {
   if (!$1) && (!$2) { return }
 
   var %dom = $gettok($2-,2,47)
-alias scan_url {
+  var %url = $gettok($2-,3-,47)
 
-  if ($me !ison $1) { return }
+  :start
   var %s = URL_SEARCH_ $+ $ticks $+ $rand(1,100000)
-  var %v = URL_SEARCH_ $+ $ticks $+ $rand(1,100000000)
+
-  var %u = https://api.embed.ly/1/extract?key= $+ $api_key $+ &format=json&nojsoncallback=1&url= $+ $urldecode($2-)
+  if ($sock(%s)) { goto start }
 
-  JSONOpen -ud %v %u
+  if (*https://* iswm $1-) { sockopen -e %s %dom 443 }
-  if ($jsonerror) { return }
+  else { sockopen %s %dom 80 }
 
-  var %title = $json(%v,description).value
+  sockmark %s $1 %url
 
-  if (%title) { msg $1 Title: %title }
+  socklist
 }
 
 ON *:SOCKOPEN:URL_SEARCH_*: {
   if ($sockerr) { return }
 
   sockwrite -nt $sockname GET / $+ $gettok($sock($sockname).mark,2-,32) HTTP/1.1
   sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0 $+ $chr(59) Win64 $+ $chr(59) x64 $+ $chr(59) rv:61.0) Gecko/20100101 Firefox/61.0
   sockwrite -nt $sockname Host: $sock($sockname).addr
   sockwrite -nt $sockname Connection: Close
   sockwrite -nt $sockname $crlf
 }
 
 ON *:SOCKREAD:URL_SEARCH_*: {
   if ($sockerr) { return }
 
   var %r
   sockread %r
 
   ; echo 2 -s DEBUG: %r
 
   if ($regex(%r,/\<title\>(.*)\<\/title\>/i)) {
     var %title = $regml(1)
     var %c = $gettok($sock($sockname).mark,1,32)
 
     if (%title) && ($me ison %c) { msg %c Title: %title }
 
     sockclose $sockname
   }
 }