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