#!/usr/local/gnu/bin/perl # # erzeugt ein Formular, das eine Veranstaltung 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 keine interne, eindeutige Nummer für diesen\n"; print "Eintrag mitgeliefert. Die Anfrage wird abgebrochen.

\n"; print "\n"; exit; } if ($ACTION eq "change") { $title = "Veranstaltung editieren"; } elsif ($ACTION eq "delete") { $title = "Veranstaltung löschen"; } elsif ($ACTION eq "new") { $title = "Veranstaltung 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"; 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 ne "new") { for ($i=0 ; $i<=$last ; ++$i) { last if ($UID[$i] == $UID); } } else { $UID = ""; $i = 1+$#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"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; } print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
Name der Veranstaltung:\n"; print " Informatik A
Grund-/Hauptstudium:Grundvorlesung
Typ der Veranstaltung:Vorlesung
Semester:\n"; print " WS 1999/2000
Dozent:\n"; @MANY = split(/ /, $DOZENT_KUERZEL[$i]); for ($j=0 ; $j<4 ; ++$j) { print " \n"; } print " Vornberger, Oliver
Übergreifendes Thema:Algorithmen
Kurze Beschreibung:\n"; print " Einführung in die Programmierung, Algorithmen, abstrakte Datentypen, ...
Raum:\n"; print " 32/102
Zeit:\n"; print " Mo,Di 14:15-15:45
URL zu Vorlesungsseiten (deutsch):\n"; print " http://www-lehre.informatik.uni-osnabrueck.de/~ainf/
URL zu Vorlesungsseiten (englisch):\n"; print "
Übungsleiter:\n"; @MANY = split(/ /, $UEBUNG_KUERZEL[$i]); for ($j=0 ; $j<2 ; ++$j) { print " \n"; } print " Müller, Olaf
Übungs-Raum:\n"; print " 31/449a
Übungs-Zeit:\n"; print " Do 08:30 und 14:15
URL zu Übungsseiten (deutsch):\n"; print " http://www-lehre.informatik.uni-osnabrueck.de/~ainf/
URL zu Übungsseiten (englisch):\n"; print " http://www-lehre.informatik.uni-osnabrueck.de/~ainf/
\n"; print "
\n"; print "
\n"; print "\n"; print "\n";