This is all the tinyurl stuff for anyone that wants to use it, and for you FO
as you requested
Code:
alias tinyurl {
  if (!$0) {
    echo -ac info * /tinyurl insufficient parameters
    return
  }
  var %s = tinyurl_ $+ $ticks
  sockopen %s tinyurl.com 80
  sockmark %s $1-
}

ON *:SOCKOPEN:tinyurl_*:{
  if ($sockerr) {
    echo -ac ctcp * Error Connecting
    return
  }
  var %sTiny = sockwrite -n $sockname, $&
    %cData = $+(url=, $urlencode($sock($sockname).mark), &submit=Make+TinyURL%21)
  %sTiny POST /create.php HTTP/1.1
  %sTiny Content-Length: $len(%cData)
  %sTiny Host: tinyurl.com
  %sTiny Content-Type: application/x-www-form-urlencoded
  %sTiny Connection: Close
  %sTiny
  %sTiny %cData
}

ON *:SOCKREAD:tinyurl_*:{
  if ($sockerr) return
  var %tmp
  sockread %tmp
  while ($sockbr) {
    if ($regex(%tmp, /<a href="(.+?)" target="_blank">/i)) {
      msg #root 00Tinyurl: $regml(1) 
    }
    sockread %tmp
  }
}

alias urlencode {
  var %cRet = $1-
  while ($regex(%cRet, /([^\w-.\x03])/)) {  
    !haltdef $regsub(%cRet, /([^\w-.\x03])/,  $+ $base($asc($regml(1)), 10, 16, 2), %cRet)
  }
  return $replace(%cRet, , %) 
}