# 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";

Index search

\n\n"; #Schluss fuer das Pull-Down-Menue # Start im Register: print <<"RegisterStartWert"; RegisterStartWert print <<"RegisterMaxZeilen"; RegisterMaxZeilen print <<"RegisterAuswahlFormEnde1";
Index  \n
Start index at 
Show   index lines
Expand index: yes or no
RegisterAuswahlFormEnde1 if($in{'db'} eq "kat") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_WG.txt'; } if($in{'db'} eq "vid") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_WG.txt'; } if($in{'db'} eq "sound") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_WG_sound.txt'; } if($in{'db'} eq "dachs") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_WG.txt'; } if($in{'db'} eq "ser") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_PY.txt'; } if($in{'db'} eq "sselp") { $introfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\intro_PY.txt'; } open(INTROFILE, $introfile); # Open the file @lines = ; # Read it into an array close(INTROFILE); # Close the file print @lines; # Print the array print <<"RegisterAuswahlFormEnde2";
RegisterAuswahlFormEnde2 # Suche ueber logische Kombinationen: if( $logischeKombinationen == 1 ) { print <<"LogischeKombinationenMaskeAnfang";

Combined search

LogischeKombinationenMaskeAnfang # Aufbau der Eingabemaske foreach ( @MaskenVariable ) { ($size, $maxlength, $hilfe, $prompt) = split( /\|/, $VarInputDef{$_} ); print "\n"; print "\n"; print "\n"; print "\n"; } print <<"LogischeKombinationenMaskeEnde";
\n"; print "$prompt\n"; print "\n"; print "\n"; print "
Combine search terms using:
AND or OR
Search mode:
truncated or exact
When "truncated" is selected, chin will also find China, Chinese, etc.
LogischeKombinationenMaskeEnde } # Schluss des Dokumentes: $endfile = 'D:\Inetpub\wwwroot\cgi-bin\acwww25\texts\endkat.txt'; open(ENDFILE, $endfile); # Open the file @lines = ; # Read it into an array close(ENDFILE); # Close the file #print @lines; # Print the array exit;