--- Kevin Meltzer <[EMAIL PROTECTED]> wrote:
> Please do. The petition being discussed on the list is very OT, as well as
> bordering on inappropriate. But, if you can come up with a way to sign it using
> Perl.... :)
>
> Cheers,
> Kevin
Well, okay :)
use strict;
use HTTP::Request::Common qw/POST/;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $data = [ review => 1,
name => "Some Name",
email => "not\@home.com",
field1 => "Anytown, WA",
pubemail => "No" ];
my $req = POST 'http://www.petitiononline.com/mod_perl/petition-sign.cgi?SSSCA',
$data;
my $content = $ua->request( $req )->as_string;
Cheers,
Curtis "Ovid" Poe
=====
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
__________________________________________________
Do You Yahoo!?
NEW from Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.com/ps/info1
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
