[Cascavel-pm] [EAD-PERL] Re: Hands-on via web
Nelson Ferraz
nferraz em gmail.com
Quarta Maio 3 04:39:21 PDT 2006
Er Galvão Abbott - PortoAlegre.pm wrote:
> ahn... sem java, flash e JS?
>
> Mágica? hehehe
Não... partimos de uma solução simples, sem muitas funcionalidades:
<form method="post" action="[% script_url %]">
<div class="stdin">
<input type="text" name="cmd" value="[% cmd %]"/>
<input type="submit"/>
</div>
<div class="stdout">[% stdout %]</div>
<div class="stderr">[% stderr %]</div>
</form>
No servidor:
use Template;
use CGI;
use Safe::World;
# ...
my $world = Safe::World->new(
stdout => \$out{stdout}, ## - redirect STDOUT to $out{stdout}
stderr => \$out{stderr}, ## - redirect STDERR to $out{stderr}
);
# permite apenas alguns opcodes
$world->op_permit_only( ... );
# executa o código
$world->eval( $in{cmd} );
$world->close;
# ...
$template->process( $template, \%out );
--
Nelson Corrêa de Toledo Ferraz
Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital
Mais detalhes sobre a lista de discussão Cascavel-pm