hpost: support custom headers (thanks julienxx)

hget supports adding custom headers with -r;
it makes sense for hpost to do the same, both
because custom headers are more likely necessary
with POSTs, and for consistency.

1 files changed, 7 insertions, 2 deletions

diff --git a/rc/bin/hpost b/rc/bin/hpost
index cbea99f32..6d97f49b8 100755
--- a/rc/bin/hpost
+++ b/rc/bin/hpost
@@ -1,12 +1,15 @@
 #!/bin/rc
 rfork e
 url=()
+headers=()
+action=()
+method=()
 at=()	# text fields
 af=()	# file fields
 l=()
 
 fn usage {
-	echo 'usage: hpost [ -l ] [ -[gpm] action ] [ -u ] url [ field:value | field@file ... ]' >[1=2]
+	echo 'usage: hpost [ -l ] [ -[gpm] action ] [ -r ] header [ -u ] url [ field:value | field@file ... ]' >[1=2]
 	exit usage
 }
 
@@ -14,6 +17,7 @@ while(~ $1 -*){
 	switch($1){
 	case -l;	l=($l $1)
 	case -u;	shift; url=$1
+	case -r;	shift; headers=($headers -r $1)
 	case -g;	shift; action=$1; method=mget
 	case -p;	shift; action=$1; method=mpost
 	case -m;	shift; action=$1; method=multi
@@ -94,8 +98,9 @@ fn multi {
 	menc $"f | $hget -r 'Content-Type: multipart/form-data; boundary='$"f -b $url -P $action
 }
 
+
 if(! ~ $action ''){
-	hget=(hget $l)
+	hget=(hget $headers $l)
 	$method
 	exit
 }