Your $url is to a HTTPS address.
LWP requires the openssl libraries and (I think) Crypt::SSLeay to support
HTTPS.
You'll need to check with Verio to see if the Crypt module & the openssl
libraries are installed.
On Wed, 29 Aug 2001, Gia Mccue wrote:
> I am new at using Modules. I am writing a program to
> accept payments on my website using PayPal. They
> provide an instant notification system for payments
> received. They will send a notice to a url of your
> choice if a payment comes in. I am trying to run a
> test script, which is a simplified version of a script
> PayPal provides. (I removed the parsing and printing
> of the variables that provide info about the payer.) I
> cannont seem to get a sucessful response. The script
> runs when paypal hits it, and I can get the variables
> they are sending via post, but when I request a
> response back saying the payment is verified, I do not
> get a sucessful response. I am running this on a Verio
> unix server. Verio has perl 5 and the necessary
> Modules installed. I am not sure what to try next.
> Any suggestions would be much appreciated.
>
>
> #!/usr/local/bin/perl
>
> require "../function.pl";
>
>
> $temp = "notif_post.txt";
> open (TEMP, ">>$temp");
>
> # read the post from PayPal system and add 'cmd'
> read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
> $query .= '&cmd=_notify-validate';
>
> # post back to PayPal system to validate
> use LWP::UserAgent;
> use HTTP::Request;
> $ua = new LWP::UserAgent or die "new UA: $!";
> $url = "https://www.paypal.com/cgi-bin/webscr";;
> $req = new HTTP::Request('POST', $url) or
> die "new HTTP::Request POST '$url': $!";
> $req->content_type('application/x-www-form-urlencoded');
>
> $req->content($query);
> $res = $ua->request($req);
>
> $test_varif = $res->content;
>
> if ($res->is_success)
> {
> print TEMP "Response is a success.\n";
> print TEMP "res: $test_varif";
> }
> else {print TEMP "Response was not sucessful.\n"; }
>
> ------output in TEMP:
> Response was not sucessful.
> ------------
>
> Gia McCue
>
> __________________________________________________
> Do You Yahoo!?
> Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger
> http://im.yahoo.com
> _______________________________________________
> Perl-Unix-Users mailing list. To unsubscribe go to
>http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
>
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
