Formulare und CGI - Beispiel-Quelltext


#!/bin/sh
#
#       eingabe.cgi
#       Methode: GET, Parameter: Word
#       klin, Wed Jun 16 15:49:21 1999

# CGI-Parameter aus Variable lesen
Line=$QUERY_STRING

# Header der Ausgabe 
cat - <<!!
Content-type: text/html

<HTML>
<HEAD>
<TITLE>CGI Testskript - Eingabe</TITLE>
</HEAD>
<BODY BGCOLOR=#ffffff TEXT=#000000 LINK=#000000>
<HR>
<H1>CGI Testskript - Eingabe</H1>
<HR>
!!

# Formularparameter ermitteln
OIFS="$IFS"
IFS="=&$IFS"
set $Line
IFS="$OIFS"

Name=$1
Value=$2

# Pruefung und Ausgabe der Ergebnisse
if [ "$Name" = "Word" ]
then
  cat - <<!!
<FONT COLOR="green">
<H1>Eingabe war "<EM>$Value</EM>"</H1>
<H3>(Name=<EM>$Name</EM>, Value=<EM>$Value</EM>)<H3>
</FONT>
!!
else
  cat - <<!!
<FONT COLOR="red">
<H1>Fehler in Formular oder Skript!</H1>
<H3>Name=<EM>$Name</EM>, Value=<EM>$Value</EM><H3>
</FONT>
!!
fi

# HTML-Trailer

cat - <<!!
<P>
<HR>
</BODY>
</HTML>
!!