#!/bin/csh
#
if ( $REQUEST_METHOD == "POST" ) then
#######
#
# Sicherheitsabfrage: CONTENT_LENGTH <= 100
#
#######
if ( $CONTENT_LENGTH >= 100 || $CONTENT_TYPE != "application/x-www-form-urlencoded" ) then
/bin/cat << HTML_SEITE3
Content-type: text/html
Fehlermeldung
Ihre Eingabe ist zu lang oder unerlaubter Zugriff!
HTML_SEITE3
else ## if ( $CONTENT_LENGTH <= 100 )
#######
# aus dem Standardeingabestrom werden die Ersatzdarstellungen fuer die Sonderzeichen
#
# Umlaute
# Eszet
# Blank
# Plus
#
# rausgefildert und durch die entsprechenden Zeichen ersetzt.
#
# Fuer alle anderen Sonderzeichen des Eingabestroms wird die
# Ersatzdarstellung ausgegeben.
#
# Die so veraenderte Standardeingabe wird als Wert der Variablen FORM_VARIABLEN
# zugewiesen.
#
#######
set FORM_VARIABLEN = \
`/bin/sed -e "s/+/ /g" -e "s/%2B/+/g" -e "s/%E4/ä/g" -e "s/%F6/ö/g" -e "s/%FC/ü/g" `
set FORM_VARIABLEN = \
`echo $FORM_VARIABLEN | sed -e "s/%DF/ß/g" -e "s/%D6/Ö/g" -e "s/%DC/Ü/g" -e "s/%C4/Ä/g"`
#######
#
# Der Variablen "Vorname" wird der Wert der FORM-Variablen "Vorname" zugewiesen
# Der Variablen "Nachname" wird der Wert der FORM-Variablen "Nachname" zugewiesen
# Der Variablen "Submit" wird der Wert der FORM-Variablen "Submit" zugewiesen
#
#######
set FormVar = `/bin/echo $FORM_VARIABLEN | /bin/awk -F \& '{print $1}'`
set Vorname = `/bin/echo $FormVar | /bin/awk -F = '{print $2}'`
set FormVar = `/bin/echo $FORM_VARIABLEN | /bin/awk -F \& '{print $2}'`
set Nachname = `/bin/echo $FormVar | /bin/awk -F = '{print $2}'`
set FormVar = `/bin/echo $FORM_VARIABLEN | /bin/awk -F \& '{print $3}'`
set Submit = `/bin/echo $FormVar | /bin/awk -F = '{print $2}'`
#######
#
# Die "Antwortseite" ausgeben
#
#######
/bin/cat << HTML_SEITE2
Content-type: text/html
Antwortseite
Hallo $Vorname
$Nachname !
HTML_SEITE2
endif # if ( $CONTENT_LENGTH >= 100 )
else # if ( $REQUEST_METHOD == "POST" )
#######
#
# Das "Formular" ausgeben
#
#######
/bin/cat << HTML_SEITE1
Content-type: text/html
Formular
C-Shell-Script
HTML_SEITE1
endif # ($REQUEST_METHOD == "POST")
##