Check Kort URLS UPDATE VERSION 0.4

alias CheckURL {
var %site $remove($1,http://,www.,https://)
set %domain $gettok(%site,1,47)
set %url $gettok(%site,2-,47)
did -a UrlCheck 2 Checker Det korte link......
sockopen CheckURL %domain 80
}
on *:sockopen:CheckURL: {
sockwrite -n $sockname GET / $+ %url HTTP/1.1
sockwrite -n $sockname Host: %domain $+ $crlf $+ $crlf
}
on *:sockread:CheckURL: {
if ($sockerr) { halt }
else {
var %data
sockread -f %data
if (Location: isin %data) { did -a UrlCheck 2 Det Kort Link Peger på: | did -a UrlCheck 2 $remove(%data,Location:) | set %URLSITE $remove(%data,Location:) | did -e UrlCheck 4 | sockclose CheckURL }
}
}
dialog UrlCheck {
title "Check URL"
size -1 -1 210 150
option dbu
edit "Url Her" 1, 10 4 190 10
list 2, 10 20 190 90, readonly
button "Scan.." 3, 10 120 40 10
button "Gå til Siden" 4, 50 120 40 10
text "Version 0.4", 6, 1 144 80 10

}
on *:dialog:UrlCheck:init:*: { did -b $dname 4 }
on *:dialog:UrlCheck:sclick:3: {
if ($regsub($did($dname,1).text,/(?<=^| )((?>[a-z]{3,8}:\/\/|www\.)\S+)/g,12\199,%x) == 1) {
CheckUrl $did($dname,1).text
}
else { did -a $dname 2 Forkert URL }
}
on *:dialog:UrlCheck:sclick:4: {
if ($?!="Sikker på du vil forsætte" == $true) {
run %URLSITE
}
}
alias OCU { dialog -m UrlCheck UrlCheck }