Redirect links

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: ami: "how to convert"
• Previous message: Bjoern Hoehrmann: "Call to HTTP::Request->url() should be ->uri()"

------=_NextPart_000_0141_01C002CB.9096EA40
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Please,

I'm need redirect one code via method POST...

 $arquivo_path =3D '/tmp';
 require LWP::UserAgent;
 require HTML::TokeParser;
 use HTTP::Request::Common;
=20
        use HTTP::Cookies;
        $cookie_jar =3D HTTP::Cookies->new;
        #$pagina =3D new LWP::UserAgent;
        $pagina =3D LWP::UserAgent -> new;
 $request =3D new HTTP::Request('GET', =
"http://www.bcp.com.br/digimemo/default.asp?R=3D3");
 $pagina->cookie_jar($cookie_jar);=20
 $resposta =3D $pagina->request($request, "$arquivo_path/bcp.htm");

 $pag =3D HTML::TokeParser->new(shift||"$arquivo_path/bcp.htm");
 if ($pag->get_tag("form"))
 {
        #$title =3D $p->get_trimmed_text;
       =20
        while ($token =3D $pag->get_token)
        {
           if ($token->[0] eq "S" && $token->[1] eq "input")
           {
              if ($token->[2]{name} eq "calculo")
              { $calculo =3D  $token->[2]{value}; }
           }=20
        }
       =20
       =20
 }
=20
=20
 ############
 # Envio de mensagens para a BCP
 ############
 #$pagina->redirect_ok;
 $resposta =3D $pagina->request(POST =
'http://www.bcp.com.br/digimemo/envia.asp',
     [calculo =3D> $calculo,
      r  =3D> '3',
      ddd  =3D> '85',
      numeroa =3D> '91715137',
      lentxt  =3D> '115',
      texto   =3D> 'Isso e um teste',
      contato =3D> '2654228',
      senderb =3D> 'Centernews'
     ]);

 Here -->  Is the redirect for the $resposta->{_content}  ?!?!?!?!

Any help-me???

------=_NextPart_000_0141_01C002CB.9096EA40--

• Next message: ami: "how to convert"
• Previous message: Bjoern Hoehrmann: "Call to HTTP::Request->url() should be ->uri()"