Ääähm ... "seit ein paar Tagen" (s.u.) kann ich nicht gewesen sein, weil ich da nichts gemacht habe. Aber das eben ca. 18:30 bis 19:10 könnte auf mein Konto gehen. Ich verstehe zwar nicht so ganz warum, aber gefühlsmäßig gibt es da einen Zusammenhang.
Den evtl. "Bösewicht" hänge ich mal an - es sollte eigentlich mal eine Volltextsuche werden :-((
Klar, derzeit ist das nur ein Versuchsstadium und ich weiss auch, dass da noch viele Fehler drin sind
<do action=input>
<perl>
$suchpfad="http://baseportal.de/cgi-bin/baseportal.pl?htx=/spd_schwelm/suche";
"";
</perl>
<form action="$suchpfad" name="suche" id="suche" target="_self" dir="ltr" lang="de" enctype="multipart/form-data" method="post">
Suchworte: <input type="text" name="suchwort=" size="40" maxlength="40">
<input type="submit" name="button"></form>
<perl>
# Aufbereitung des Formularergebnisses
# Leerzeichen am Ende von $suchwort abschneiden
$strlen=length($suchwort);
while (index($suchwort," ",$strlen)>=0)
{$suchwort=substr($suchwort,0,$strlen-1);
$strlen--;
}
# $suchwort in Kleinbuchstaben umwandeln
$suchwort=~ tr/A-Z/a-z/;
# $suchwort in einzelne Worte aufteilen und in Array einfügen
while (length($suchwort)>0)
{
$ende=index($suchwort," ",0);
push(@suchwort,substr($suchwort,0,$ende));
$suchwort=substr($suchwort,$ende+1,length($suchwort));
}
</perl>
<loop db=meldungen sort=- code=perl range=0,2>
# Meldungen nach jedem Array-Teil druchsuchen
# Je mehr verschiedene gefunden werden, desto besser das Suchergebnis
foreach(@suchwort)
{
# Abfrage der Datenbankfelder
$Typ_=$Typ;
$Typ_=~ tr/A-Z/a-z/;
$Head_=$Head;
$Head_=~ tr/A-Z/a-z/;
$Text_=$Text;
$Text_=~ tr/A-Z/a-z/;
if (index($Typ_,@suchwort[$_],length($Typ)>=0)
{
%ergebnis{$_id}=%ergebnis{$_id}+1;
}else{
"";
}
if (index($Head_,@suchwort[$_],length($Typ)>=0)
{
%ergebnis{$_id}=%ergebnis{$_id}+1;
}else{
"";
}
if (index($Text_,@suchwort[$_],length($Typ)>=0)
{
%ergebnis{$_id}=%ergebnis{$_id}+1;
}else{
"";
}
}
</loop>
<perl>
#Hash sortieren nach Häufigkeit und Ergebnis ausgeben
#@sortiert=sort by_zahl keys(%ergebnis);
#sub by_zahl {
# return $ergebnis{$a} cmp $ergebnis{$b}
#}
#foreach (@sortiert)
#{
# if ($_>0)
# {
# get "ID==$_";"Meldungen";
# out $Head.\n;
# }else{
# "";
# }
#}
</perl>
</body>
</html>