#!/usr/bin/perl
# nach 8/9/99 erst 1/00 wieder geaendert wegen neuem Pfad zur Datenbasis
# 3/2005: nach cgi/ verschoben, also genannte URLs angepasst.
# Ausserdem base href in Header. CSS/Navbar jetzt aus ../ gelesen.
sub suchen { my ($string,@liste)=@_; # print "Y $string";
foreach my $zeile (@liste) { chomp($zeile);
my $wo=index($zeile,$string);
if ($wo>=0) { print $wo."\n" if 1==0; return 1; }
else { print "$zeile $wo \n" if 1==0; } }
return -1; };
# $oder_werte="";
# $textzeile=""; # s.u.
sub mineiner {
my ($string,@liste)=@_; # print "Y $string";
return 1 if $#liste<0;
$string=lc($string);
foreach my $einer (@liste)
{
$einer=lc($einer);
my $wo=index($string,$einer);
if (($wo>=0) || ($string =~ /$einer/))
{ print "$einer \@ $wo
\n" if $debug>2;
return 1; }
else
{
print "$einer nicht in $string\n" if $debug>2;
}
}
return 0;
};
%mark=(); # leider global, bin zu dumm fuer Varuebergabe
@zeichen=();
sub store_zeichen {
if ($debug>1)
{
while (($key,$val)=each %mark) { print "$key: $val\n"; }
};
if ( !defined($mark{'url'}) || ("$mark{'url'}" eq "") )
{
print "oops \n" if $debug>1;
}
else
{
$mark{'scope'} = join(" : ",@bereich).": ";
print "$#zeichen " if $debug>0;
my $url = $mark{'url'};
my $titel = $mark{'titel'};
my $descr = $mark{'descr'};
my $scope = $mark{'scope'};
print "Found: $scope $url $titel $descr
\n" if $debug>0;
push(@zeichen,"".$mark{'scope'}." ".$mark{'titel'}." (".$mark{'url'}.")".$mark{'descr'}."
");
}
$mark{'url'}=""; $mark{'titel'}=""; $mark{'descr'}=""; $mark{'scope'}="";
};
#####################
$special=index($0,"coli")!=-1; # print "$0 $special \n";
#####################
$debug = -1;
#####################
#
#
print "Content-type: text/html\n\n";
print "\n
\n
Homepage von Eric Auer - Links suchen\n
\n
[Diese Datei verwendet Cascading Style Sheets.]\n
\n | |
\n";
open(FOO,"../navbar.ht"); print | \n";
#
#
#########################
$and1="Gibtsdochgarnicht"; $and2=""; $nicht="";
if ( defined($ENV{'QUERY_STRING'}) && (length($ENV{'QUERY_STRING'})>18) )
{
my $dings = $ENV{QUERY_STRING};
$dings =~ s/\%20/./g;
$dings =~ s/\+/ /g;
$dings =~ s/\%.././g;
$dings =~ s/[*]/.*/g;
# $dings =~ s/[?]/.?/g;
# 9.8.99 sonst Fehler '* follows nothing'
# print `echo $dings | sed -e "s/%20/ /g" -e "s/+/ /g"`;
my @dinger = split(/[?&]/,$dings);
print join(" ",@dinger) if ($debug>0); while (defined($dinger[0])) { my $dings=pop(@dinger); if (index($dings,"and1=")==0) { $and1=$dings; $and1=~ s/and1=//; } elsif (index($dings,"and2=")==0) { $and2=$dings; $and2=~ s/and2=//; } elsif (index($dings,"nicht=")==0) { $nicht=$dings; $nicht=~ s/nicht=//; } } print "Die Frage lautete: \n"; print "Was hat 1 aus "".$and1."", 1 aus "".$and2."" und keins aus "".$nicht.""? \n"; } else { print "Folge diesem Link um ALLES zu finden. \n"; } print " |
\n \n linksuche.cgi\n | \n Current Greenwich date: "; use POSIX qw(strftime); print strftime("%a, %e.%b %Y %H:%M:%S",gmtime()); print "\n |