| Name | Code |
| demo | out qq(Das ist eine DEMO auf /go123/bei123_parse);
out parse qq(
Hier ist ENDE der &bp; DEMO); |
| nowhile | unless($case)
{
out parse qq($_);
}
else
{
out "";
}
$case=""; |
| dowhile | if($case)
{
out parse qq($_);
}
else
{
out "";
}
$case=""; |
| &test; | out qq(OK, 1 TEST - entity = &test;);
|
| &modul#1; | out qq( aktualisiert: ).datum($Datum1, "Wochentagkurz, Tag0.Monat0.Jahr, Stunde:Minute ").qq( ); |
| t | if($tabname ne "")
{#----------------------------------------------- die verschienen Tabs sammeln
$TABnr{$tabname}++;
$index=(!$index||$index eq "" ? "$TABnr{$tabname}.)":"$index");
push(@{$TABindex{$tabname}},$index);
push(@{$TABzahl{$tabname}},$TABnr{$tabname});
push(@{$TABblock{$tabname}},qq($_));
}#----------------------------------------------------------------------------
$index="";
$TABnr{$tabname}=0;
|
| tab | $TTT=qq($_);
push(@tabs,$name);
$tabname=$name;
$TABnr{$tabname}=0;
#-------------------------------------------------------------------------------------
$TABmemo{$tabname} = "$memo"||""; # style-display beibehalten oder nicht
$TABalign{$tabname} = "$align"||"left"; # Ausrichtung der Reiter
$TABheight{$tabname} = "$height"||"200px"; # Höhe der Tab-Anzeige
$TABcolor{$tabname} = "$color"||"#000000"; # textColor
$TABcolor1{$tabname} = "$color1"||"#ffffff"; # aktiver-Tab und Background-Farbe
$TABcolor2{$tabname} = "$color2"||"#c0d0f0"; # inkative Tab-Farbe
#------------------------------------------
$TABscript{$tabname}="";
#---------------------------------------------
parse $TTT;
$tabname=pop(@tabs);
$TABmenu=$TABout="";
#-------------------- Menü generieren
$TABzahl{$tabname}=@{$TABindex{$tabname}};
map{$tx=$_;$TI=$tx+1;$TABmenu{$tabname}.=qq( ${$TABindex{$tabname}}[$tx] )}(0..@{$TABindex{$tabname}}-1);
#-------------------- Inhalt generieren
map{$ti=$_;$TI=$ti+1;$TABout{$tabname}.=qq(\n${$TABblock{$tabname}}[$ti]
#-------------------- Anzeige generieren
out parse qq($TABmenu{$tabname} \n\n$TABout{$tabname});
#-------------------- Script Ausgangsposition
if($TABmemo{$tabname} eq "")
{
out qq();
}
else
{
out qq();
}
|
| data | get "$get","$db","+";
#my $mT=$_tag;my $mQ=$_query;
#$mT{"my_tag"} = sub{out qq($_tag Demo $mT $mQ)};
#outl qq($mQ);
#parse qq($mQ);
#if(@getdb)
#{
#get "$getdb[0]","$getdb[1]","$getdb[2]";
#}
|
| basemodul | my $mT=$_tag;my $mQ=$_query;
$mT{"my_tag"} = sub{out qq($_tag Demo $mT $mQ)};
#outl qq($mQ);
parse qq($mQ);
#($user)=$htx=~ /\/(.*)\/.+/; # holt user & pfad, schneide seite weg
#outl $user;
outl serial(%demo);
outl serial(%hash);
outl qq(@Demo $XXX);
outl dump(%HH);
#$AZ=qq($_);
#outl eval $array;
#@A = @{eval $array};
#outl @{$A[0]};
#################
#outl eval $hash;
#%H = %{eval $hash};
#outl dump(%H);
#out parse qq(),\%mT;
#out parse qq($AZ);
|
| &ego; | out "ich bin EGO"; |
| &user; | ($user)=$_get{htx}=~ /\/(.*)\/.+/;
out qq($user); |
| &onwork; | out qq(
); |