# MASKE.PL -- Erzeugung der Datenbankabfragemasken fuer allegro-W3 # 16.10.1995 Dierk Hoeppner # # Aenderungen: # 10.11.1995 ho Umstellung auf Kleinschreibung der Dateinamen # 16.10.1996 ho Umstellung auf avanti-Server # 3.10.2001 HL Anpassungen an Sinologie HD # Voreinstellungen require 'D:\Inetpub\wwwroot\cgi-bin\acwww25\cgi-lib.pl'; # Eine Standardbibliothek # muss im Perl Library-Verzeichnis liegen require 'D:\Inetpub\wwwroot\cgi-bin\acwww25\acwww25.pl'; # Grundeinstellungen zu den # recherchierbaren Datenbanken # muss im Perl Library-Verzeichnis liegen # oder Verzeichnis der W3-Scripte # 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 # Pfad zu den datenbankspezifischen Scripten und Parameterdateien $scriptpfad = $dbscripte{ $in{'db'} }; # Datenbankspezifische Einstellungen einlesen: # require $scriptpfad . $pt . 'dbinfo.pl'; require 'D:\Inetpub\wwwroot\cgi-bin\acwww25\dbinfo_' . $in{'db'} . '.pl'; # Suchmaskenseite erzeugen &PrintHeader; $encoding = 'big5'; #$encoding = 'iso-8859-1'; #&html_kopf; # Produktion der Maske fuer die Registersuche: print <<"SuchInRegisterKopf";