ref: e11835232448831f8bd4a27c4f8d8a7aa78383b5
parent: ffb120199a951396f7e99aeca453715dc4e65601
author: cinap_lenrek <cinap_lenrek@felloff.net>
date: Sun Mar 23 14:47:59 EDT 2014
hget: revert hget -v change, this needs more thought problems that need to be addressed: - reads in the whole /proc every second for no reason - breaks when http server doesnt include Content-Length header - length is wrong for continued download (-o option)
--- a/rc/bin/hget
+++ b/rc/bin/hget
@@ -2,7 +2,7 @@
rfork e
argv0=$0
fn usage {- echo usage: $argv0 '[ -v ] [ -l | -o file] [ -p body | -P ] [ -r header ] [ -m method ] [ -b baseurl ] url' >[1=2]
+ echo usage: $argv0 '[ -l | -o file] [ -p body | -P ] [ -r header ] [ -m method ] [ -b baseurl ] url' >[1=2]
exit usage
}
s=0
@@ -13,7 +13,6 @@
m=()
b=()
l=()
-v=()
while(~ $1 -*){ switch($1){case -o
@@ -35,8 +34,6 @@
case -b
b=$2
shift
- case -v
- v=1
case *
usage
}
@@ -73,17 +70,6 @@
if(~ $#l 1){ echo `{cat $d/parsed/url}exit
- }
- if(~ $#v 1){- hpid=$pid
- @{- while(ls /proc | grep -s $hpid) {- have=`{grep '^ 0' /proc/$hpid/fd | awk '{ print $9 }' }- want=`{cat $d/contentlength}- echo $have $want >[1=2]
- sleep 1
- }
- } &
}
if(~ $#o 1){ l=`{cat $d/contentlength >[2]/dev/null}--- a/sys/man/1/hget
+++ b/sys/man/1/hget
@@ -22,8 +22,6 @@
] [
.B -b
.I baseurl
-] [
-.B -v
]
.I url
.PP
@@ -126,15 +124,6 @@
.B -m
overrides the HTTP method used for the request.
.PP
-Option
-.B -v
-causes
-.I hget
-to emit download status on file descriptor 2,
-suitable for use with
-.I aux/statusbar .
-See EXAMPLES.
-.PP
.I Hpost
retrieves the web page specified by the URL
.I url,
@@ -210,18 +199,6 @@
.IP
.EX
% hget http://9front.org/img/nix-on.jpg >/tmp/nix-on.jpg
-.EE
-.PP
-Use
-.I hget
-in conjuncton with
-.I aux/statusbar
-to monitor progress.
-.IP
-.EX
-hget -v -o 9front.iso.bz2 \\
- http://www.r-36.net/9front/9front.iso.bz2 \\
- |[2] aux/statusbar '9front.iso.bz2'
.EE
.PP
Retrieve the commands needed to submit a form, which may then be