add /rc/bin/formpost; add formpost to hget(1) man page
This commit is contained in:
stanley lieber
parent
5cddd21627
commit
b786ff0544
2 changed files with 296 additions and 2 deletions
191
rc/bin/formpost
Executable file
191
rc/bin/formpost
Executable file
|
|
@ -0,0 +1,191 @@
|
||||||
|
#!/bin/rc
|
||||||
|
rfork e
|
||||||
|
argv0=$0
|
||||||
|
fn usage {
|
||||||
|
echo usage: $argv0 '[-d] [-M] [ -u url ] [ -g action | -p action | -m action ] [ name:value | name:@value ]' ... >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
d=()
|
||||||
|
g=()
|
||||||
|
M=()
|
||||||
|
m=()
|
||||||
|
p=()
|
||||||
|
u=()
|
||||||
|
while(~ $1 -*){
|
||||||
|
switch($1){
|
||||||
|
case -d
|
||||||
|
d=1
|
||||||
|
case -g
|
||||||
|
g=1
|
||||||
|
a=$2
|
||||||
|
shift
|
||||||
|
case -M
|
||||||
|
M=1
|
||||||
|
case -m
|
||||||
|
m=1
|
||||||
|
a=$2
|
||||||
|
shift
|
||||||
|
case -p
|
||||||
|
p=1
|
||||||
|
a=$2
|
||||||
|
shift
|
||||||
|
case -u
|
||||||
|
u=$2
|
||||||
|
shift
|
||||||
|
case *
|
||||||
|
usage
|
||||||
|
}
|
||||||
|
shift
|
||||||
|
}
|
||||||
|
if(~ $#M 0 && ~ $#u 0)
|
||||||
|
usage
|
||||||
|
fn geth{
|
||||||
|
hget $u |
|
||||||
|
sed 's/ACTION\=/action\=/g;
|
||||||
|
s/ENCTYPE\=/enctype\=/g;
|
||||||
|
s/FORM/form/g;
|
||||||
|
s/INPUT/input/g;
|
||||||
|
s/METHOD\=/method\=/g;
|
||||||
|
s/NAME\=/name\=/g;
|
||||||
|
s/OPTION/option/g;
|
||||||
|
s/SELECT/select/g;
|
||||||
|
s/TEXTAREA/textarea/g;
|
||||||
|
s/TYPE\=/type\=/g' |
|
||||||
|
awk '/<([ ]|[ ])*form/,/<\/form>/ {print}' |
|
||||||
|
sed 's/<\/form>/&\nHJFORMEND\n/g;
|
||||||
|
s/<([ ]|[ ])*/HJBOUNDARY/g;
|
||||||
|
s/>(\n)*([ ]|[ ])*HJBOUNDARY/\n/g;
|
||||||
|
s/([ ]|[ ])*HJBOUNDARY//g;
|
||||||
|
s/^form/HJFORMSTART\n&/g' |
|
||||||
|
grep -e '(^HJFORM|^form|^input|^option|^select|^textarea)' >$1
|
||||||
|
}
|
||||||
|
fn getf{
|
||||||
|
a=`{grep -e '^form' $1 | sed 's/^.*action\=//g; s/^(\''|\"|[ ]*)//g; s/(\''|\"|[ ]|>).*$//g'}
|
||||||
|
e=`{grep -e '^form' $1 | sed 's/^.*enctype\=//g; s/^(\''|\"|[ ]*)//g; s/(\''|\"|[ ]|>).*$//g'}
|
||||||
|
m=`{grep -e '^form' $1 | sed 's/^.*method\=//g; s/^(\''|\"|[ ]*)//g; s/(\''|\"|[ ]|>).*$//g'}
|
||||||
|
f=$a
|
||||||
|
if(~ $#f 0)
|
||||||
|
f=/
|
||||||
|
if(~ $e multipart/form-data)
|
||||||
|
f=($f m)
|
||||||
|
if not if(~ $m post)
|
||||||
|
f=($f p)
|
||||||
|
if not
|
||||||
|
f=($f g)
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
for(j in `{grep -e '(^input|^select|^textarea)' $1}){
|
||||||
|
if(~ $d 1)
|
||||||
|
echo $"j >>formpost.log #debug
|
||||||
|
if(~ $j *name'='*)
|
||||||
|
jname=`{echo $"j |
|
||||||
|
sed 's/^.*name\=//g;
|
||||||
|
s/^(\''|\"|[ ]*)//g;
|
||||||
|
s/(\''|\"|[ ]|>).*$//g;
|
||||||
|
s/^.*\=.*$//g'}
|
||||||
|
if(~ $j *value'='*)
|
||||||
|
jvalue=`{echo $"j |
|
||||||
|
sed 's/^.*value\=//g;
|
||||||
|
s/^(\''|\"|[ ]*)//g;
|
||||||
|
s/(\''|\"|[ ]|>).*$//g;
|
||||||
|
s/^.*\=.*$//g;
|
||||||
|
s/[ ]/HJSPACE/g'}
|
||||||
|
ff=`{echo $"jname':'$"jvalue |
|
||||||
|
sed 's/^.*\=.*:/:/g;
|
||||||
|
s/:.*\=.*$/:/g'}
|
||||||
|
if(! ~ $ff :*)
|
||||||
|
f=($"f $"ff)
|
||||||
|
jname=()
|
||||||
|
jvalue=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
echo $"f
|
||||||
|
}
|
||||||
|
fn mencode{
|
||||||
|
f=()
|
||||||
|
cr=`{echo x | tr x \015}
|
||||||
|
while(! ~ $#1 0){
|
||||||
|
switch($1){
|
||||||
|
case *:*
|
||||||
|
f=($f $1)
|
||||||
|
case *
|
||||||
|
usage
|
||||||
|
}
|
||||||
|
shift
|
||||||
|
}
|
||||||
|
for(i in $f){
|
||||||
|
echo '--HJBOUNDARY'^$"cr
|
||||||
|
fname=`{echo $"i | awk -F ':' '{print $1}'}
|
||||||
|
fvalue=`{echo $"i | awk -F ':' '{print $2}'}
|
||||||
|
if(~ $fvalue @*){
|
||||||
|
fvalue=`{echo $"fvalue | sed 's/@//g'}
|
||||||
|
echo 'Content-Disposition: form-data; name="'$"fname'"; filename="'^`{basename $fvalue}^'"'$"cr
|
||||||
|
echo Content-Type: `{file -m $fvalue}^$"cr
|
||||||
|
echo $cr
|
||||||
|
cat $fvalue
|
||||||
|
echo $cr
|
||||||
|
}
|
||||||
|
if not{
|
||||||
|
echo 'Content-Disposition: form-data; name="'$"fname'"'$"cr
|
||||||
|
echo $"cr
|
||||||
|
echo $"fvalue^$"cr
|
||||||
|
}
|
||||||
|
}
|
||||||
|
echo '--HJBOUNDARY--'$"cr
|
||||||
|
}
|
||||||
|
fn uencode{
|
||||||
|
f=()
|
||||||
|
for(i){
|
||||||
|
fname=`{echo $"i | awk -F ':' '{print $1}'}
|
||||||
|
fvalue=`{echo $"i | awk -F ':' '{$1=""; print substr($0, 2)}' |
|
||||||
|
sed 's/HJSPACE/ /g' |
|
||||||
|
urlencode |
|
||||||
|
sed 's/%0A$//g'}
|
||||||
|
f=$"f^$"fname'='$"fvalue
|
||||||
|
if(! ~ $"i $*($#*))
|
||||||
|
f=$"f^'&'
|
||||||
|
}
|
||||||
|
echo $"f
|
||||||
|
}
|
||||||
|
fn print{
|
||||||
|
if(~ $d 1)
|
||||||
|
echo $"f >>formpost.log #debug
|
||||||
|
a=`{echo $"a | sed 's/^\///g'}
|
||||||
|
if(~ $a http*)
|
||||||
|
u=$a
|
||||||
|
if not
|
||||||
|
u=$"u/$"a
|
||||||
|
if(~ $M 1)
|
||||||
|
mencode `{for(i in $f){echo $"i}}
|
||||||
|
if not if(~ $m 1)
|
||||||
|
echo formpost -M `{for(i in $f){echo ''''$"i''''}} '| hget -P -r ''Content-Type: multipart/form-data, boundary=HJBOUNDARY''' $"u
|
||||||
|
if not if(~ $p 1)
|
||||||
|
echo 'hget -p '''^`{uencode $f}^''' '^$"u
|
||||||
|
if not
|
||||||
|
echo hget ''''$"u^'?'^`{uencode $f}^''''
|
||||||
|
}
|
||||||
|
if(~ $#M 0 && ~ $#g 0 && ~ $#m 0 && ~ $#p 0){
|
||||||
|
file=/tmp/formpost.$pid
|
||||||
|
geth $file
|
||||||
|
while(grep -s -e '^HJFORMSTART$' $file){
|
||||||
|
f=`{getf $file}
|
||||||
|
a=$f(1)
|
||||||
|
if(~ $f(2) g)
|
||||||
|
g=1
|
||||||
|
if not if(~ $f(2) m)
|
||||||
|
m=1
|
||||||
|
if not if(~ $f(2) p)
|
||||||
|
p=1
|
||||||
|
f=$f(3-)
|
||||||
|
print
|
||||||
|
{ echo /HJFORMSTART/,/HJFORMEND/d
|
||||||
|
echo w
|
||||||
|
echo q
|
||||||
|
} | sam -d $file >[2]/dev/null
|
||||||
|
}
|
||||||
|
rm -f $file
|
||||||
|
}
|
||||||
|
if not{
|
||||||
|
f=$*
|
||||||
|
print
|
||||||
|
}
|
||||||
107
sys/man/1/hget
107
sys/man/1/hget
|
|
@ -1,6 +1,6 @@
|
||||||
.TH HGET 1
|
.TH HGET 1
|
||||||
.SH NAME
|
.SH NAME
|
||||||
hget \- retrieve a web page corresponding to a url
|
hget, formpost \- retrieve, post to a web page corresponding to a url
|
||||||
.SH SYNOPSIS
|
.SH SYNOPSIS
|
||||||
.B hget
|
.B hget
|
||||||
[
|
[
|
||||||
|
|
@ -22,6 +22,30 @@ hget \- retrieve a web page corresponding to a url
|
||||||
.I baseurl
|
.I baseurl
|
||||||
]
|
]
|
||||||
.I url
|
.I url
|
||||||
|
.PP
|
||||||
|
.B formpost
|
||||||
|
[
|
||||||
|
.B -d
|
||||||
|
] [
|
||||||
|
.B -M
|
||||||
|
] [
|
||||||
|
.B -u
|
||||||
|
.I url
|
||||||
|
] [
|
||||||
|
.B -g
|
||||||
|
.I action
|
||||||
|
] [
|
||||||
|
.B -p
|
||||||
|
.I action
|
||||||
|
] [
|
||||||
|
.B -m
|
||||||
|
.I action
|
||||||
|
] [
|
||||||
|
.I name:value
|
||||||
|
|
|
||||||
|
.I name:@value
|
||||||
|
]
|
||||||
|
.I ...
|
||||||
.SH DESCRIPTION
|
.SH DESCRIPTION
|
||||||
.I Hget
|
.I Hget
|
||||||
retrieves the web page specified by the URL
|
retrieves the web page specified by the URL
|
||||||
|
|
@ -72,10 +96,84 @@ sends an arbitrary HTTP
|
||||||
Option
|
Option
|
||||||
.B -m
|
.B -m
|
||||||
overrides the HTTP method used for the request.
|
overrides the HTTP method used for the request.
|
||||||
|
.PP
|
||||||
|
.I Formpost
|
||||||
|
retrieves the web page specified by the URL
|
||||||
|
.I url,
|
||||||
|
parses its HTML for form data, then prints
|
||||||
|
.I hget
|
||||||
|
commands to submit forms to the
|
||||||
|
.I url.
|
||||||
|
If the
|
||||||
|
.B -M, -g, -p
|
||||||
|
or
|
||||||
|
.B -m
|
||||||
|
flags are set, the
|
||||||
|
.I hget
|
||||||
|
commands are assembled without first retrieving and interpreting the
|
||||||
|
target HTML.
|
||||||
|
.PP
|
||||||
|
If the
|
||||||
|
.B -d
|
||||||
|
flag is specified, debugging information is written
|
||||||
|
to the file
|
||||||
|
.B formpost.log
|
||||||
|
in the current directory.
|
||||||
|
.PP
|
||||||
|
The
|
||||||
|
.B -M
|
||||||
|
flag applies multipart/form-data encoding to the
|
||||||
|
remaining arguments and prints the result on
|
||||||
|
the standard output.
|
||||||
|
.PP
|
||||||
|
The
|
||||||
|
.B -u
|
||||||
|
flag sets the target URL to
|
||||||
|
.I url.
|
||||||
|
.PP
|
||||||
|
The
|
||||||
|
.B -g
|
||||||
|
and
|
||||||
|
.B -p
|
||||||
|
flags set the the form method to GET and POST, respectively. The
|
||||||
|
.B -m
|
||||||
|
flag sets the form method to POST and its enctype to multipart/form-data.
|
||||||
|
In all cases, the form action is set to
|
||||||
|
.I action.
|
||||||
|
.PP
|
||||||
|
The remaining arguments of the form
|
||||||
|
.B name:value
|
||||||
|
are interpreted as form field names and values to be submitted along
|
||||||
|
with the form. An argument of the form
|
||||||
|
.B name:@value
|
||||||
|
is interpreted as a file upload, with the information following the
|
||||||
|
.B @
|
||||||
|
symbol treated as the full path to the location of the file.
|
||||||
|
.SH EXAMPLES
|
||||||
|
Retrieve the
|
||||||
|
.I hget
|
||||||
|
command needed to submit a form, which may then be
|
||||||
|
edited and sent.
|
||||||
|
.IP
|
||||||
|
.EX
|
||||||
|
% formpost -u http://p.intma.in
|
||||||
|
hget -p 'text=' http://p.intma.in/paste.cgi
|
||||||
|
.EE
|
||||||
|
.PP
|
||||||
|
Manually specify options to be sent to a given
|
||||||
|
.I url.
|
||||||
|
Note: The target HTML is not fetched and interpreted.
|
||||||
|
.IP
|
||||||
|
.EX
|
||||||
|
% formpost -u http://p.intma.in -p paste.cgi 'text:test post'
|
||||||
|
hget -p 'text=test+post' http://p.intma.in/paste.cgi
|
||||||
|
.EE
|
||||||
.SH SOURCE
|
.SH SOURCE
|
||||||
.B /rc/bin/hget
|
.B /rc/bin/hget
|
||||||
|
.br
|
||||||
|
.B /rc/bin/formpost
|
||||||
.SH "SEE ALSO"
|
.SH "SEE ALSO"
|
||||||
.IR webfs (4),
|
.IR webfs (4) ,
|
||||||
.IR ftpfs (4)
|
.IR ftpfs (4)
|
||||||
.SH DIAGNOSTICS
|
.SH DIAGNOSTICS
|
||||||
.I Hget
|
.I Hget
|
||||||
|
|
@ -84,3 +182,8 @@ requires
|
||||||
service mounted on
|
service mounted on
|
||||||
.B /mnt/web
|
.B /mnt/web
|
||||||
to work.
|
to work.
|
||||||
|
.SH BUGS
|
||||||
|
.I Formpost
|
||||||
|
does not attempt to insert default values for
|
||||||
|
.B <select>
|
||||||
|
tags.
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue