Solved

adding paypal to existing cgi script

Posted on 2004-04-22
6
209 Views
Last Modified: 2013-12-25
Hi

I have an existing shopping cart on my site.  I would like to add Paypal as an option for payment.  Right now the choices for payment are credit card on line, credit card through fax and cheque by mail.  I would like to subsitute both credit card options with the paypal option but keep the cheque by mail.

I know this is a very vague question but is there a sub that I can add to my existing cgi script? This is an older Webgenie script by the way and I don't want to spend anymore money on buying a new cart.

any help would be appreciated.

Thanks

hummer
0
Comment
Question by:hummerrecord
  • 3
  • 3
6 Comments
 
LVL 3

Expert Comment

by:cjmos
ID: 10895374
Hi, take a look at
Business::PayPal::IPN

http://search.cpan.org/~sherzodr/Business-PayPal-IPN-1.94/IPN.pm
0
 

Author Comment

by:hummerrecord
ID: 10895759
Hi cjmos

Thanks for the redirect....however...I must admit I am a know just enought to be dangerous.....so although I understand some of this....I am still not sure how to implement it into the shopping cart script.

0
 

Author Comment

by:hummerrecord
ID: 10922572
okay

well I am a step closer and actually have figured out how to add the paypal code to my existing cgi script....the code is as follows

$i = 0; # Just a number to define form elements
   foreach $item (@items)
   {
      if ($item)
      {
         if ($item =~ /,/)
         {
            $i++;
            @components = split (/,/, "$item");
            $qty = @components[1];
            $price = @components[2];
            $product = @components[3];
            $catNo = @components[4];
            $weight = @components[5]*$qty;
            $totWeight += $weight;
            $tot = $qty*$price;
            $gtot += $tot;
            $tot = &Monify ($tot);
            $price = &Monify ($price);

   print "<input type=hidden name=item_name_1 value=\"$product\">\n";
   print "<input type=hidden name=item_number_1  value=\"$catNo\">\n";
   print "<input type=hidden name=amount_1 value=\"$price\">\n";
   print "<input type=hidden name=quantity_1 value=\"$qty\">\n";
           }
      }
   }
 
   print "<input type=image src=\"http://images.paypal.com/images/x-clickbut01.gif\" name=submit alt=\"Make payments with PayPal - it?s fast,free and secure\">\n";
   print "</form>\n";

the problem is only the 1st item is being passed to paypal....I need to increment the name values....for example

item_number_1, item_number_2, item_number_3 etc....for eachof the names in the form inputs.....
0
3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

 
LVL 3

Expert Comment

by:cjmos
ID: 10930058


hummerrecord, the $i variable is used to increment item_numer for each item. Replace your code with.


$i = 0; # Just a number to define form elements
   foreach $item (@items)
   {
      if ($item)
      {
         if ($item =~ /,/)
         {
            $i++;
            @components = split (/,/, "$item");
            $qty = @components[1];
            $price = @components[2];
            $product = @components[3];
            $catNo = @components[4];
            $weight = @components[5]*$qty;
            $totWeight += $weight;
            $tot = $qty*$price;
            $gtot += $tot;
            $tot = &Monify ($tot);
            $price = &Monify ($price);

   print "<input type=hidden name=item_name_$i value=\"$product\">\n";
   print "<input type=hidden name=item_number_$i  value=\"$catNo\">\n";
   print "<input type=hidden name=amount_$i value=\"$price\">\n";
   print "<input type=hidden name=quantity_$i value=\"$qty\">\n";
          }
      }
   }

   print "<input type=image src=\"http://images.paypal.com/images/x-clickbut01.gif\" name=submit alt=\"Make payments with PayPal - it?s fast,free and secure\">\n";
   print "</form>\n";
0
 
LVL 3

Accepted Solution

by:
cjmos earned 500 total points
ID: 10930090
In case you can't see any difference,

notice the use of $i int the lines

 print "<input type=hidden name=item_name_$i value=\"$product\">\n";
 print "<input type=hidden name=item_number_$i  value=\"$catNo\">\n";
 print "<input type=hidden name=amount_$i value=\"$price\">\n";
 print "<input type=hidden name=quantity_$i value=\"$qty\">\n";
0
 

Author Comment

by:hummerrecord
ID: 10930341
Hi cjmos

You are right....I figured it out yesterday...but thank you for you input....

take care

hummer
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I hope you'll find this tutorial useful and interesting. So let's try to extend Tcl with a new package.  For anyone more deeply interested please check out the book "Practical Programming in Tcl and Tk". It's really one of the best written books abo…
How important is it to take extra precautions to protect your online business? These are some steps you can take to make sure you're free of any cyber crime.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question