[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]

$! FORMWORK.C Usage Example
$! Submitted by example form WASD_ROOT:[SRC.MISC]FORMWORK_EXAMPLE.HTML
$! 30-OCT-2004  MGD  initial
$!
$ set noon
$ say = "write sys$output"
$ formwork == "$cgi_exe:formwork"
$ if WWW_QUERY_STRING .eqs. ""
$ then
$    formwork /html=WASD_ROOT:[src.misc]formwork_example.html -
              /csv=wasd_scratch:formwork_example_csv.txt /separator=","
$ else
$    if f$search("wasd_scratch:formwork_example_csv.txt") .eqs. ""
$    then
$       say "Status: 404"
$       say ""
$       say "Could not find the CSV file (perhaps use the example form first!)"
$    else
$       say "Content-Type: text/plain"
$       say ""
$       type wasd_scratch:formwork_example_csv.txt
$    endif
$ endif