#!/usr/local/gnu/bin/perl # # erzeugt ein Formular, das einen Dozenten enthält # require "./veranstaltungen.ph"; print "Content-Type: text/html\n"; print "\n"; print "\n"; # QUERY_STRING auswerten if ($ENV{QUERY_STRING} =~ /(.*)=(.*)/) { $ACTION=$1; $UID=$2; } else { print "Ungültige Eingabe\n"; print "

Ungültiger Zugriff

\n"; print "

Es wurde kein Kürzel für diesen\n"; print "Eintrag mitgeliefert. Die Anfrage wird abgebrochen.

\n"; print "\n"; exit; } if ($ACTION eq "change") { $title = "Dozenten editieren"; } elsif ($ACTION eq "delete") { $title = "Dozenten löschen"; } elsif ($ACTION eq "new") { $title = "Dozenten hinzufügen"; } else { print "Ungültiger Zugriff\n"; print "

Ungültiger Zugriff

\n"; print "

Es wurde kein gültiger Modus für diesen\n"; print "Eintrag mitgeliefert (gelieferter Modus=$ACTION). Die Anfrage\n"; print "wird abgebrochen.

\n"; print "\n"; exit; } print "\n"; print " $title\n"; print "\n"; print "\n\n"; print "

$title

\n\n"; # Datenbank einlesen readDatabase("veranstaltungen.db","HTML"); # Sortierte Liste der Dozenten erzeugen sub dozSort { my $erg = ($DOZENTTYP{$a} cmp $DOZENTTYP{$b}); if ($erg==0) {$erg = ($DOZENT{$a} cmp $DOZENT{$b}); } return $erg; } @DOZKEYS = sort dozSort keys %DOZENT; if ($ACTION eq "new") { $UID = ""; } print "

\n"; if ($ACTION ne "new") { # alte Werte als Hidden-Input mitsenden, dadurch kann später # festgestellt werden, ob die Daten geändert wurden oder # Konflikte aufgetreten sind. print " \n"; print " \n"; } print " \n"; print " \n"; if ($ACTION eq "new") { print " \n"; print " \n"; } print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "

eind. Kürzel des Dozenten:	\n"; print "	OV
Name des Dozenten:	\n"; print "	Prof. Dr. Oliver Vornberger
Typ:		Professor
\n"; print "

\n"; print "

\n"; print "\n"; print "\n";