#!/usr/bin/perl -w ############################################################################## # auinit.cgi # V1.1 # # wird zum einen von der kvar-Startseite aufgerufen und falls Suche # Autorenspezifisch ist, ueber die Autorenliste # # Changes: # 19990712 Umstellung auf "GET", weil Autorenliste nicht mehr # als Radiobuttons sondern als URL's # 19991116 Umstellung auf neues Layout # 20000307 statt volltext.ari und stichwort.ari wird "direkt" # volltext.htm bzw. stichwort.htm benutzt # 20051228 Umstellung auf Provider ecos # 20180727 Umstellung auf Provider ??, (httpS) # 20190412 Umstellung auf vmware-Umgebung # ############################################################################## $homedir = $ENV{'DOCUMENT_ROOT'}; #$homedir = '/home/kvaw/http/htdocs'; $homeurl = 'https://www.kreis-ahrweiler.de'; $AR = "/var/www/vhosts/vm-140-015.netclusive.cloud/httpdocs/kvar/data/kvar"; $cssurl = "$homeurl/kvar/css"; $imgsurl = "$homeurl/kvar/imgs"; $Ardb = "$AR/ardb"; $Autor = "$homedir/kvar/sautoren.ari"; $Vtsea = "$homedir/kvar/volltext.htm"; $Swsea = "$homedir/kvar/stichwort.htm"; ############################################################################## $buffer = ""; $inr = ""; $autor = "AUTOR"; @data = (); @autorhead = (); @autoren = (); @vtsearch = (); @swsearch = (); ################################################## open(ARDB,$Ardb) || die "cannot open $Ardb\n"; open(AUT,"$Autor") || die "cannot open Autor\n"; open(VTHTM,"$Vtsea") || die "cannot open $Vtsea\n"; open(SWHTM,"$Swsea") || die "cannot open $Swsea\n"; #DATA while () { if (/^DATA/) { $inr = substr($_,4,1); if ($inr eq "1") { @autorhead = @data; } @data = (); } else { push (@data, $_); } } # Formular-Input &parse_form; sub parse_form { # Initialisieren des Formulars $FORM{'suchart'} = ''; $FORM{'Autoropt'} = ''; # Einlesen der Formulardaten, falls POST # read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Einlesen der Formulardaten, falls GET $buffer = $ENV{'QUERY_STRING'}; # Split name-value - Paare @pairs = split(/&/, $buffer); 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; } # bei "CHECKBOX": if ($FORM{'Autoropt'} ne 'Ja') { $FORM{'Autoropt'} = 'Nein'; } } # Falls von starthjb aufgerufen, wird die Autorenwahl gestartet, von der # aus dann wieder dieses script mit $FORM{'Autoropt'} = 'Nein' aufgerufen # wird: if ($FORM{'Autoropt'} eq 'Ja') { @autoren = ; print "Content-type: text/html\n\n"; # print @autorhead; for (@autorhead) { s/CSSURL/$cssurl/; print $_; } foreach (@autoren) { s/SART/$FORM{'suchart'}/; print $_; } } else { # keine Autorwahl oder Autor schon gewaehlt: $autor = $FORM{'Autor'}; if ($autor eq "") { $autor = "AUTOR"; } print "Content-type: text/html\n\n"; if ($FORM{'suchart'} eq "sw") { while () { # s/CSSURL/$cssurl/; s,css/,$cssurl/,; s/imgs/$imgsurl/; s/AUTOR/$autor/; # Weitergabe von Autor an Suchseite print $_; } } if ($FORM{'suchart'} eq "vt") { while () { # s/CSSURL/$cssurl/; s,css/,$cssurl/,; s/imgs/$imgsurl/; s/AUTOR/$autor/; # Weitergabe von Autor an Suchseite print $_; } } } __END__ Heimatjahrbucharchiv: Einschränkung der Suche auf einen Autor

Einschränkung der Suche auf einen Autor

Wählen Sie den von Ihnen gewünschten Autor aus:

DATA1 -- Ende @autorhead