mef201 has asked for the wisdom of the Perl Monks concerning the following question:
Thanks a lot - Marissa# Create a user agent object $ua = new LWP::UserAgent; $ua->agent("$0/0.1 " . $ua->agent); $ua->timeout(90); # Create a request my $req = new HTTP::Request POST => 'https://10.37.12.4:7001/mail'; $req ->content($my_string); # Pass request to the user agent and get a response back my $res = $ua->request($req); print $res->as_string."\n"; # Check the outcome of the response if ($res->is_success) { print $res->content; } else { print "Bad luck this time\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
RE: Crypt::SSLeay
by geektron (Curate) on Nov 03, 2000 at 05:04 UTC | |
|
Re: Crypt::SSLeay
by wardk (Deacon) on Nov 03, 2000 at 11:59 UTC | |
|
Re: Crypt::SSLeay
by elwarren (Priest) on Nov 03, 2000 at 19:10 UTC |