I suppose you mean using Crypt:SSLeay via LWP:
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); my $resp = $ua->post( "https://www.website.ws/members/index.dhtml", [ userid => 'foo', pwd => 'bar', language => 'english', form => 1, page => '', func => '', pagedrop => '', ] ); if ($resp->is_success) { print $resp->decoded_content; } else { print $resp->status_line; }
$ ./843152.pl | grep login-error <p class="login-error">Too many login attempts.<BR>Please contact Cust +omer Service at (1) 760-602-3000, M-F, 8:00 am - 5:00 pm, PST.</p> $ strace -eopen ./843152.pl 2>&1 | grep Crypt/SSLeay.pm open("/usr/lib/perl5/Crypt/SSLeay.pm", O_RDONLY) = 4
In reply to Re: Crypt::SSLeay performing a HTTP POST
by almut
in thread Crypt::SSLeay performing a HTTP POST
by kbarker
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |