#! c:/perl64/bin/perl.exe # # Voreinstellungen require 'cgi-lib.pl'; # Eine Standardbibliothek # muss im Perl Library-Verzeichnis liegen require 'acwww25.pl'; # Grundeinstellungen use CGI qw(:standard); print header(); # Fab01000628.gif wird so aufgerufen: # http://www.mgh-bibliothek.de/cgi-bin/fabricius/i/fabricius_i.pl?seite=Fab01000628.gif&start=628 # Zun„chst die Initialisierung &Init; # Im Querystring zunaechst ~ durch = ersetzen $ENV{'QUERY_STRING'} =~ s/\~/\=/g; &ReadParse; # Suchbegriffe einlesen. Sie stehen # im Array %in zur Verfuegung # ReadParse ist in cgi-lib.pl definiert # Ermittlung der IP-Adresse Pos. 0-9 (d.h.: 141.84.81.--) # und ggf. Umlenkung auf privilegierte Datenbanken $ip = substr ($ENV{'REMOTE_ADDR'}, 0,9); $seite = $in{'seite'}; if ($seite eq "1") {$bild = 19; $vorw = 2; $rueckw = "XIV";} elsif ($seite eq "XIV") {$bild = 18; $vorw = "1"; $rueckw = "XIII";} elsif ($seite eq "XIII") {$bild = 17; $vorw = "XIV"; $rueckw = "XII";} elsif ($seite eq "XII") {$bild = 16; $vorw = "XIII"; $rueckw = "XI";} elsif ($seite eq "XI") {$bild = 15; $vorw = "XII"; $rueckw = "X";} elsif ($seite eq "X") {$bild = 14; $vorw = "XI"; $rueckw = "IX";} elsif ($seite eq "IX") {$bild = 13; $vorw = "X"; $rueckw = "VIII";} elsif ($seite eq "VIII") {$bild = 12; $vorw = "IX"; $rueckw = "VII";} elsif ($seite eq "VII") {$bild = 11; $vorw = "VIII"; $rueckw = "VI";} elsif ($seite eq "VI") {$bild = 10; $vorw = "VII"; $rueckw = "V";} elsif ($seite eq "V") {$bild = 9; $vorw = "VI"; $rueckw = "IV";} elsif ($seite eq "IV") {$bild = 8; $vorw = "V"; $rueckw = "III";} elsif ($seite eq "III") {$bild = 7; $vorw = "IV"; $rueckw = "II";} elsif ($seite eq "II") {$bild = 6; $vorw = "III"; $rueckw = "I";} elsif ($seite eq "I") {$bild = 5; $vorw = "IV"; $rueckw = -15;} elsif ($seite eq "66") {$bild = 84; $vorw = "66a"; $rueckw = 65;} elsif ($seite eq "66a") {$bild = 85; $vorw = "66b"; $rueckw = 66;} elsif ($seite eq "66b") {$bild = 86; $vorw = "66c"; $rueckw = "66a";} elsif ($seite eq "66c") {$bild = 87; $vorw = "66d"; $rueckw = "66b";} elsif ($seite eq "66d") {$bild = 88; $vorw = 67; $rueckw = "66c";} elsif ($seite eq "67") {$bild = 89; $vorw = 68; $rueckw = "66d";} elsif ($seite eq "178") {$bild = 200; $vorw = "178a"; $rueckw = 177;} elsif ($seite eq "178a") {$bild = 201; $vorw = "178b"; $rueckw = 178;} elsif ($seite eq "178b") {$bild = 202; $vorw = 179; $rueckw = "178a";} elsif ($seite eq "179") {$bild = 203; $vorw = 180; $rueckw = "178b";} else { $rueckw = $in{'seite'}; $rueckw -=1; $vorw = $in{'seite'}; $vorw +=1; $bild = $in{'seite'}; $bild +=18; # d.h.: S. 1 ist auf Bild 19 if($seite > 66 && $seite < 179) {$bild +=4}; # 4Bildseiten nach Seite 66 if ($seite > 178) {$bild +=6}; # 2 weitere Bildseiten nach S.178, 179 ist direkt geregelt if ($seite <-17) {$bild=1}; } if($bild <10) { $text = "http://www.mgh-bibliothek.de/da/da611/da611_00" . $bild; } elsif($bild >=10 && $bild <100) { $text = "http://www.mgh-bibliothek.de/da/da611/da611_0" . $bild; } else { $text = "http://www.mgh-bibliothek.de/da/da611/da611_" . $bild; } print <<"HTML_EINLEITUNG"; Deutsches Archiv für Erforschung des Mittelalters Bd. 61.2005
{MGH-Logo}
Fernbedienung
Deutsches Archiv
 für Erforschung des Mittelalters
Bd. 61. 2005, S. $seite

Zum Kopf der Seite ... »»»
HTML_EINLEITUNG exit;