Bestätigung der Eingaben
------------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Bestätigung";
print "Ihre eingegebenen Informationen
";
print "
";
print "Wenn die Angaben soweit OK sind dann klicken sie bitte auf Bestätigen um die Daten endgültig abzusenden!";
print "";
print "";
Speichern der Eingaben
----------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n";
@fields = split(/&/,$ENV{QUERY_STRING});
open(FILE,">>../../cgi-write/anmeldung") or die "Datei konnte nicht für Ausgabe geöffnet werden";
foreach(@fields)
{
@data = split(/=/,$_);
$data[1]=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$data[1]=~tr/+/ /;
print FILE "$data[0]=$data[1]\n"
}
print FILE "\n";
close(FILE);
print "
Einschreibung erfolgreich";
print "Die Einschreibung für den Kurs Richtlinien und Technologien im WWW-Umfeld war erfolgreich!!!
";
print "";
Ausgabe der Daten
-----------------
#!/usr/bin/perl
open(FILE, "<../../cgi-write/anmeldung") || die "Datei wurde nicht gefunden";
my @zeilen = ;
close(FILE);
print "Content-type: text/html\n\n";
print "Zusammenfassung";
print "Bisher angemeldete Personen:
\n";
chomp(@zeilen);
print "| Vorname | Name | Studiengang | Thema | E-Mail |
|---|
";
print "";
foreach (@zeilen)
{
if(substr($_,0,1) eq "")
{
print "
";
}
else
{
@data=split(/=/,$_);
print "| @data[1] | ";
}
}
print "
";