<p>suchbegriff eingeben</p>
<form method="post" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx&status=gesucht" name="suche" id="suche" target="_self" dir="ltr" lang="de" enctype="multipart/form-data">
<table width="100%">
<tr>
<input type="text" name="input=" id="input=" size="20" >
<td><input type="submit" name="submit" value="Suchen"></td>
</tr>
</table>
</form>
<perl>
# Variablendefinitionen------------------
$tabelle=0;
if ($status ne ""){
 $von=0;
 $bis=0;
}else{
 $input='@@%%';
 $von=1;
 $bis=1;
 $f=0;
}
$counter=0;					
$dbname="SKLv06";		
# Vorbereitung der Daten-----------------
$input=~s/-/\ /g;		
$input=lc($input);		
@suchworte=split(" ",$input);	
</perl>		
<!-- Ende Variablendefinition für Perl und Datenvorbereitung //-->
<!-- Beginn der Datenbankabfrage //-->
<loop db=$dbname range=$von,$bis code=perl>		
$db_feld=lc($Zitat).lc($Autor);   
$s,$i=0;			
foreach $s (@suchworte){		
 if ($db_feld=~/$s/){	
  $i++;		
 }			
}				

 $f=1, $counter++;
 if ($tabelle==0){	
  out '<table width="100%">';
  out '<tr><td bgcolor="00cc66" colspan=2><br></td></tr>';
  $tabelle++;
 }	
 out "<tr><td bgcolor=".($_loop % 2?"ffffcc":"ffffff")."> <font face=Arial><small>$Zitat</small></td><td bgcolor='ffffcc'><font face=Arial><small>$Autor</small></td>";
}
</loop>	
<!-- Ende der Datenbankabfrage //-->
<perl>
if ($tabelle==1){
 out "<p>Sie haben unter <b>$_amount_all</b> Datensätzen nach <b>$input</b> gesucht. Es wurden <b>$counter</b> Zitate gefunden.</p>";
 out "<tr><td colspan=2>&nbsp;</td></tr>";
 out "</table>";
 $tabelle--;
}
if ($status eq "gesucht" & $f==0){
out "<p><b><p>Sie haben unter <b>$_amount_all</b> Datensätzen nach <b>$input</b> gesucht. Leider erbrachte Ihre Suche kein Ergebnis.</b></p>";
}
</perl>