That was exactly the problem. The Crypt::SSLeay
solved the problem. Thank you so much.
use Crypt::SSLeay; must be included when trying to
access a https address.
For reference:
http://www.perl.com/CPAN-local/modules/by-module/Crypt/CHAMAS/Crypt-SSLeay-0.29.readme
Gia McCue
--- Edward Moon <[EMAIL PROTECTED]> wrote:
> 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
__________________________________________________
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
