#!/usr/bin/perl -w##### PayPal PDT (Payment Data Transfer) CGI#Brent Crouch #http://www.brentcrouch.com###use strict;use CGI qw(:all unescape);use CGI::Carp qw(fatalsToBrowser);# These modules are required to make the secure HTTP request to PayPal.use LWP::UserAgent;use Crypt::SSLeay;# Javascript modules go heremy $JSCRIPT_HEAD=<<EOF_HEAD;    <!-- Overture Services Inc. 07/15/2003    var cc_tagVersion = "1.0";    var cc_accountID = "XXXXXXXXXXX";    var cc_marketID =  "0";    var cc_protocol="http";    var cc_subdomain = "convctr";    if(location.protocol == "https:")    {       cc_protocol="https";       cc_subdomain="convctrs";    }    var cc_queryStr = "?" + "ver=" + cc_tagVersion + "&aID=" + cc_accountID +                    "&mkt=" + cc_marketID +"&ref=" + escape(document.referrer);    var cc_imageUrl = cc_protocol + "://" + cc_subdomain +                    ".overture.com/images/cc/cc.gif" + cc_queryStr;    var cc_imageObject = new Image();    cc_imageObject.src = cc_imageUrl;    // -->EOF_HEAD    ;my $JSCRIPT_BODY=<<EOF_BODY    <!-- Google Code for Purchase Conversion Page -->    <script language="JavaScript" type="text/javascript">    <!--    var google_conversion_id = 10XXXXXXXX;    var google_conversion_language = "en_US";    var google_conversion_format = "2";    var google_conversion_color = "FFFFFF";    if (1) {     var google_conversion_value = 1;    }    var google_conversion_label = "Purchase";    //-->    </script>    <script language="JavaScript" src="http://www.googleadservices.com/pagead/conversion.js">    </script>    <noscript>    <img height=1 width=1 border=0 src="http://www.googleadservices.com/pagead/conversion/106XXXXXXX/?value=1&label=Purchase&script=0">    </noscript>    <!-- End Google Code for Purchase Conversion Page -->EOF_BODY        ;my $auth_token = "-nwJzMe3nAz6e7FHYQmzCXXXXXXXXXXXXXXXXXXXXXX";sub done_text {        return (p('Your transaction has been completed, and a receipt for your purchase has been emailed to you. You may log into your account at <a href="https://www.paypal.com/">www.paypal.com</a> to view details of this transaction.  You will now be sent to the download area.'), end_html());}print header(), start_html(-title=>'Paypal Processing Script',                         -head=>meta({-http_equiv=>'refresh',-content=>'1; URL=http://www.jillianentertainment.com/XXXX/XXXXXX.html'}),                         -script=>$JSCRIPT_HEAD                        );print $JSCRIPT_BODY;        #Puts Javascript code into HTML BODY# Set up the secure request to the PayPal server to fetch the transaction infomy $paypal_server = "www.paypal.com";my $transaction = param("tx");if (not $transaction) {        print (h2("The transaction ID was not found."), done_text());        exit();}my $paypal_url = "https://$paypal_server/cgi-bin/webscr";my $query = join("&", "cmd=_notify-synch", "tx=$transaction", "at=$auth_token");my $user_agent = new LWP::UserAgent;my $request = new HTTP::Request("POST", $paypal_url);$request->content_type("application/x-www-form-urlencoded");$request->content($query);# Make the requestmy $result = $user_agent->request($request);if ($result->is_error) {        print(h1("An error was encountered"), br(), p("An error was encountered contacting the PayPal server:"),                  $result->error_as_HTML, done_text());        exit();}# Decode the response into individual lines and unescape any HTML escapesmy @response = split("\n", unescape($result->content));# The status is always the first line of the response.my $status = shift @response;if ($status eq "SUCCESS") {        # success        my %transaction;        foreach my $response_line (@response) {                my ($key, $value) = split "=", $response_line;                $transaction{$key} = $value;        }        print(('<!--Start Adtrackz Conversion Tracking Code--><img src="http://www.jillianentertainment.com/XXXXXX/XXXX.php?type=sale&value='. $transaction{'mc_gross'} . '&id=' . $transaction{'item_number'} . '&name=' . $transaction{'first_name'} . '%20' . $transaction{'last_name'} . '&description=' . $transaction{'item_number'} . '"width=1 height=1><!--End Adtrackz Conversion Tracking Code-->'),('<!--Start BestAdTracking Tracking Code--><img src="http://www.dvd-wholesale-directory.com/XXXXXXXXXXXX/XXXXXXX.php?type=sale&value='. $transaction{'mc_gross'} . '&id=' . $transaction{'item_number'} . '&name=' . $transaction{'first_name'} . '%20' . $transaction{'last_name'} . '&description=' . $transaction{'item_number'} . '"width=1 height=1><!--End BestAdTracking Tracking Code-->'),('<!--Start Affiliate Tracking Code--><img src="http://www.jillianinternetmarketing.com/XXXX/XXXX/XXX.pl?total='. $transaction{'mc_gross'} . '&cart_id=' . $transaction{'item_number'} . '&product=' . $transaction{'item_number'} . '&name=' . $transaction{'first_name'} . '%20' . $transaction{'last_name'} . '"width=1 height=1><!--End Affiliate Tracking Code-->'));#Google Analytics Tracking Codeprint qq[<script type="text/javascript">var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));</script><script type="text/javascript">var pageTracker = _gat._getTracker("UA-XXXXXXXXXXX");pageTracker._initData();pageTracker._trackPageview();pageTracker._addTrans("$transaction{'first_name'}  $transaction{'last_name'}","", "$transaction{'mc_gross'}","", "", "$transaction{'address_city'}", "$transaction{'address_state'}","$transaction{'address_country'}" );pageTracker._addItem("$transaction{'first_name'}  $transaction{'last_name'}","$transaction{'item_number'}","$transaction{'item_name'}","Product Category","","$transaction{'quantity'}" );pageTracker._trackTrans();</script>];} elsif ($status eq "FAIL") {        print(h2("Unable to retrieve transaction details."));        # failure} else {        # unknown error        print(h2("Error retrieving transaction details."));}print done_text();