Danke, Oliver, hab ich probiert, das sieht dann bei mir wie folgt aus, funzt aber nicht, da mir der Browsr eine per Fehlermeldung ausgibt.
Es ist natürlich richtig, daß der User erst mit dem Password an die Daten rankommt, aber eben nur man die normale Suchfunktion, nicht an die Volltextsuche.
<html><head><title>Adressen</title>
</head><body bgcolor="white">
<a href="http://lupara.org/baseportal/privat/Adressen">read only</a>
if($namerein ne "")
##Beginn der Volltextsuche
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Volltextsuche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen"> <br>
</form>
return if $_fullsearch eq "";
get "fullsearch_match=10", "Adressen/Adressen";
while(get_next)
{
$out= <<EOF;
<b>$Name</b><br>$Bemerkung - <p>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
if($_fullsearch_match_pos<$newrange)
{
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;
} else
{
out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
$txt="Suche in weiteren Datensätzen";
}
if($newrange<$_amount_all)
{
out "Es wurde noch nicht in allen Datensätzen gesucht: ";
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";} else
{
out "Die Datenbank wurde komplett durchsucht.";
}
##Ende der Volltextsuche
get "Name==!$namerein", "../nutzerjan";
if($Passwort ne "" && $Passwort eq $pwrein)
{
} else
{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}
if($namerein eq "")
out <<EOF;
<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://lupara.org/baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF
}
</perl>
</center><HR><br>
</body></html>
