Downloading File
Filename: Source Viewer Dialog
/* By BrAndo| [swiftirc/quakenet] Note: You can either put the full link under 'Host:' or seperate it your self. */ dialog -l source { title "Source viewer or whatever you want to call it idk what it is really" size -1 -1 357 205 option dbu combo 1, 4 3 160 10, drop text "Host:", 3, 4 15 17 8 edit "", 4, 4 24 160 10, autohs text "Page:", 5, 4 34 17 8 edit "", 6, 4 43 160 10, autohs edit "0", 8, 112 65 12 10, disable limit 1 center text "times", 9, 126 66 16 8 button "&View Page", 10, 4 90 45 12 button "&Save URL", 11, 60 90 45 12 button "&Remove URL", 12, 115 90 45 12 text "HTTP Version:", 13, 4 55 37 8 edit "HTTP/1.0", 14, 45 54 35 10 check "Show Headers", 15, 4 65 48 10 check "Show lines longer than", 16, 4 77 65 10 text "Status:", 2, 4 106 19 8 edit "", 18, 4 116 160 10, read autohs right text "View line:", 19, 4 129 25 8 edit "", 20, 4 139 160 11, read autohs button "&Clipboard Line", 21, 4 154 45 12 check "Strip HTML", 22, 55 155 45 10 text "Line number:", 23, 4 172 35 8 text "", 24, 47 172 35 8 text "Line length:", 25, 4 187 33 8 text "", 26, 47 187 35 8 text "Total lines:", 27, 60 106 30 8, right text "", 28, 94 106 69 8 list 29, 166 2 190 190, size edit "", 30, 215 193 140 10, autohs button "&Find in Page", 31, 167 193 34 10 text "Search Type:", 32, 109 154 36 8 radio "Normal", 33, 109 165 53 10 radio "Wildcard", 34, 109 177 50 10 radio "Regex", 35, 109 189 41 10 button ">", 36, 203 193 10 10 icon 37, 30 104 10 9, source\ready.png, 0 edit "", 39, 69 77 23 10, disable center text "in own window", 40, 94 78 38 8 check "SSL", 38, 134 54 21 10 button "", 41, 153 19 10 4 button "", 42, 153 38 10 4 check "Evaluate text", 7, 69 65 43 10 text "Port:", 17, 85 55 15 8 edit "80", 43, 104 54 23 10 } menu status,menubar { Source View:{ source } } on *:start:{ hmake source | hload source source\source.dat } on *:exit:{ hsave source source\source.dat } alias source { var %sw = $iif(-?* iswm $1,$1,-m) if (!$isdir(source)) { if ($show) echo 7 -gta This is your first time running this script. Please wait while the icons are downloaded. mkdir source hmake source tokenize 32 img231.imageshack.us/img231/6527/completeoc8.png img241.imageshack.us/img241/9589/connectingbb4.png $& img187.imageshack.us/img187/4764/errorwg6.png img170.imageshack.us/img170/6811/readywg0.png dload $* .timerdl 0 0 if (!$sock(dload.*,0)) dialog %sw source source } else dialog %sw source source } alias -l dload { noop $regex($1,/(complete|connecting|error|ready)/i) var %host = $gettok($1,1,47), %page = / $+ $gettok($1,2-,47) sockopen dload. $+ $regml(1) %host 80 sockmark dload. $+ $regml(1) %host %page } alias -l wind { if (!$window(@longlines)) window -bk0 @longlines did -a source 29 <Long line> echo @longlines $chr(2) $+ Line Number: $1 $chr(149) Line Length: $len($2-) echo @longlines $2- } alias -l html { return $regsubex($1-,/^[^<]*>|<[^>]*>|<[^>]*$/g,) } on *:sockopen:dload.*:{ tokenize 32 $sock($sockname).mark sockwrite -n $sockname GET $2 HTTP/1.0 sockwrite $sockname Host: $1 $+ $str($crlf,2) } on *:sockread:dload.*:{ tokenize 32 $sock($sockname).mark if ($0 == 2) { var %a = 1 while (%a) { if ($regex(%a,/Content-Length: (\d+)/i)) sockmark $sockname $1- $regml(1) sockread %a } } var %fn = source\ $+ $gettok($sockname,2,46) $+ .png while ($sockbr) { sockread &a bwrite %fn -1 -1 &a } if ($file(%fn).size >= $3) sockclose $sockname } on *:dialog:source:init:*:{ .timerdl off var %a = 1 while ($hfind(source,fav*,%a,w)) { did -a $dname 1 $remove($hget(source,$v1),$chr(32)) inc %a } did -a $dname 4 $hget(source,host) did -a $dname 6 $hget(source,page) did -c $dname 15,17,33 } on *:dialog:source:close:*:{ unset %match* } on *:dialog:source:sclick:10:{ if ($did(4)) { if ($did(16).state && $did(39) !isnum) { var %n = 1 goto err } if ($did(6)) var %host = $did(4), %page = $did(6) else var %host = $gettok($did(4),1,47), %page = / $+ $gettok($did(4),2-,47) var %port = $gettok(%host,2,58), %host = $regsubex(%host,/^https?:\/\//i,) if (https* iswm $did(4)) did -c $dname 38 did -r source 28,29 did -ra $dname 4 %host did -ra $dname 6 %page tokenize 149 $+(host %host,�,page %page,�,lines 0�headers 0) hadd source $* sockclose source if ($did(16).state) close -@ @longlines if ($did(8) == $null) did -a $dname 8 0 if ($did(14) == $null) did -a $dname 14 HTTP/1.0 var %e = $iif($did(8).enabled,$did(8),0) + 1, %host = $(%host,%e), %page = $(%page,%e), %ssl = $did(38).state if (%ssl && $sslready) { did -ra $dname 43 $iif(%port,$v1,443) sockopen -e source %host $did(43) } elseif (%ssl) goto err else { did -ra $dname 43 $iif(%port,$v1,80) sockopen source %host $did(43) } sockmark source %host %page did -ra source 18 Connecting to site... did -g source 37 source\connecting.png } else { :err did -ra source 18 $iif(%n,Specify a line length.,$iif(%ssl,You do not have SSL support.,Invalid URL.)) } } on *:sockopen:source:{ if ($sockerr) { did -ra source 18 Socket Error (connecting to site): $v1 did -g source 37 source\error.png sockclose $sockname } else { did -ra source 18 Connection Successful... tokenize 32 $sock($sockname).mark sockwrite -nt $sockname GET $2 $did(source,14) sockwrite -t $sockname Host: $1 $+ $str($crlf,2) if (!$did(source,15).state) sockmark $sockname 0 } } on *:sockread:source:{ if ($sockerr) { did -ra source 18 Socket Error (reading buffer): $v1 did -g source 37 source\error.png sockclose $sockname } else { did -ra source 18 Reading buffer... if (!$did(source,15).state && !$sock($sockname).mark) { var %a = 1 while (%a) { sockread %a hinc source headers hinc source lines } sockmark $sockname 1 } var %a sockread %a hinc source lines if (%a != $null) { if ($did(source,16).state && $len(%a) >= $did(source,39)) wind $hget(source,lines) %a else did -a source 29 %a } } } on *:sockclose:source:{ did -ra source 18 Bytes sent: $bytes($sock($sockname).sent,b) Bytes received: $bytes($sock($sockname).rcvd,b) did -ra source 28 $bytes($hget(source,lines),b) $str($chr(160),3) $iif(!$did(source,15).state,$chr(40) $+ Headers: $hget(source,headers) $+ $chr(41)) did -g source 37 source\Complete.png } on *:dialog:source:sclick:*:{ if ($did == 1) { did -ra $dname 4 $gettok($did(1),1,47) did -ra $dname 6 / $+ $gettok($did(1),2-,47) } elseif ($did == 7) did $iif($did(7).state,-e,-b) $dname 8 elseif ($did == 11) { if ($did(4)) { if ($did(6)) var %host = $regsubex($did(4),/^https?:\/\//i,), %page = $did(6) else var %host = $gettok($did(4),1,47), %page = / $+ $gettok($did(4),2-,47) %host = $regsubex(%host,/^https?:\/\//i,) did -ra $dname 4 %host did -ra $dname 6 %page var %a = 1 while ($hfind(source,fav*,%a,w)) { if ($hget(source,$v1) == $did(4) $did(6)) goto err inc %a } hadd source fav $+ %a %host %page did -ra $dname 18 Saved URL. did -ac $dname 1 %host $+ %page } else { :err did -ra $dname 18 $iif($did(4),URL is already saved.,Invalid URL.) } } elseif ($did == 12) { var %a = 1 while ($hfind(source,fav*,%a,w)) { if ($remove($hget(source,$v1),$chr(32)) == $did(1)) break inc %a } if ($hfind(source,fav*,%a,w)) { did -d $dname 1 $did(1).sel did -ra $dname 18 URL removed. hdel source $v1 } else did -ra $dname 18 URL not saved. } elseif ($did == 16) { if ($did(16).state) did -e $dname 39 else did -b $dname 39 } elseif ($did == 21 && $did(20) != $null) clipboard $did(20) elseif ($did == 22) { var %i = $iif($did(29).seltext,$v1,$did(20)) goto html } elseif ($did == 29 && $did(29).seltext) { did -ra $dname 24 $did(29).sel var %i = $v1 :html %i = $iif($did(22).state,$html(%i),$remove(%i,$chr(9))) did -ra $dname 26 $len(%i) did -ra $dname 20 %i } elseif ($did == 31 && $did(30) != $null) { did -ra $dname 18 Searching... unset %match* var %a = 1, %b = 0 while (%a <= $did(29).lines) { var %m if ($did(33).state && $did(30) isin $did(29,%a)) { %m = 1 } elseif ($did(34).state && $did(30) iswm $did(29,%a)) { %m = 1 } elseif ($did(35).state && $regex($did(29,%a),$did(30))) { %m = 1 } if (%m) { inc %b %match [ $+ [ %b ] ] = %a } inc %a } if (%b) { did -c $dname 29 %match1 %a = $remove($did(29).seltext,$chr(9)) if ($did(22).state) %a = $html(%a) did -ra $dname 20 %a did -ra $dname 24 $did(29).sel did -ra $dname 26 $len(%a) } did -ra $dname 18 Found %b lines. $iif(%b,Viewing line 1 of %b) } elseif ($did == 36 && $var(match*,0)) { var %a = 1 while (%match [ $+ [ %a ] ]) { if ($v1 == $did(29).sel) break inc %a } inc %a %a = $iif(%match [ $+ [ %a ] ],%a,1) did -ra $dname 18 $regsubex($did(18),/\d+ of/i,%a of) did -c $dname 29 %match [ $+ [ %a ] ] %a = $did(29).seltext if ($did(22).state) %a = $html(%a) did -ra $dname 20 %a did -ra $dname 24 $did(29).sel did -ra $dname 26 $len(%a) } elseif ($did == 41) did -r $dname 4 elseif ($did == 42) did -r $dname 6 }
Related Files
by FordLawnmower
by FordLawnmower
by krizoek