$_header="Expires: content=0\nPragma: no-cache\nCache-Control: no-store, no-cache, max-age=0, must-revalidate\nContent-type: text/html\n\n";
#--------------------------------------------------------------
$bp_USER = (split(/\//,$htx))[1];  ## baseportal-Account
$bp_URL  = (split(/\//,$_link))[2];## URL des bp
#--------------------------------------------------------------

unless($sid)
{
my $Url=qq($_link&sid=$_session&pid=$pid);
$_header="Location:$Url\n\n";
}

sub SEARCH_RESULT
{##
@SUCH=grep(index(lc(${$data{PAGE}}[${$data{_fnr}}{$_}].${$data{CONTENT}}[${$data{_fnr}}{$_}] ),lc("$search"))>=0,keys(%{$data{_fnr}}));
@SUCH1=map{lc(${$data{CONTENT}}[${$data{_fnr}}{$_}]).lc(${$data{PAGE}}[${$data{_fnr}}{$_}])}@SUCH;
$search_=lc($search);
#-------------------------------------------------------
$stxt="";

if($search eq "")
{
 $stxt= "<p>Es wurde bisher kein <i>richtiger</i> Suchbegriff eingegeben.</p>";
}
elsif(length($search)<3)
{
 $stxt= "<p>Der Suchbegriff muss <b>mindestens 3 Zeichen</b> lang sein.</p>";
}
elsif(@SUCH<1)
{
 $stxt= "<p>Ihre Suche ergab <b>keinen</b> Treffer !</p>";
}
else
{
foreach(@SUCH1)
{
my $__text=$_;
$__text =~ s/$search_/µ/gi;
$WZ = ($__text =~ tr/µ//);
push(@SUCH2,$WZ);
}
@SUCHEN{@SUCH}=@SUCH2;
sub hashValueDescendingNum{$SUCHEN{$b} <=> $SUCHEN{$a};}

$stxt= qq(<p>Ihre Suche nach <i>$search</i> ergab <b>).@SUCH.qq(</b> Treffer ! </p>);
$stxt.= qq(<blockquote style="font-size:0.9em">);
 foreach $key (sort hashValueDescendingNum (keys(%SUCHEN)))
 {
  $total=0;
 ($total+=$SUCHEN{$_}) for keys(%SUCHEN); 
  $PROZ = sprintf("%.2f",(($SUCHEN{$key}/$total)*100));
  $stxt.=qq(<b><a href="$_link&sid=$_session&pid=$key">${$data{PAGE}}[${$data{_fnr}}{$key}]</a></b> $PROZ % <br>);
  $stxt.= "<br>";
 }
$stxt.="</blockquote>";
}
return("$stxt");
}##

sub Time2Date
{## Kurz Datum mit Uhrzeit ausgaben
#ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
my @timeT=split(/,/,datum(($_[0]||time()),($_[1]||"Wochentag, Tag0.Monat0.Jahr - Stunde:Minute.Sekunde")));
return(substr($timeT[0],0,2).". ".$timeT[1]);
#ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
}##

sub run
{##
#oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
out(qq|document.getElementById("DateTime").innerHTML="$DateTime";|);
#oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
}##

$DateTime = &Time2Date(time(),"Wochentag,Tag0.Monat0.Jahr - Stunde:Minute");

%__COT=("container" => sub{$CT{"$PAGE"}{"$name"}=$_;},);

%START=(
"bei123" => sub{
my $_DOCUMENT=$_;
get "Id==*","$DB","data";
@PAGE{@{$data{PAGE}}}=@{$data{Id}};

#$iA{"$bp_USER"}=\%PAGE;
#%PAGE=%{$iA{"$bp_USER"}};

$pid=$_cgi{pid}||${$data{Id}}[0];
$PAGE=${$data{PAGE}}[${$data{_fnr}}{$pid}];
parse ${$data{CONTENT}}[${$data{_fnr}}{$pid}],\%__COT;
parse "$_DOCUMENT",\%START;
},

"co" => sub{parse qq(\n<div class="$name">$CT{"$PAGE"}{"$name"}</div>\n);},

"content" => sub{
%__CO=("container" => sub{$CT{"$page"}{"$name"}=$_;},);
parse ${$data{CONTENT}}[${$data{_fnr}}{$PAGE{"$page"}}],\%__CO;
parse qq(\n<!-- page="$page" container="$container" -->\n$CT{"$page"}{"$container"}\n<!-- ENDE page="$page" container="$container" -->\n);
},

"&bp;" => sub{out qq(<font color="#d80000">base</font><font color="#000000">portal</font>)},

"&onwork;" => sub{outl qq(<br><img src="http://www.bei123.de/images/on_work.gif" align=left alt="" title="Die Sache ist noch in Bearbeitung !"><br>)}, 

"search" => sub{out qq(<form name="searchform" style="" action="$_link&sid=$_session&pid=).$PAGE{"$result"}.qq(" method="post" enctype="multipart/form-data"><input type="hidden" name="pid" value="$PAGE{$result}"><input type="text" name="search=" value="$search"><input type="submit" value="Suchen"></form>);},

"goto" => sub{
my $_L=parse $_;
my $_V="$value"||"$_L";
my $_P=($param ne "" ? "&$param":"");
out qq(<a href="$_link&sid=$_session&pid=).$PAGE{"$_L"}.qq($_P">$_V</a>);
$_V=$_P=$_L=$value=$param="";
},

);
#################

parse "",\%START;