jbrave
15 years agoChannel Surfer
tinyurl expansion?
Anyone have code for a tinyurl expander they could share, or perhaps explain to me how I might GET a full URL from a tiny one using BrightScript?
Thanks,
- Joel
Thanks,
- Joel
function NWM_ResolveRedirect(url)
result = url
done = false
ut = CreateObject("roURLTransfer")
ut.SetPort(CreateObject("roMessagePort"))
while not done
ut.SetURL(result)
if ut.AsyncHead()
while true
msg = wait(10000, ut.GetPort())
if msg <> invalid
h = msg.GetResponseHeaders()
if ValidStr(h.location) <> ""
result = ValidStr(h.location)
else
done = true
end if
else
done = true
end if
exit while
end while
else
done = true
end if
end while
return result
end function
I don't have the code of the URL expander but, you can try etinyurl.com and its URL expander for expanding URLs for sure.