Senhores,<br><br> voces me ajudaram muito a achar o caminho, o código ficou assim.<br><br>Obrigado pela colaboração<br><br><code><br>use strict;<br>use CGI;<br>use CGI::Ajax;<br><br>my $cgi = new CGI;<br><br>my $ex_verifica = sub {
<br> my $nome = shift || undef;<br> <br> if ($nome eq 'alex') {<br> return ('alex', 0);<br> } else {<br> return ('', 1);<br> }<br>};<br><br>my $inicial = sub {<br><br> my $html =<<EOF;
<br> <html><br> <head><br> </head><br> <body><br> DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br><br> <input value="envia" type="button" id="bt" onClick="verifica(['nome'],[js_func], 'POST');"><br>
<br> <div id="div_msg"></div><br> <script language="Javascript\"><br> function js_func() {<br> var input1 = arguments[0];<br> var input2 = arguments[1];
<br> document.getElementById('div_msg').innerHTML = input1;<br> if (input2 == 1) {<br> window.location="x.pl";<br> }<br> }<br> </script>
<br> </body><br> </html><br>EOF<br><br> return $html;<br>};<br><br>my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);<br>print $pjx->build_html($cgi,$inicial);<br><br></code>
<br><br><div><span class="gmail_quote">Em 13/09/07, <b class="gmail_sendername">Thomas Britis</b> <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Penso que você poderia setar um timer via javascript redirecionando o<br>usuário para uma página gravada numa váriavel (somente se a variável<br>existir). E seu return seria um javascript setando a variável.<br> Mas, é só um palpite.
<br><br>Alex Falcão wrote:<br>> Oi Alceu,<br>><br>> muito obrigado, mas eu já havia tentado com javascript, talvez tenha<br>> feito algo errado, pois não funcionou. Segue o código.<br>><br>> Se mais alguem tiver algum palpite, agradeço
<br>><br>> Abraço a todos<br>><br>> <code><br>> use strict;<br>> use CGI;<br>> use CGI::Ajax;<br>><br>> my $cgi = new CGI;<br>><br>> my $ex_verifica = sub {<br>> my $nome = shift || undef;
<br>><br>> if ($nome eq 'alex') {<br>> return "OI $nome";<br>> } else {<br>> return "<script<br>> language=\"Javascript\">window.location=\"
x.pl\"</script>";<br>> }<br>> };<br>><br>> my $inicial = sub {<br>><br>> my $html =<<EOF;<br>> <html><br>> <head><br>> </head>
<br>> <body><br>> DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br><br>> <input value="envia" type="button" id="bt"
<br>> onClick="verifica(['nome'],['div_msg']);"><br><br>> <div id="div_msg"></div><br>> </body><br>> </html><br>> EOF
<br>><br>> return $html;<br>> };<br>><br>> my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);<br>> print $pjx->build_html($cgi,$inicial);<br>> </code><br>><br>> Em 13/09/07, *Alceu Rodrigues de Freitas Junior *
<br>> <<a href="mailto:glasswalk3r@hotmail.com">glasswalk3r@hotmail.com</a> <mailto:<a href="mailto:glasswalk3r@hotmail.com">glasswalk3r@hotmail.com</a>>> escreveu:<br>><br>> Oi Alex,<br>><br>> Seu script Ajax está alterando apenas uma parte da página? Se for,
<br>> acho que não dá para utilizar meta tags de refresh. Não sei se você<br>> consegue fazer isso via cabeçalho HTTP.<br>><br>> O que você poderia tentar fazer é enviar via Ajax um controle em<br>
> Javascript mesmo para redirecionar o usuário depois de n segundos.<br>><br>> []'s<br>> Alceu<br>><br>> ------------------------------------------------------------------------<br>
> Date: Thu, 13 Sep 2007 00:50:39 -0300<br>> From: <a href="mailto:alexjfalcao@universia.com.br">alexjfalcao@universia.com.br</a><br>> <mailto:<a href="mailto:alexjfalcao@universia.com.br">
alexjfalcao@universia.com.br</a>><br>> To: <a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a> <mailto:<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>> Subject: [Cascavel-pm] Redirecionamento com Ajax
<br>><br>><br>> Salve monges,<br>><br>> estou fazendo algumas coisas simples com o CGI::Ajax, mas<br>> estou tendo um problema.<br>> No codigo abaixo, quando digito o nome alex, mostro a
<br>> mensagem, ai foi facil.<br>> Mas o que eu preciso fazer e redirecionar para outra pagina<br>> quando digito errado, no exemplo, simplesmente mostrei o texto,<br>> mas precisava redirecionar.
<br>><br>> Alguem tem alguma ideia?<br>><br>> Obrigado a todos<br>><br>> <code><br>> use strict;<br>> use CGI;<br>> use CGI::Ajax;<br>>
<br>> my $cgi = new CGI;<br>><br>> my $ex_verifica = sub {<br>> my $nome = shift || undef;<br>><br>> if ($nome eq 'alex') {<br>> return "OI $nome";
<br>> } else {<br>> return "DIRECIONA PARA x.pl?n=$nome";<br>> }<br>> };<br>><br>> my $inicial = sub {<br>><br>> my $html =<<EOF;
<br>> <html><br>> <head></head><br>> <body><br>> DIGITE SEU NOME: <input type="text" name="nome"<br>
> id="nome"><br><br>> <input value="envia" type="button" id="bt"<br>> onClick="verifica(['nome'],['div_msg']);"><br>
<br>> <div id="div_msg"></div><br>> </body><br>> </html><br>> EOF<br>><br>> return $html;<br>> };
<br>><br>> my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);<br>> print $pjx->build_html($cgi,$inicial); # this outputs the html<br>> for the page<br>><br>> </code>
<br>><br>> --<br>><br>> ______________________________<br>> Alex Falcão<br>><br>><br>> ------------------------------------------------------------------------
<br>> Get news, entertainment and everything you care about at <a href="http://Live.com">Live.com</a><br>> <<a href="http://Live.com">http://Live.com</a>>. Check it out! <<a href="http://www.live.com/getstarted.aspx+">
http://www.live.com/getstarted.aspx+</a>><br>><br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a> <mailto:
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a>><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br>><br>><br>><br>> --
<br>><br>> ______________________________<br>> Alex Falcão<br>><br>><br>> ------------------------------------------------------------------------<br>><br>> _______________________________________________
<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
<br>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><br>______________________________<br> Alex Falcão