[Cascavel-pm] refresh

Terça Agosto 12 15:05:11 CDT 2003

Alceu R. de Freitas Jr. wrote:
> Olá lista,
> 
> Como gero um refresh com CGI.pm?

   É simples: não gera.
   Tem um cabeçalho "meta" que faz isso.

   --- No CGI: ---
   use HTML::Template;
   my $template = new HTML::Template( filename=>'redirector.tmpl' );
   $template->param( 'REFRESH_TIME', 5 );
   $template->param( 'URL', 'http://www.destination.url/' );
   print $template->output;
   ----------------

   --- O Template: ---
   <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
   <html>
     <head>
       <title>Aguarde</title>
       <meta http-equiv="refresh" content="<TMPL_VAR 
NAME='REFRESH_TIME'>; URL=<TMPL_VAR NAME='URL'>">
     </head>
     <body bgcolor="FFFFFF"></body>
   </html>
   --------------------
 >
> Gostaria de saber também se é possível enviar um
> pedido de um cgi para outro, por exemplo, ao invés de
> eu fazer uma requisição a um cgi, eu tenho um cgi
> intermediário que me faz essa requisição e me retorna
> apenas a resposta.
> 

   Você precisa usar o LWP:

   use LWP::Simple;

   $result = get 'http://www.aux-request.com/aux?query=here';
   # Interprete o resultado de '$result'...
   # Use no seu programa.

 >
> Se alguém puder me informar alguma documentação mais
> detalhada sobre o assunto, mesmo que não seja
> diretamente ligada à Perl, eu agradeço!
> 

   =-] Divirta-se!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is Computer Scientist,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=