Remove ap(1)

[plan9front.git] / rc / bin / hpost

diff --git a/rc/bin/hpost b/rc/bin/hpost
index b161d931b72cef532c8b38efd312d2bc67c6d0dc..4a43516b6bb5368709c26f073c7b58ff47f49c4e 100755 (executable)
--- 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
@@ -67,7 +71,8 @@ fn menc {
        }
        for(i in $af){
                k=`{sed 's!@.*$!!; q' /env/i}
-               v=`{sed 's!^[^@]+@!!' /env/i}
+       ifs='
+'      v=`{sed 's!^[^@]+@!!' /env/i}
                t=`{file -m $v}
                n=`{basename $v}
                echo '--'$"f$"cr
@@ -93,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
 }