Stewie1k94 commented on a Page, Chat Acronym Lookup   -  Oct 06, 2012

@RIcko The site seems to redirect to pc.net .. This should work for you.

on $*:text:/^@acro\s(.+)$/iS:#: {
  if (!%F) { inc -u4 %F
    if ($sock(acro)) sockclose acro
    sockopen acro pc.net 80
    sockmark acro $+(/slang/meaning/,$remove($regml(1),$chr(32))) msg #
  }
}
on *:sockopen:acro: {
  sockwrite -n acro GET $gettok($sock(acro).mark,1,32) HTTP/1.1
  sockwrite -n acro Host: $+($sock(acro).addr,$str($crlf,2))
}
on *:sockread:acro: {
  var %acro | sockread %acro
  if ($regex(%acro,/<th class="right">(.+?)</th>/)) { 
    $gettok($sock(acro).mark,2-,32) Meaning: $regml(1) 
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.