#!/usr/bin/perl ############################################### #test order form Y and shipping N #intro price and price type logic ############################################### use CGI qw(:all); use DBI; require("../tas.cfg"); &get_info; if(!$vendor_id || $vendor_id eq "") { &unauthorized_page; } else { &get_db_info; &print_page; } sub get_info() { $vendor_id=param('vendor_id'); $product_id=param('product_id'); $aff_camp=param('aff_camp'); } sub unauthorized_page() { {print < $order_title


You are unauthorized to access this page.
If you navigated to this page from a link, please go back and contact the webmaster of the site.
Thank you.
ENDBLOCK } } sub print_page() { #if any of the merchants don't allow CC info collection, don't collect $own_order_page="Y"; for $i (0 .. $#merchants) { if($merchants[$i][10] eq "N") { $own_order_page="N"; } } #if any of the merchants were selected with the shopping cart option, will #not collect any customer information up front $shopping_cart="N"; for $i (0 .. $#merchants) { if($merchants[$i][5] eq "Y") { $shopping_cart="Y"; } } {print < $order_title


 


Ordering:

$product_name


$order_text

Terms of delivery: $delivery_terms

Scheduled time: $scheduled_time

The payable amount is: \$$price $currency_code (get the value in other currencies here!)

Please read this before you confirm your order:

What you see in the frame above is what our automatic system will expedite when you click on the order button below (or the text for it, if it does not show up). Note: You do not need a PayPal account in order to pay through PayPal - you can use our account to pay with any VISA, MasterCard, or other credit card or US check! If you do have your own PayPal account, you can, of course, pay with funds from that account, provided this account is in your own name and will verify your identity.

Your credit card or checking account information will processed in encrypted form and will not be seen by any human. This means that we never see your credit card information!

The other personal information you will be required to provide will be used exclusively for the payment processor to verify your identity and for us to expedite and follow up on this order. Using your credit card this way is far safer than handing it out to a merchant to process!

Note: if your browser does not allow pop-ups from our site, you will not be able to open the secure page of the payment processor, but only the supposedly invisible background page on our domain! In order to make an on-line payment, you must allow your browser to show these pop-up pages on our domain. (We do not use interruptive advertising on our site at all, so you can do this completely safely.)

Also, if your browser does not accept cookies, the payment transaction might not go though...

When your payment is confirmed by the payment processor, please follow their instructions to CONTINUE (use the link "RETURN TO MERCHANT"!), so you come back to our order confirmation page for finishing the purchase.



You can pay with any credit card,
also if you do not have a PayPal account yourself!

Remember:
You do not get the secure payment page if your browser blocks pop-ups!

If you have trouble with the ordering process, please send us an e-mail at and explain what the problem is, and what you are trying to order, so we can help you.

You are also welcome to call us (phone number below).
ENDBLOCK } require '../../cgi-bin/contactinfo.cgi'; {print < ENDBLOCK } } sub get_db_info() { $dbh = DBI->connect($database, $username, $password); $sql_statement="select order_title,product_logo_url,product_name,order_page_text,product_price,currency_code,delivery_terms,scheduled_time,intro_price,intro_period,shipping_required,price_type,number_of_installments,receipt_page_url from product where product_id='$product_id'"; $out = $dbh->prepare($sql_statement); $out->execute(); ($order_title, $header_logo_url, $product_name, $order_text, $price, $currency_code, $delivery_terms, $scheduled_time, $introPrice,$intro_period,$ship_required,$cmd,$num_installments,$relay_url)= $out->fetchrow_array; $sql_statement1="select merchant_to_vendor.*, merchant_account.* from merchant_to_vendor, merchant_account where merchant_to_vendor.vendor_id='$vendor_id' and merchant_to_vendor.merchant_id=merchant_account.merchant_id"; $out1 = $dbh->prepare($sql_statement1); $out1->execute(); while (@data = $out1->fetchrow_array) { push @merchants, [ @data ]; } $sql_statement1="select decline_url from vendor where vendor_id='$vendor_id'"; $out1 = $dbh->prepare($sql_statement1); $out1->execute(); $bad_relay_url=$out1->fetchrow_array; }