[Cascavel-pm] refresh

Quinta Agosto 14 13:55:08 CDT 2003

Obrigado a ambos pelos exemplo (Douglas e Luis), mas
agora estou com dúvidas que antes . :-)

Primeiro, eu não consegui usar um atalho do módulo
CGI.pm para gerar a tag http_equiv = 'refresh': tive
que escrever "na unha". Alguém usa e poderia dar um
exemplo? Eu usei o fornecido pela documentação do
CGI.pm, mas não funcionou.

Segunda dúvida, eu configuro um tempo de espera para a
página carregar outra... como por exemplo chamar outro
CGI ou então um página html. Só tem um probleminha:
digamos que esteja executando uma função extensa (como
fazer uma procura dentro de arquivos texto). Como
configurar um tempo de status correto, para que a
função carregue a nova página após o serviço estiver
concluído. Eu imaginei chamar o CGI de 5 em 5
segundos, por exemplo, e checar a existência de um
arquivo temporário para exibir ou não o resultado.
Alguém tem uma idéia melhor?

Grato à todos,
Alceu

 --- Doug <doug_max em bol.com.br> escreveu: > Olá a
todos!
> 
> Uma outra forma de forçar um refresh é por
> javascript. Você pode colocar
> por exemplo, no evento OnLoad da página para esperar
> N segundos e dar um
> refresh.
> 
> <body
> OnLoad="javascript:setTimeout('location.reload()',
> 10000);">
> 
> Repare que o tempo da função setTimeout é dado em
> milissegundos; coloquei
> 10000 para esperar 10 segundos, no exemplo.
> 
> Um abraço
> 
> Douglas Cunha
> 
> On Tue, 12 Aug 2003, Luis Campos de Carvalho wrote:
> 
> > 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!
> > --

_______________________________________________________________________
Conheça o novo Cadê? - Mais rápido, mais fácil e mais preciso.
Toda a web, 42 milhões de páginas brasileiras e nova busca por imagens!
http://www.cade.com.br