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.