#!/usr/bin/perl if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/,$ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); if($ENV{QUERY_STRING}) { @getpairs = split(/&/,$ENV{'QUERY_STRING'}); push(@pairs,@getpairs); } } foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $p = $FORM{'p'}; # Kurs- bzw. Prüfungstyp if ($p eq "ahs") { $ueberblick = "../index_ahs.html"; } elsif($p eq "sbp1") { $ueberblick = "../index_sbpm1.html"; } elsif($p eq "sbp2") { $ueberblick = "../index_sbpm2.html"; } elsif($p eq "sbp3") { $ueberblick = "../index_sbpm3.html"; } elsif($p eq "brp") { $ueberblick = "../index_brp.html"; } elsif($p eq "bm") { $ueberblick = "../index_bm.html"; } $n = $FORM{'n'}; if ($n eq "1") { $nummern_anzeigen = 1; $ressourcen_eintragen = "\n". "Ressourcen eintragen    "; } else { $nummern_anzeigen = 0; $ressourcen_eintragen = ""; } # $nummern_anzeigen ... wird von "../ressourcen/eintragung_allg.cgi" gelesen require "../ressourcen/eintragung_allg.cgi"; # Liste aller Eintragungen: opendir(VERZ,"."); @filenamen = readdir(VERZ); closedir(VERZ); foreach $j (@filenamen) { if (($j ne ".") && ($j ne "..") && ($j ne "index.cgi")) { $j =~ s/^res//; $j =~ s/\.txt$//; if (!($j =~ /[a-zA-Z]/)) { push (@nummern,$j); } # falls $j keine Buchstaben mehr enthält } } @nummern = sort{$a <=> $b} (@nummern); print "Content-type: text/html\n\n"; print <<"LABEL_SEITE"; Mathematische Materialien von allgemeinem Interesse


Mathematische Materialien

von allgemeinem Interesse

LABEL_SEITE # Jetzt die einzelnen Eintragungen: foreach $j (@nummern) { eintragen($j); } print <<"LABEL_SEITE";
$ressourcen_eintragen Überblick über die Module
ODL Mathematik Einstiegsseite

LABEL_SEITE sub eintragen { require "res$_[0].txt"; eintragung_allg(); }