#!/usr/local/gnu/bin/perl require "./veranstaltungen.ph"; # Dateinamen für HTML-Dateien $FILE_DE_RECENT = "veranstalt/aktuell.php"; $FILE_DE_ROOM = "veranstalt/raum.php"; $FILE_DE_DOZENTEN = "veranstalt/dozenten.php"; $FILE_DE_SEMESTER = "veranstalt/semester.php"; $FILE_DE_THEMEN = "veranstalt/themen.php"; $FILE_DE_SEARCH = "veranstalt/vorlesungen.php"; $FILE_EN_RECENT = "veranstalt/aktuellE.php"; $FILE_EN_ROOM = "veranstalt/raumE.php"; $FILE_EN_DOZENTEN = "veranstalt/dozentenE.php"; $FILE_EN_SEMESTER = "veranstalt/semesterE.php"; $FILE_EN_THEMEN = "veranstalt/themenE.php"; $FILE_EN_SEARCH = "veranstalt/vorlesungenE.php"; $URL_DE_RECENT = "aktuell.php"; $URL_DE_ROOM = "raum.php"; $URL_DE_DOZENTEN = "dozenten.php"; $URL_DE_SEMESTER = "semester.php"; $URL_DE_THEMEN = "themen.php"; $URL_DE_SEARCH = "/Search/vorlesungen.php.de"; $URL_EN_RECENT = "aktuellE.php"; $URL_EN_ROOM = "raumE.php"; $URL_EN_DOZENTEN = "dozentenE.php"; $URL_EN_SEMESTER = "semesterE.php"; $URL_EN_THEMEN = "themenE.php"; $URL_EN_SEARCH = "/Search/vorlesungen.php.en"; print "Content-Type: text/html\n"; print "\n"; print "Neue Startseiten erzeugen\n"; print "\n"; print "

Neue Startseiten erzeugen

\n"; # # Rechnernamen in den Seiten auf einen einheitlichen # Stand bringen (analog zu HTDIG-Datenbank!) # sub changeServerAliases { my $line = $_[0]; $line =~ s/vorlesungen.uni-osnabrueck.de/vorlesungen.uos.de/g; $line =~ s/informatik.uni-osnabrueck.de/inf.uos.de/g; $line =~ s/informatik.uos.de/inf.uos.de/g; return $line; } # # Ausgabe Text oder Link auf Seite # sub printLink { my $prefix = $_[0]; my $desc = $_[1]; my $postfix = $_[2]; my $type = $_[3]; my $visible = $_[4]; my $trenner = $_[5]; if ($type eq $visible) { $tag = $desc; } else { $tag = $prefix . $desc . $postfix; } if ($trenner) { print FILE "$tag | "; } else { print FILE "$tag"; } } # # Ausgabe des Standard-HTML-Kopfes # sub printHTMLHeaderDE { my $title = $_[0]; my $thisis = $_[1]; my $head = $_[2]; my $actlist = ""; my $alllist = ""; print FILE "\n\n"; print FILE "

\n[ "; printLink("","Aktuelle und geplante","","RECENT",$thisis,1); printLink("","Aktuelle mit Raumbelegungen","","ROOM",$thisis,1); printLink("","Alle nach Dozenten","","DOZENTEN",$thisis,1); printLink("","Alle nach Semester","","SEMESTER",$thisis,1); printLink("","Alle nach Themen","","THEMEN",$thisis,0); print FILE " ]

\n"; print FILE "

$head\n" if($head ne ""); print FILE "

\n"; } sub printHTMLHeaderEN { my $title = $_[0]; my $thisis = $_[1]; my $head = $_[2]; my $actlist = ""; my $alllist = ""; print FILE "\n\n"; print FILE "

\n"; print FILE "

$head\n" if($head ne ""); print FILE "

\n"; } # # Ausgabe des Standard-HTML-Fusses # sub printHTMLFooterDE { my $thisis = $_[0]; print FILE "

\n[ "; printLink("","Actual and planned (german)","","RECENT",$thisis,1); printLink("","Actual with rooms (german)","","ROOM",$thisis,1); printLink("","All sorted by lecturer (german)","","DOZENTEN",$thisis,1); printLink("","All sorted by term (german)","","SEMESTER",$thisis,1); printLink("","All sorted by topic (german)","","THEMEN",$thisis,0); print FILE " ]\n"; print FILE "\n"; } # # erzeugt eine Liste von Links zu URLs zu einer Veranstaltung # sub getUrlList { my $idx = $_[0]; my $doz = $_[1]; my $urls = ""; if (($doz eq "") || ($doz eq $DOZENT_KUERZEL[$idx])) { if ($URL[$idx] ne "") { $urls .= " ($TYP[$idx])"; } if ($URL_E[$idx] ne "") { $urls .= " ($TYP[$idx], engl.)"; } } if (($doz eq "") || ($doz eq $UEBUNG_KUERZEL[$idx])) { if ($UEBUNG_URL[$idx] ne "") { $urls .= " (Übung)"; } if ($UEBUNG_URL_E[$idx] ne "") { $urls .= " (Übung, engl.)"; } } if ($urls eq "") { return " keine Online-Version verfügbar"; } return &changeServerAliases($urls); } # # Ausgabe der aktuellen Veranstaltungen mit Raumbelegung # sub printRecentRooms { my $FILENM = $_[0]; my @INDEX = sortDatabase("Semester"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } $head = "

Aktuelle Veranstaltungen mit Raumbelegungen

\n"; printHTMLHeaderDE("Veranstaltungen im Institut für Informatik - aktuelle Veranstaltungen","ROOM",$head); my $sem = ""; my $typ = ""; my $lClose = ""; for (my $i=0 ; $i<=$last ; ++$i) { my $idx = $INDEX[$i]; # nur aktuelles und nächstes Semester zulassen next if ( ($SEMESTER[$idx] ne $ACT_SEMESTER) && ($SEMESTER[$idx] ne $NEXT_SEMESTER)); if ($sem ne $SEMESTER[$idx]){ if ($SEMESTER[$idx] eq $ACT_SEMESTER) { $typ = ""; print FILE "$lClose\n"; $lClose=""; print FILE "

Veranstaltungen im aktuellen Semester ($SEMESTER[$idx])

\n"; } else { print FILE "

Veranstaltungen im nächsten Semester ($SEMESTER[$idx])

\n"; } print FILE "

\n"; } if ($typ ne $STUDIUM[$idx]) { print FILE "$lClose\n"; $lClose=""; print FILE "

$STUDIUM[$idx]en

\n"; print FILE "

$NAME[$idx] -", &getUrlList($idx,""), "\n"; $rooms = ""; $rooms .= "Raum ($TYP[$idx]) $RAUM[$idx]\n" if($RAUM[$idx] ne ""); $rooms .= "Zeit ($TYP[$idx]) $ZEIT[$idx]\n" if($ZEIT[$idx] ne ""); $rooms .= "Raum (Übung) $UEBUNG_RAUM[$idx]\n" if($UEBUNG_RAUM[$idx] ne ""); $rooms .= "Zeit (Übung) $UEBUNG_ZEIT[$idx]\n" if($UEBUNG_ZEIT[$idx] ne ""); if ($rooms ne "") { print FILE "
\n$rooms\n
\n"; } else { print FILE "
keine Rauminformationen verfügbar
\n"; } } print FILE "$lClose\n"; print FILE "

\n"; printHTMLFooterDE("ROOM"); close FILE; } # # Ausgabe der aktuellen Veranstaltungen # sub printRecent { my $FILENM = $_[0]; my @INDEX = sortDatabase("Semester"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } $head = "

Aktuelle Veranstaltungen

\n"; printHTMLHeaderDE("Veranstaltungen im Institut für Informatik - aktuelle Veranstaltungen","RECENT",$head); my $sem = ""; my $typ = ""; my $lClose = ""; for (my $i=0 ; $i<=$last ; ++$i) { my $idx = $INDEX[$i]; # nur aktuelles und nächstes Semester zulassen next if ( ($SEMESTER[$idx] ne $ACT_SEMESTER) && ($SEMESTER[$idx] ne $NEXT_SEMESTER)); if ($sem ne $SEMESTER[$idx]){ if ($SEMESTER[$idx] eq $ACT_SEMESTER) { $typ = ""; print FILE "$lClose\n"; $lClose=""; print FILE "

Veranstaltungen im aktuellen Semester ($SEMESTER[$idx])

\n"; } else { print FILE "

Veranstaltungen im nächsten Semester ($SEMESTER[$idx])

\n"; } print FILE "

\n"; } if ($typ ne $STUDIUM[$idx]) { print FILE "$lClose\n"; $lClose=""; print FILE "

$STUDIUM[$idx]en

\n"; print FILE "

$NAME[$idx] -", &getUrlList($idx,""), "\n"; } print FILE "$lClose\n"; print FILE "

\n"; print FILE "\n"; printHTMLFooterDE("RECENT"); close FILE; } # # erzeugt eine Suchseite fuer alle Veranstaltungen (deutsch) # sub printSearchDE { my $FILENM = $_[0]; my @INDEX = sortDatabase("Semester"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } print FILE "\n\n"; print FILE "

\n"; print FILE "
\n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE "\n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE "
Suchen nach: \n"; print FILE " \n"; print FILE " \n"; print FILE "
Treffer: \n"; print FILE " \n"; print FILE " Suchmethode: \n"; print FILE " \n"; print FILE "
Trefferanzeige: \n"; print FILE " \n"; print FILE " Treffer/Seite: \n"; print FILE " \n"; print FILE "
Sortieren nach: \n"; print FILE " \n"; print FILE "
\n"; print FILE "
Suche in folgenden Veranstaltungen (Mehrfachauswahl möglich):
\n"; print FILE "
\n"; print FILE " \n"; print FILE "
\n"; print FILE "
\n"; print FILE "

\n"; print FILE "

\n"; print FILE "Die Suchfunktion wurde mit ht://Dig erstellt.\n\n"; print FILE "\n"; close FILE; } # # erzeugt eine Suchseite fuer alle Veranstaltungen (englisch) # sub printSearchEN { my $FILENM = $_[0]; my @INDEX = sortDatabase("Semester"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } print FILE "\n\n"; print FILE "

\n"; print FILE "
\n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE "\n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE " \n"; print FILE "
Search for: \n"; print FILE " \n"; print FILE " \n"; print FILE "
Page contains: \n"; print FILE " \n"; print FILE " Search Algorithm: \n"; print FILE " \n"; print FILE "
Show Hits: \n"; print FILE " \n"; print FILE " Hits/Page: \n"; print FILE " \n"; print FILE "
Sort by: \n"; print FILE " \n"; print FILE "
\n"; print FILE "
Search in the following courses (multiselect possible):
\n"; print FILE "
\n"; print FILE " \n"; print FILE "
\n"; print FILE "
\n"; print FILE "

\n"; print FILE "

\n"; print FILE "Powered by ht://Dig.\n\n"; print FILE "\n"; close FILE; } # # Ausgabe nach Semestern sortiert # sub printSemesterSorted { my $FILENM = $_[0]; my @INDEX = sortDatabase("Semester"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } $head = "

Alle Veranstaltungen (nach Semester)

\n"; printHTMLHeaderDE("Veranstaltungen im Institut für Informatik - sortiert nach Semester","SEMESTER",$head); my $sem = ""; my $lClose = ""; for (my $i=0 ; $i<=$last ; ++$i) { my $idx = $INDEX[$i]; if ($sem ne $SEMESTER[$idx]){ print FILE "$lClose\n"; $lClose=""; print FILE "

Veranstaltungen $SEMESTER[$idx]

\n"; print FILE "

$NAME[$idx] -", &getUrlList($idx,""), "\n"; } print FILE "$lClose\n"; print FILE "\n"; printHTMLFooterDE("SEMESTER"); close FILE; } # # Ausgabe nach Dozenten sortiert # sub printDozentSorted { my $FILENM = $_[0]; # Mehrfach-Dozenten auflösen, indem Veranstaltung # mehrfach kopiert wird ==> danach ist die # Datenbank redundant und muß neu gelesen werden for (my $i=0 ; $i<=$last ; ++$i) { if ($DOZENT_KUERZEL[$i] =~ / /) { @MANY = split(/ /, $DOZENT_KUERZEL[$i]); $DOZENT_KUERZEL[$i] = shift @MANY; foreach $doz (@MANY) { ++$last; $DOZENT_KUERZEL[$last] = $doz; $NAME[$last] = $NAME[$i]; $STUDIUM[$last] = $STUDIUM[$i]; $THEMA[$last] = $THEMA[$i]; $TYP[$last] = $TYP[$i]; $BESCHREIBUNG[$last] = $BESCHREIBUNG[$i]; $SEMESTER[$last] = $SEMESTER[$i]; $SEMESTER_SW[$last] = $SEMESTER_SW[$i]; $SEMESTER_YEAR[$last] = $SEMESTER_YEAR[$i]; $URL[$last] = $URL[$i]; $URL_E[$last] = $URL_E[$i]; $UEBUNG_KUERZEL[$last] = $UEBUNG_KUERZEL[$i]; $UEBUNG_URL[$last] = $UEBUNG_URL[$i]; $UEBUNG_URL_E[$last] = $UEBUNG_URL_E[$i]; } } } for (my $i=0 ; $i<=$last ; ++$i) { if ($UEBUNG_KUERZEL[$i] =~ / /) { @MANY = split(/ /, $UEBUNG_KUERZEL[$i]); $UEBUNG_KUERZEL[$i] = shift @MANY; foreach $doz (@MANY) { ++$last; $DOZENT_KUERZEL[$last] = $DOZENT_KUERZEL[$i]; $NAME[$last] = $NAME[$i]; $STUDIUM[$last] = $STUDIUM[$i]; $THEMA[$last] = $THEMA[$i]; $TYP[$last] = $TYP[$i]; $BESCHREIBUNG[$last] = $BESCHREIBUNG[$i]; $SEMESTER[$last] = $SEMESTER[$i]; $SEMESTER_SW[$last] = $SEMESTER_SW[$i]; $SEMESTER_YEAR[$last] = $SEMESTER_YEAR[$i]; $URL[$last] = $URL[$i]; $URL_E[$last] = $URL_E[$i]; $UEBUNG_KUERZEL[$last] = $doz; $UEBUNG_URL[$last] = $UEBUNG_URL[$i]; $UEBUNG_URL_E[$last] = $UEBUNG_URL_E[$i]; } } } my @INDEX = sortDatabase("Dozent"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } $head = "
Alle Veranstaltungen (nach Dozenten)
\n"; printHTMLHeaderDE("Veranstaltungen im Institut für Informatik - sortiert nach Dozenten","DOZENTEN",$head); # Veranstaltungen und Übungen aller Dozenten sammeln my $doz = ""; my %list = (); for (my $i=0 ; $i<=$last ; ++$i) { my $idx = $INDEX[$i]; $doz = $DOZENT_KUERZEL[$idx]; $ueb = $UEBUNG_KUERZEL[$idx]; $list{$doz} .= "
$NAME[$idx] ($SEMESTER[$idx]) -".&getUrlList($idx,$doz)."\n"; if ($doz ne $ueb) { $list{$ueb} .= "
$NAME[$idx] ($SEMESTER[$idx]) -".&getUrlList($idx,$ueb)."\n"; } } # Sortierte Liste der Dozenten erzeugen sub _dozSort { my $key_a = join(' ', $DOZENTTYP{$a}, reverse split(' ', $DOZENT{$a})); my $key_b = join(' ', $DOZENTTYP{$b}, reverse split(' ', $DOZENT{$b})); return $key_a cmp $key_b; } my @DOZKEYS = sort _dozSort keys %DOZENT; # Dozenten sortiert ausgeben foreach $key (@DOZKEYS) { print FILE "
Dozent: $DOZENT{$key}
\n"; print FILE "
\n"; } print FILE "\n"; printHTMLFooterDE("DOZENTEN"); close FILE; } # # Ausgabe nach Themen sortiert # sub printThemaSorted { my $FILENM = $_[0]; my @INDEX = sortDatabase("Thema"); if (!open(FILE, ">$FILENM")) { print "Fehler: Kann Datei $FILENM nicht beschreiben ...\n"; exit; } $head = "
Alle Veranstaltungen (nach Themen)
\n"; printHTMLHeaderDE("Veranstaltungen im Institut für Informatik - sortiert nach Themen","THEMEN",$head); my $std = ""; my $thm = "kdjfhv"; my $lClose=''; my $lClose2=''; for (my $i=0 ; $i<=$last ; ++$i) { my $idx = $INDEX[$i]; if ($std ne $STUDIUM[$idx]) { print FILE "$lClose$lClose2\n"; $lClose="

"; $lClose2=""; print FILE "

$STUDIUM[$idx]en

\n"; $thm = "kdjfhv"; } if ($thm ne $THEMA[$idx]){ if ($THEMA[$idx] eq "") { print FILE "$lClose2\n"; $lClose2=""; print FILE "

kein Thema angegeben

\n"; print FILE "

\n"; } else { print FILE "$lClose2\n"; $lClose2=""; print FILE "

Thema: $THEMA[$idx]

\n"; print FILE "

$NAME[$idx] ($SEMESTER[$idx]) -", &getUrlList($idx,""), "\n"; } print FILE "$lClose$lClose2\n"; print FILE "\n"; printHTMLFooterDE("THEMEN"); close FILE; } # Datenbank einlesen readDatabase("veranstaltungen.db","HTML"); # Datenbank fuer Suchseite der Veranstaltungen ausgeben printSearchDE $FILE_DE_SEARCH; printSearchEN $FILE_EN_SEARCH; # Datenbank für aktuelles und nächstes Semester ausgeben printRecent $FILE_DE_RECENT; # Datenbank für aktuelles und nächstes Semester ausgeben (mit Raumbelegung) printRecentRooms $FILE_DE_ROOM; # Datenbank nach Semestern sortiert ausgeben printSemesterSorted $FILE_DE_SEMESTER; # Datenbank nach Themen sortiert ausgeben printThemaSorted $FILE_DE_THEMEN; # Datenbank nach Dozenten sortiert ausgeben # (verändert die Datenbank, daher als letztes # oder Neueinlesen der Datenbank) printDozentSorted $FILE_DE_DOZENTEN; #readDatabase("veranstaltungen.db","HTML"); print "Es wurden folgende Seiten neu erzeugt:\n"; print "
- Veranstaltungs-Suche (deutsch, englisch)\n"; print "
- Aktuelle Veranstaltungen\n"; print "
- Aktuelle Veranstaltungen mit Raumbelegung\n"; print "
- Veranstaltungen sortiert nach Dozenten\n"; print "
- Veranstaltungen sortiert nach Themen\n"; print "
- Veranstaltungen sortiert nach Semestern\n"; print "
\n"; print "
Die Seiten werden lokal generiert, die offiziellen\n"; print "Seiten werden nicht ersetzt. Dies sient dazu, daß die\n"; print "erzeugten Seiten hier zuerst gesichtet werden können.\n"; print "Ist alles in Ordnung, sollten die Seiten mit den unten stehenden\n"; print "Link an die offiziellen Stellen kopiert werden.\n"; print "
\n"; print "
Veröffentlichen der Seiten
\n"; print "
\n"; print "
Zurück zur Administrationsseite\n"; print "\n";

Suchen nach:	\n"; print FILE " \n"; print FILE " \n"; print FILE "

Treffer:	\n"; print FILE " \n"; print FILE "	Suchmethode:	\n"; print FILE " \n"; print FILE "
Trefferanzeige:	\n"; print FILE " \n"; print FILE "	Treffer/Seite:	\n"; print FILE " \n"; print FILE "
Sortieren nach:	\n"; print FILE " \n"; print FILE "

\n"; print FILE " Suche in folgenden Veranstaltungen (Mehrfachauswahl möglich): \n"; print FILE "
\n"; print FILE " \n"; print FILE "

Search for:	\n"; print FILE " \n"; print FILE " \n"; print FILE "

Page contains:	\n"; print FILE " \n"; print FILE "	Search Algorithm:	\n"; print FILE " \n"; print FILE "
Show Hits:	\n"; print FILE " \n"; print FILE "	Hits/Page:	\n"; print FILE " \n"; print FILE "
Sort by:	\n"; print FILE " \n"; print FILE "

\n"; print FILE " Search in the following courses (multiselect possible): \n"; print FILE "
\n"; print FILE " \n"; print FILE "

Neue Startseiten erzeugen

Aktuelle Veranstaltungen mit Raumbelegungen

Veranstaltungen im aktuellen Semester ($SEMESTER[$idx])

Veranstaltungen im nächsten Semester ($SEMESTER[$idx])

$STUDIUM[$idx]en

Aktuelle Veranstaltungen

Veranstaltungen im aktuellen Semester ($SEMESTER[$idx])

Veranstaltungen im nächsten Semester ($SEMESTER[$idx])

$STUDIUM[$idx]en

Alle Veranstaltungen (nach Semester)

Veranstaltungen $SEMESTER[$idx]

Alle Veranstaltungen (nach Dozenten)

Dozent: $DOZENT{$key}

Alle Veranstaltungen (nach Themen)

$STUDIUM[$idx]en

kein Thema angegeben

Thema: $THEMA[$idx]

Veröffentlichen der Seiten