Author Topic: Help with LMinsert script / ClickBank thanks.cgi script (Read 7294 times)

funston · « **on:** June 26, 2004, 08:44:10 am »

Dear Dean, 26 June 2004 10:35:00 Central

Thank you very much. However, I need some clarification with regard to setting up LMinsert.pl.

As I understand you I must put in a .forward pipe going to LMinsert.pl inside the email aliase that receives the automated CLICKBANK SALE NOTIFICATION email? Is this correct?

Thank you so much for your kind help!

Frank Eckdall

DW · « **Reply #1 on:** June 27, 2004, 03:27:37 am »

LMinsert.pl is intended to be "included" with your own scripts and then used as a function. You would need your own script which could run as an email alias to intercept invoices. Your script would need to include the LMinsert.pl script and then use the LMinsert() function with the data you extract from the invoice to insert a user into ListMail.

funston · « **Reply #2 on:** June 27, 2004, 10:11:54 am »

Dear Dean, 27 June 2004 12:12:00 Central Daylight Time

I am not qualified to write the aforementioned script, that would "include" the LMinsert.pl as a function. How much would it cost to have this done for me?

Thanks again.

Frank F Eckdall

funston · « **Reply #3 on:** June 27, 2004, 01:17:01 pm »

I found the following script for the clickbank thank you page, or download page, and it sounds a lot like what I need. Can the following script be modified to use LMinsert.pl or LMinsert.php?

#!/usr/bin/perl
# Location of Perl on your server. Please read README.TXT before editing this Script.

# Location of SendMail Program
$mailprog="/usr/sbin/sendmail";

# Auth Code. A 10 charecter code confirm whether the buyer is paid.
$AuthCode = "Zb44Ri9jW4";

# Enter your Email Address. The '\' is Required before the '@' sign.
$EmailAddress = "you\@YourDomain.com";

# Enter your Name
$YourName = "Ben Johnson";

# Enter Name of your Company/Firm/Website
$Company = "ABC Publishing";

# Product Name
$Product = "Internet Marketing Ebook";

# Price of the Product. The '\' is Required before the '$' sign.
$Price = "\$49.95";

# Download Page URL. Starts with http://
$DownloadURL = "http://www.YourSite.com/dosnload/download.html";

# Whether to Activate Autoresponder. Default value = 0
# Change it to 1 (one) if you want to add the buyer into your autoresponder.
$AutoResponder = 0;

# Your Autoresponder Email Address. Keep default value if you don't have one.
# The '\' is Required before the '@' sign.
$AutoAddress = "you\@YourServiceProvider.com";

# Whether to send you a Sales Report for each sale. Default value = 1
# Change it to 0 (zero) if you do not want sales report.
$SalesReport = 1;

# URL of this Script. Starts with http://
$ScriptURL = "http://www.ecommercedealers.com/cgi-bin/test/register.cgi";

# Please Do not make any changes below this line if you are not femiliar with Perl.
#---------------------------------------------------------#

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if (length($buffer) < 5) {
$buffer = $ENV{QUERY_STRING};
}

@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/[\;\|\\ ]/ /ig;
push(@values,$value); push(@names,$name);
$FORM{$name} = $value;
}

my $remote_addr = $ENV{'REMOTE_ADDR'};

if ($ENV{'REQUEST_METHOD'} eq 'POST')
{

$cbreceipt=$FORM{'cbreceipt'};
$salesreport=$SalesReport;
$autoresponder=$AutoResponder;
$autoaddress=$AutoAddress;
$downloadurl=$DownloadURL;
$product=$Product;
$emailaddress=$EmailAddress;
$yourname=$YourName;
$company=$Company;
$price=$Price;
$name=$FORM{'name'};
$email=$FORM{'email'};

###### Email to the buyer
open (MAIL, "| $mailprog -t -oi") || die "Can't open $mailprog";
print MAIL "To: $email\n";
print MAIL "Reply-to: $emailaddress\n";
print MAIL "From: $emailaddress\n";
print MAIL "Subject: Order Confirmation - $cbreceipt";
print MAIL "\n\n";
print MAIL "Hi $name,\n\n";
print MAIL "Thank you for visiting us and for placing an order.\n";
print MAIL "Please note that Your Credit Card will be charged\n";
print MAIL "under the name \"ClickBank/Keynetics\".\n\n";
print MAIL "Order Details:-\n\n";
print MAIL "ClickBank Receipt: $cbreceipt\n";
print MAIL "Item : $product\n";
print MAIL "Price : $price\n\n";
print MAIL "Buyer : $name\n";
print MAIL "Email : $email\n";
print MAIL "IP Address Recorded: $remote_addr\n\n";
print MAIL "We assure you that your information will remain private\n";
print MAIL "and will not be shared or sold to other parties.\n";
print MAIL "\n";
print MAIL "You can contact us for further details at: $emailaddress\n\n";
print MAIL "Best Regards,\n\n";
print MAIL "$yourname,\n";
print MAIL "$emailaddress.\n";
print MAIL "$company\n\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "Copyright (c) $company. All Rights Reserved\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "\n";
close (MAIL);

###### Email to the Seller
if ($salesreport==1) {
open (MAIL, "| $mailprog -t -oi") || die "Can't open $mailprog";
print MAIL "To: $emailaddress\n";
print MAIL "Reply-to: $emailaddress\n";
print MAIL "From: $emailaddress\n";
print MAIL "Subject: ** Sales Report **\n";
print MAIL "\n";
print MAIL "Hello $yourname,\n\n";
print MAIL "Congratulations! A sale is reported on your website.\n";
print MAIL "\n";
print MAIL "ClickBank Receipt: $cbreceipt\n";
print MAIL "Buyer : $name\n";
print MAIL "Email : $email\n";
print MAIL "IP Address : $remote_addr\n";
print MAIL "Item : $product\n";
print MAIL "Price : $price\n";
print MAIL "\n";
print MAIL "--------------------------------------------------------------\n";
print MAIL "Note: If you want to stop sending this System Generated Report,\n";
print MAIL "make necessary changes in the Perl Script as specified there.\n";
print MAIL "\n";
print MAIL "[Auto Report sent from $Company WebSite]\n";
print MAIL "\n";
close (MAIL);
}

##### Activate Autoresponder
if ($autoresponder==1) {
open (MAIL, "| $mailprog -t -oi") || die "Can't open $mailprog";
print MAIL "To: $autoaddress\n";
print MAIL "Reply-to: $email\n";
print MAIL "From: \"$name\" <$email>\n";
print MAIL "Subject: Subscribe\n";
print MAIL "Subscribe\n";
print MAIL "\n";
close (MAIL);

}
#Redirect to the Download Page.

print "Content-type: text/html\n\n";
print <<EOF;

<HTML>
<HEAD>
<title>Thank You</title>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
</HEAD>
<FRAMESET border=0 frameSpacing=0 rows=100%,* frameBorder=0 marginbottom=0 marginright=0 margintop=0 marginleft=0>

<FRAME border=0 src="$DownloadURL" frameBorder=no noResize>

<FRAME border=0 marginWidth=0 marginHeight=0 frameBorder=no noResize scrolling=no topmargin=0>
</FRAMESET>
</HTML>

EOF
exit;

}
else
{

$cbreceipt=$FORM{'cbreceipt'};
$auth = $FORM{'auth'};

if ($auth eq $AuthCode)
{
print "Content-type: text/html\n\n";
print <<EOF;

<HTML>
<HEAD>
<TITLE>Thank You</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META NAME="robots" CONTENT="noindex,nofollow">
<script language="JavaScript">

function click()
{if (event.button==2) {alert('Copyright (c) $Company. All rights reserved.');}
}
document.onmousedown=click

function ValidateForm(form)
{
if (form.name.value.length < 6)
{
alert("Please Enter your Full Name !");
form.name.focus();
return (false);
};

if (form.email.value.length < 12)
{
alert("Please enter a valid Email Address");
form.email.focus();
return (false);
};

if (form.email.value.indexOf ('\@',0) == -1 || form.email.value.indexOf ('.',0) == -1)
{
alert("Please enter a valid Email Address");
form.email.focus();
return (false);
};

if (form.email.value != form.reemail.value)
{
alert("You Entered Different Email Address");
form.reemail.focus();
return (false);
};

return (true);
};

</script>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<div align="center">
<table bgcolor="#FFFFFF" border="0" width="626" style="border: 6 solid #0000FF" cellspacing="0" cellpadding="0">
<tr><td align="center" style="border: 2 solid #000000; padding-left: 0" width="610" bgcolor="#FFFFFF">
<center>
Thank You</center>
 
<table border="1" width="566" cellspacing="0" style="border: 1 solid #000000">
<tr>
<td width="538" colspan="4" valign="top" align="center" bgcolor="#CAE4FF">
[
ORDER DETAILS ]</td>
</tr>
<tr>
<td width="147" valign="top" align="right" bgcolor="#CAE4FF">ClickBank
Receipt #</td>
<td width="241" valign="top" align="left" bgcolor="#CAE4FF">$cbreceipt</td>
<td width="50" valign="top" align="right" bgcolor="#CAE4FF">Date:</td>
<td width="100" valign="top" align="left" bgcolor="#CAE4FF">

<SCRIPT language=JavaScript>
<!--
var lmod = new Date();
var monthname;
var lmonth = lmod.getMonth();
if (lmonth == 0) monthname = "January";
if (lmonth == 1) monthname = "February";
if (lmonth == 2) monthname = "March";
if (lmonth == 3) monthname = "April";
if (lmonth == 4) monthname = "May";
if (lmonth == 5) monthname = "June";
if (lmonth == 6) monthname = "July";
if (lmonth == 7) monthname = "August";
if (lmonth ==

monthname = "September";
if (lmonth == 9) monthname = "October";
if (lmonth == 10) monthname = "November";
if (lmonth == 11) monthname = "December";
var outstr = monthname + " " + lmod.getDate() + ", " + lmod.getYear();
document.write(outstr);
// -->
</SCRIPT>

</td>
</tr>
<tr>
<td width="147" valign="top" align="right" bgcolor="#CAE4FF">Product:</td>
<td width="241" valign="top" align="left" bgcolor="#CAE4FF">$Product</td>
<td width="50" valign="top" align="right" bgcolor="#CAE4FF">Price:</td>
<td width="100" valign="top" align="left" bgcolor="#CAE4FF">$Price</td>
</tr>
<tr>
<td width="538" colspan="4" valign="top" align="center" bgcolor="#CAE4FF">
<center>Your Credit Card will be charged under the name "ClickBank/Keynetics"</center>
</td>
</tr>
</table>
<center> 
</center>
Please enter the
following information to complete the sale
<form action="$ScriptURL" method="post" name="Form" onsubmit="return ValidateForm(this)">
<input name="cbreceipt" type="hidden" value="$cbreceipt">

<div align="center">
<center><table border="1" width="381" cellspacing="0" bgcolor="#FFFFDB">
<tr><td width="183" valign="top" align="right" style="padding-right: 3" bgcolor="#CAE4FF">

Your Name:</td><td width="182" valign="top" align="left" style="padding-left: 3" bgcolor="#CAE4FF">
<input id="name" name="name" size="20"></td></tr>
<tr><td width="183" valign="top" align="right" style="padding-right: 3" bgcolor="#CAE4FF">

Email:</td><td width="182" valign="top" align="left" style="padding-left: 3" bgcolor="#CAE4FF">
<input id="email" name="email" size="20"></td></tr>
<tr><td width="183" valign="top" align="right" style="padding-right: 3" bgcolor="#CAE4FF">

Retype Email:</td><td width="182" valign="top" align="left" style="padding-left: 3" bgcolor="#CAE4FF">
<input id="reemail" name="reemail" size="20"></td></tr>
<tr><td width="365" valign="top" align="center" colspan="2" style="padding-right: 0" bgcolor="#CAE4FF">
<input name="button" type="submit" value="Continue" style="font-family: Verdana, Arial, Helvetica; font-size: 10pt; font-weight: bold"></td></tr>
</table></center></div></form>
<hr size="1">

The data being collected here will not be forwarded to any third
party.


Contact Email:



<a href="mailto:$EmailAddress">$EmailAddress</a>

<hr size="1">
Copyright © $Company. All Rights Reserved
</td></tr></table></BODY></HTML>

EOF
exit;
}
else
{
print "Content-type: text/html\n\n";
print <<EOF;

<HTML>
<HEAD>
<TITLE>Error</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
 
<div align="center">
<table bgcolor="#FFFFFF" border="0" width="511" style="border: 6 solid #0000FF" cellspacing="0" cellpadding="0">
<tr><td align="center" style="border: 2 solid #000000; padding-left: 0" width="495" bgcolor="#FFFFFF">
<center> </center>
<center>ERROR
!</center> You
are not authorized to access this page We have recorded your IP Address
$remote_addr All fraudulent attempts will be investigated and prosecutedin accordance with applicable law. 
<hr size="1">

Customer
Support :



<a href="mailto:$EmailAddress">$EmailAddress</a>

<hr size="1">
Copyright
© $Company All Rights Reserved
</td></tr></table></BODY></HTML>

EOF
exit;
}

}

####### End

Thank you very much for your kind help.
Frank F Eckdall

DW · « **Reply #4 on:** June 27, 2004, 06:10:27 pm »

You would add the following to the script to have it insert a user into ListMail. (Example for list 1).

Code: [Select]

require './LMinsert.pl'; 
LMinsert('1',$email);

Note that you would need to modify the LMinsert.pl script to contain your ListMail MySQL information and place the LMinsert.pl file in the same directory as your script.

funston · « **Reply #5 on:** June 28, 2004, 10:22:25 am »

Dear Dean,

Since my last post I have activated the Autoresponder section of the above script and then designated that it send an email to my signup5 email aliase which has a forward pipe to signup-list5.cgi.

Everything is working perfectly, ie a customer info capture page comes up before they are send to download page. The customer info is sent to my signup5 email aliase and subsequently signed up to list 5 via the .forward pipe inside the signup5 aliase directory.

How would using
Code
require './LMinsert.pl';
LMinsert('1',$email);

in my thanks.cgi be any different or more advantageous?

Thank again for all your kind help.

Frank F Eckdall

DW · « **Reply #6 on:** June 28, 2004, 03:58:53 pm »

Actually, the method you used will probably be best since it will send the welcome message, or use the confirmation process if enabled, whereas the LMinsert.pl script does not.

I recommend you continue with the method you are using.

ListMailPRO Email Marketing Software Forums

Author Topic: Help with LMinsert script / ClickBank thanks.cgi script (Read 7294 times)

funston

Help with LMinsert script / ClickBank thanks.cgi script

DW

Help with LMinsert script / ClickBank thanks.cgi script

funston

Custom script to extract clickbank invoice data

funston

Can this thanks.cgi script for clickbank be modified to use

DW

Help with LMinsert script / ClickBank thanks.cgi script

funston

Activated Autoresponder & sent email to signup aliase

DW

Help with LMinsert script / ClickBank thanks.cgi script