Hi,
thanks jonathan, but it´s still not working...
In this formfield (numrproc) there´s a script to check if only numbers are
being typed etc... Can this script be the problem of all?
I´m posting here the source of my script and I´d really really really
apreciate if you could try this out with me...
Thanks!
#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
$ua->cookie_jar({});
my $req = HTTP::Request->new(POST =>
'http://www.tj.go.gov.br/online/Capital/Processos_SPG/Resp_Processo1.dml');
#my $req = HTTP::Request->new(POST =>
'http://www.tj.go.gov.br/online/Inicial/Processos/ConsultaProc_1Grau_Capital.dml');
$req->content_type('application/x-www-form-urlencoded');
$req->content('numrproc=009600352534');
#&mode=dist');
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
> Hi,
>
> I can only guess at the source of the problem. I think it is because that
> web
> site requires cookies. The solution is to have a cookie jar, like:
>
> my $agent = LWP::UserAgent->new();
> $agent->cookie_jar({});
>
> Jonathan Paton
>
> --
> #!perl
> $J=' 'x25 ;for (qq< 1+10 9+14 5-10 50-9 7+13 2-18 6+13
> 17+6 02+1 2-10 00+4 00+8 3-13 3+12 01-5 2-10 01+1 03+4
> 00+4 00+8 1-21 01+1 00+5 01-7 >=~/ \S\S \S\S /gx) {m/(
> \d+) (.+) /x,, vec$ J,$p +=$2 ,8,= $c+= +$1} warn $J,,
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
