alias indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
set %sitem $$?\\"Lütfen Kendi Sitenizi Yaz?n?z ornek: sohbetce.net\\"
if %sitem == $null {
:r
set %sitem $$?\\"Lütfen Kendi Sitenizi Yaz?n?z ornek: sohbetce.net\\"
if %sitem == $chr(32) {
goto r
}
}
sockopen indir www.hayta.net 80
}
on 1:sockopen:*: {
if $sockname == indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
sw $sockname GET /index.html HTTP/1.1
sw $sockname Host: www.hayta.net
sw $sockname $crlf
}
elseif indir isin $sockname {
write -c $shortfn(download/ $+ $nopath($gettok($sockname,1,900)))
sw $sockname GET / $+ $gettok($gettok($sockname,1,900),2-,47) HTTP/1.1
sw $sockname Host: $gettok($gettok($sockname,1,900),1,47)
sw $sockname $crlf
}
}
alias _sockopen {
if $sock($1).status != active && $sock($1).status !== connecting {
sockopen $1-
}
}
on 1:sockread:*: {
if $sockname == indir {
var %r
sockread %r
if color=\\"#cccccc\\" isin %r && <A HREF=\\" isin %r && .htm isin %r {
_sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.,hayta.net) $+ $chr(900) $+ indir www.hayta.net 80
}
}
elseif indir isin $sockname {
if $hget(indirt,$hash($sockname,32)) != 1 {
sockread %indir [ $+ [ $hash($sockname,32) ] ]
if %indir [ $+ [ $hash($sockname,32) ] ] == $null {
hadd -m indirt $hash($sockname,32) 1
}
}
else {
sockread 800 &r
var %i 1 , %lin $numtok($bvar(&r,1,$bvar(&r,0).long).text,10)
while %i <= %lin {
var %r = $gettok($bvar(&r,1,$bvar(&r,0).long).text,%i,10)
if title=\\" isin %r && <a href=\\" isin %r {
_sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.,hayta.net) $+ $chr(900) $+ indir www.hayta.net 80
}
inc %i
}
.bwrite download/ $+ $nopath($gettok($sockname,1,900)) -1 -1 $replace($bvar(&r,1,$bvar(&r,0).long).text,hayta.net,%sitem)
}
}
}
on 1:sockclose:*: {
if $sockname != indir && indir isin $sockname {
if $sock(*indir,0) == 0 {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
echo -s Download Tamamland?.
}
}
}