[Cascavel-pm] [EAD-PERL] Re: Hands-on via web

[Nelson Ferraz]

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