Svada output

#!/usr/local/bin/rexx say "Content-type: text/html" say "" say "" say "" say " Svada output" say "" say "" say "

"

/* Default values */
varlines = 42
vartype = 'HTML'
vargrammar = 'general'
varwlist = ''

ArgString = getenv("QUERY_STRING")
ArgLabels = 'lines type grammar wlist'
do while ArgLabels^=''
   parse var ArgLabels Label ArgLabels
   interpret "parse var ArgString tmpPre '"Label"=' var"Label" '&' tmpPost"
   ArgString= tmpPre || tmpPost 
   end

if ArgLabels ^= '' then do
   say 'Svadawrapper: Error: Duplicate or extraneous tag in' getenv(QUERY_STRING)
   exit 1 
   end

address system "./svada.rexx" vargrammar".gmr" varlines

say "

" say "" say "" exit 0