[Cascavel-pm] Redirecionamento com Ajax

Quinta Setembro 13 07:28:07 PDT 2007

Oi Alceu,

   muito obrigado, mas eu já havia tentado com javascript, talvez tenha
feito algo errado, pois não funcionou. Segue o código.

Se mais alguem tiver algum palpite, agradeço

Abraço a todos

<code>
use strict;
use CGI;
use CGI::Ajax;

my $cgi = new CGI;

my $ex_verifica = sub {
    my $nome = shift || undef;

    if ($nome eq 'alex') {
        return "OI $nome";
    } else {
        return "<script language=\"Javascript\">window.location=\"x.pl\
"</script>";
    }
};

my $inicial = sub {

    my $html =<<EOF;
        <html>
        <head>
        </head>
        <body>
        DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
        <input value="envia" type="button" id="bt"
onClick="verifica(['nome'],['div_msg']);"><br>
        <div id="div_msg"></div>
        </body>
        </html>
EOF

    return $html;
};

my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
print $pjx->build_html($cgi,$inicial);
</code>

Em 13/09/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
escreveu:
>
> Oi Alex,
>
> Seu script Ajax está alterando apenas uma parte da página? Se for, acho
> que não dá para utilizar meta tags de refresh. Não sei se você consegue
> fazer isso via cabeçalho HTTP.
>
> O que você poderia tentar fazer é enviar via Ajax um controle em
> Javascript mesmo para redirecionar o usuário depois de n segundos.
>
> []'s
> Alceu
>
> ------------------------------
> Date: Thu, 13 Sep 2007 00:50:39 -0300
> From: alexjfalcao em universia.com.br
> To: cascavel-pm em pm.org
> Subject: [Cascavel-pm] Redirecionamento com Ajax
>
> Salve monges,
>
>     estou fazendo algumas coisas simples com o CGI::Ajax, mas estou tendo
> um problema.
>     No codigo abaixo, quando digito o nome alex, mostro a mensagem, ai foi
> facil.
>     Mas o que eu preciso fazer e redirecionar para outra pagina quando
> digito errado, no exemplo, simplesmente mostrei o texto, mas precisava
> redirecionar.
>
>    Alguem tem alguma ideia?
>
> Obrigado a todos
>
> <code>
> use strict;
> use CGI;
> use CGI::Ajax;
>
> my $cgi = new CGI;
>
> my $ex_verifica = sub {
>     my $nome = shift || undef;
>
>     if ($nome eq 'alex') {
>         return "OI $nome";
>     } else {
>         return "DIRECIONA PARA x.pl?n=$nome";
>     }
> };
>
> my $inicial = sub {
>
>     my $html =<<EOF;
>         <html>
>         <head></head>
>         <body>
>         DIGITE SEU NOME: <input type="text" name="nome" id="nome"><br>
>         <input value="envia" type="button" id="bt"
> onClick="verifica(['nome'],['div_msg']);"><br>
>         <div id="div_msg"></div>
>         </body>
>         </html>
> EOF
>
>     return $html;
> };
>
> my $pjx = CGI::Ajax->new( 'verifica' => $ex_verifica);
> print $pjx->build_html($cgi,$inicial); # this outputs the html for the
> page
>
> </code>
>
> --
>
> ______________________________
>                 Alex Falcão
>
>
> ------------------------------
> Get news, entertainment and everything you care about at Live.com. Check
> it out! <http://www.live.com/getstarted.aspx+>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

-- 

______________________________
                Alex Falcão
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070913/5fc9784f/attachment-0001.html 