#!/usr/bin/perl

# abstimmung.cgi
# geschrieben vom Michael Kabuß, 29. Oktober 2007

require "CGI-LIB.pl";   # "parsing" der FORM-Daten und Ausgabe der Variablen
require "DATUM.pl";     # eine Routine fuer das Datum

$date = &ctime(time);
chop($date);

&parse_form;

print "Content-type: text/html\n\n";

print "<HTML>\n";
print "<head><title>Stimmenabgabe</title></head>\n";
print "<body>\n";
print "<center>\n";
print "<H2>Stimmenabgabe</H2>\n";
print "am $date<p>\n";
print "<HR>\n";
print "</center><p>\n";
print "Wir haben von Dir folgende Angaben erhalten:<p> \n";
print "<ul> \n";
print "<li>Das Logo sollte folgende Form haben: <b>$in{'art'}</b> \n";
print "<li>Deine Wunschfarbe für das Logo ist: <b>$in{'logofarbe'}</b> \n";
print "<li>Deine Wunschfarbe für den Hintergrund ist: <b>$in{'hintergrundfarbe'}</b> \n";
print "<li>Deine Lieblingstextfarbe ist: <b>$in{'textfarbe'}</b> \n";
print "<b>$in{'comments'}</b> \n";
print "</ul><p> \n";
print "<B>Vielen Dank für Deine Meinung</B><p> \n";
print "</BODY>\n";
print "</HTML>\n";

chmod uo+xr mailmanager.pl