<html><head>
<title>baseportal - Code in Textarea ausführen</title>
</head><body bgcolor=ffffff " >
<do action=all>
<perl>
#------------------------------- DEMO
$d_b="Demo1";
#do_all "db=$d_b";
if($cmd eq "all")
{#------------------------------
get "Id==$Id","$d_b";
out "<h3 style='color:blue'>Code ausgeführt:</h3>";
&EVAL_OUT($_loop{Code});
}#------------------------------
sub EVAL_OUT
{#------------------------------ Perl-Code zwischen <perl></perl> direkt ausführen
$eval_txt=$_[0];
$ist1 ="<perl>";
$soll1 ="EOF";
$ist2 ="</perl>";
$soll2 ="out<<EOF;";
$eval_txt =~ s/$ist1/$soll1/gim;
$eval_txt =~ s/$ist2/$soll2/gim;
eval "out<<EOF;\n$eval_txt\nEOF\n";
}#-------------------------------
</perl>
</body></html>