alias url2 {
var %link = $1-, %sock = $+(url,$rand(1,999))
/sockopen %sock $url_parse(%link).host $url_parse(%link).port
/sockmark %sock %link
}
alias url_parse {
var %link = $1-, %url = $remove($1-,http://)
var %host = $gettok($+(%url,/), 1, $asc(/))
var %path = $iif($mid(%url, $calc($len(%host)+1)), $ifmatch, /)
var %port = 80
if (*:* iswm %host) {
var %port = $gettok(%host, 2, $asc(:))
var %host = $gettok(%host, 1, $asc(:))
}
if ($isid) {
if ($prop == host) return %host
else if ($prop == path) return %path
else if ($prop == port) return %port
}
else /echo -s Sytax Error: $+($,url_parse) must be used as an identifier
}
on *:SOCKOPEN:url*: {
if ($sockerr) /echo -s Error opening connection to
else {
var %link = $sock($sockname).mark
/sockwrite -n $sockname GET $url_parse(%link).path HTTP/1.0
/sockwrite -n $sockname Host: $url_parse(%link).host
/sockwrite -n $sockname $crlf
}
}
on *:SOCKREAD:url*: {
; if you want what actually is returned, do it here
;var %win = $+(@,$sockname)
;if (!$window(%win)) /window %win
;/sockread -f %data
;/echo %win -> %data
}
