#! c:/perl64/bin/perl.exe # Fabricius.pl -- Erzeugung der HTML-Module fuer allegro/Fabricius # # 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: # /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); # manche haben leider BSB-IP's: if ($ip eq "129.187.2") { $ip = "141.84.81"; } $bild = "da482_0" . $in{'seite'}; $alt = $in{'start'}; $band = substr ($bild, 2,2); print <<"HTML_EINLEITUNG"; Deutsches Archiv für Erforschung des Mittelalters Bd. 10,2

Deutsches Archiv
 für Erforschung des Mittelalters 
Bd. 48,2. 1992
Zum Kopf der Seite ... »»»
HTML_EINLEITUNG exit;