on *:SOCKREAD:download_*: {
if ($sockerr > 0) echo -s error
elseif (!$sock($sockname).mark) {
var %read
sockread %read
if (%read == $null) sockmark $sockname 1
}
else {
while ($sock($sockname).rq > 0) {
sockread &file_d
.bwrite $qt($remove($sockname, download_)) -1 -1 &file_d
}
}
}
alias download_file {
sockclose $1
sockopen $+(download_, $1) HOST-HERE 80
}
on *:SOCKOPEN:download_*: {
if ($sockerr > 0) echo -s Error.
else {
sockwrite -n $sockname GET $+(/files/, $remove($sockname, download_)) HTTP/1.0
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname Host: HOST
sockwrite -n $sockname
}
}