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, , %)
}