Re: [9front] [PATCH] Update hpost to use -r header like hget

[magma698hfsp273p9f@icebubble.org]

Julien Blanchard <julien@typed-hole.org> writes:

> diff -r ac35c963f8e2 rc/bin/hpost
> --- a/rc/bin/hpost	Sun Dec 13 20:23:03 2020 +0100
> +++ b/rc/bin/hpost	Tue Dec 15 17:45:26 2020 +0000
> @@ -1,12 +1,13 @@
>  #!/bin/rc
>  rfork e
>  url=()
> +header=()
>  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]

I think that should be: [ -r header ] ...
rather than: [ -r ] header

>  	exit usage
>  }
>
> @@ -14,6 +15,7 @@
>  	switch($1){
>  	case -l;	l=($l $1)
>  	case -u;	shift; url=$1
> +	case -r;	shift; header=$1
>  	case -g;	shift; action=$1; method=mget
>  	case -p;	shift; action=$1; method=mpost
>  	case -m;	shift; action=$1; method=multi
> @@ -95,7 +97,10 @@
>  }
>
>  if(! ~ $action ''){
> -	hget=(hget $l)
> +	if(~ $header '')
> +		hget=(hget $l)
> +	if not
> +		hget=(hget -r $header $l)
>  	$method
>  	exit
>  }