Need script that lets users download a file after email opt in + email confirm

http://www.focalmedia.net

Regards,

Lee

Thanks but do you have a more specific link? I cant find anything i need on that page.

If you cant be bothered to look around im not gonna do it for you.

Regards,

Lee

don't need a script. just put a link in the email response with a password to the page with the download link.

I looked around....twice...and still cant find it.

GREAT ATTITUDE TOWARDS CUSTOMERS!!!

LOL


We'd be happy to do it for you and believe it or not...we'd even do it with a smile!

My icq is in my sig

what the fuck are you talking about?

I was just thinking the same

Looks like GFY wil llet any old tard in off the street these days.

Regards,

Lee

You storing the emails in an sql database ?

I heard there's a new policy that if you kiss Juicy, Lensman will let pretty much any old piece of garbage on or back on the board.

What, because the guy has less posts than you, he's a tard?
Yes, you posted a link to free scripts, but there are none there that I see which match the requested post. Yes, you can get free scripts which have signup/email confirm, but there's still going to be coding required at some point.

jukeboxfrank was far more helpful, but doesn't include the email confirm

Frank -
As far as signup/email confirm goes, majordomo has this built in - just redirect them to a [veirified] page after email confirm.

if your a bit savvy with coding the following code will put you well on the road - just read it and you'll see where it's going and what needs to be edited:

#!/opt/bin/perl

#$TEST = 1;
$| = 1;
#
# CHANGE HISTORY:
# ...
# 990430 - added ability to use list or List_name for one or more
# lists added -text check to if, added type check for html/text
# checkboxes now works on nearly every form, except html/text
# checkboxes need to both be called "type" - abk
# 990430 fixed bug in if exception statement (repeat $list =~)-abk
# 990430 prob with lsoft one email method, switched to mult emails
# checked on webref, wrks-abk
# 990501 - redid @lists/@types loop, now handles all our forms
# except newslinx forms must have two "type" fields (html/text)
# can handle both long and short fields names:
#
# one or more lists named all "list" or all "List_Name"
# email or Email_Address
# action or Action
# type (for HTML and TEXT checkboxes)
# upper case or lower case lists (input) output as lower case
#
# caution: you need to be consistent throughout your form
# for multiple newsletters, the field name should either be all
# "list" or "List_Name" not both in one form. - abk
#
# simplified version, requires type field, use example form below:
#
# http://www.webreference.com/signupform.html
#
# one or more lists named all "list" or all "List_Name"
# email or Email_Address
# action or Action
# type (for HTML and TEXT checkboxes)
# upper case or lower case lists (input) output as lower case
#
# can handle newsletter names with or without -html and -text
# and with talk for discussion lists).
#
# with no suffix (i.e., webreference-update) and no type it
# defaults to text (i.e. creates webreference-update-text)
#
# with suffix of -html -text or ends with talk it uses the list
# name as is (i.e., newslinx-html or WDVL-TALK, or ECTALK)
#
# when "type" is set to html, text or both html and text
# this script assumes list name has no suffix and appends, i.e.,
# internetday -> internetday-html AND internetday-text (if both
# HTML and TEXT type checkboxes are checked.) if suffix exists
# it ignores type.
#
# caution: you need to be consistent throughout your form
# for multiple newsletters, the field name should either be all
# "list" or "List_Name" not both in one form. - abk
#
# 990514 - TG (Tom Germain): substituted pipe to sendmail with
# direct smtp connect to Lyris
# server.
# 990928 lc type for smtp array ref bug - abk-ecc
# 991019 - changed to sendmail method, on-off to join-leave
# fixed text on bug - avk
# 991117 - Added write to file on E-Mail entry, and removed
# cc: to softquad - dmr
# 991220 - went open source

use CGI;

#>>>>T.G 990723>>>
#hostname for smtp [Lyris server]
my(%SMTP,%SMTP_FLG,%HDL,%H);
$SMTP{text} = 'list4.internet.com';
$SMTP{html} = 'list3.internet.com';
$HDL{text} = 'S1';
$HDL{html} = 'S2';

#local hostname
$LOCALHOST = 'webreference.com';
#<<<<<<<<

$path = $ENV{'HTTP_REFERER'};
$path2 = "http://e-newsletters.internet.com/thankyou_new.html";
CGI::ReadParse();
$query = new CGI;
$email = $in{'Email_Address'} || $in{'email'};
@lists = $query->param('list');
@list_name = $query->param('List_Name');
if (@list_name) {@lists = @list_name};
$action = $in{'Action'} || $in{'action'};
@types = $query->param('type');
$action =~ tr/A-Z/a-z/;
$typeyes = "no";
$listtemp = "";
$onoff = "";
$emailfile = "/www/webref/control/sublist.txt";

$name = "Anonymous";
# Greetings

if ($email eq "enter e-mail") {
print "Content-type: text/html\n\n";
print "<H2>Oops! Try again gentle subscriber</H2>";
print "You gotta enter your e-mail address here, not just hit subscribe!<br>";
print "Please go back to <B><A HREF='$path' TARGET='_top'>$path</A></B> ";
print "and make sure this is complete.";
exit;
}
if ($email eq "") {
print "Content-type: text/html\n\n";
print "<H2>Oops! Blank e-mail, eeek!</H2>";
print "You forgot to enter your email address.<br>";
print "Please go back to <B><A HREF='$path' TARGET='_top'>$path</A></B> ";
print "and make sure this is complete.";
exit;
}
if ($email =~ /^([\w.-]+@(?:[-\w]+\.)+[a-zA-Z]{2,3})$/) {
$email = $1; # Untaint it
} else {
print "Content-type: text/html\n\n";
print "<H2>Hey! Invalid email, try again</H2>";
print "You entered an invalid email address.<br>";
print "Please go back to <B><A HREF='$path' TARGET='_top'>$path</A></B> ";
print "and make sure you enter an email of the form name\@domain.xxx. ";
print "Thanks.";
exit;
}

if (@lists < 1){
print "Content-type: text/html\n\n";
print "<H2>Hey! You didn't choose a newsletter, try again</H2>";
exit;
}

if ($action eq "unsubscribe") {
$onoff = "leave-";
} else {
$onoff = "join-";
}


foreach $list (@lists) {
#
# 990715 this loop moved inside main loop for old forms - abk
# it accepts old style list names as checkboxes
# and defaults to -text if no suffix
#
$list =~ tr/A-Z/a-z/;

if($list =~ /\-(html)$/ || $list =~ /\-(text)$/ || $list =~ /talk$/)
{
$type = $1;
if(!$type){$type = 'text';}
#&debug(">>>>$type");
}

else {
if (@types > 0){$typeyes = "yes";}
else {
$list = $list . "-text";
$type = 'text';}
}

if ($typeyes eq "yes") {
foreach $type (@types) {
$type = lc($type);
$listtemp = $list . "-" . $type;
$listtemp = lc($listtemp);
$listtemp2 = $onoff . $listtemp . "\@" . $SMTP{$type};

open (MAIL, "|/usr/lib/sendmail -t -oi");
print MAIL<<END8;
From: $email
To: $listtemp2
Subject:
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Precedence: list
$action $list
END8
close MAIL;
}

open (MAIL, "|/usr/lib/sendmail -t -oi");
print MAIL<<END7;
From: youremail\@domain.com
To: $email
Subject: Subscribe and Win Contest Entry
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Precedence: list


Welcome! You've been entered into
***INSERT YOUR SHIT HERE****
***POST LINK TO SECRET GARDEN NONESENSE****

Thank again,
the webmaster

END7
close MAIL;

open(LOGFILE,"+<$emailfile");
flock(LOGFILE,2);
seek(LOGFILE,0,2);
print LOGFILE ("$email\n");
close(LOGFILE);
}
else
{
$listtemp2 = $onoff . $list . "\@" . $SMTP{$type};

open (MAIL, "|/usr/lib/sendmail -t -oi");
print MAIL<<END9;
From: $email
To: $listtemp2
Subject:
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Precedence: list
$action $list
END9
close MAIL;

open(LOGFILE,"+<$emailfile");
flock(LOGFILE,2);
seek(LOGFILE,0,2);
print LOGFILE ("$email\n");
close(LOGFILE);

}

} #next list

print "Location: $path2\n\n";

# code below uunec with above redirect but left for future use

if ($action eq "subscribe") {
print <<END1;
<html>
<head>
<meta HTTP-EQUIV="Refresh" CONTENT="0; URL=$path2">
<title>$list List Subscribe Results</title>
</head>
<body bgcolor=ffffff>

<h1 align=center>Newsletter Subscription Results</h1>

<BLOCKQUOTE>
<center>
Thank you $email, for<br>
your request to join the
END1

foreach $list (@lists) {
print "$list, ";
}

print <<END3;
list(s).</center>

<P>Your request has been submitted for
approval. You should receive an email shortly that
will confirm your subscription request.</P>

<P>You'll now be sent back to <B><A HREF="$path2"
TARGET="_top">$path2</A></B>.</P>

<center>
<font size=1> Copyright &copy; 1999-2000 Jupitermedia Corp. .</font>
</center>
</BLOCKQUOTE>
</body>
</html>
END3
}

if ($action eq "unsubscribe" or $action eq "SIGNOFF") {
$name="";
print <<END4;
<html>
<head>
<meta HTTP-EQUIV="Refresh" CONTENT="0; URL=$path2">
<title>$list list unsubscribe results</title>
</head>
<body bgcolor="#ffffff">
<center>
<h1 align=center>$list list unsubscribe results</h1>
<BLOCKQUOTE>
<center>
ThankYou $email, for your interest in
END4

foreach $list (@lists) {
print "$list, ";
}

print <<END5;
list(s).</center>
<br>
Your request has been submitted for processing.
You should receive an email shortly that
will confirm that you have been unsubscribed from the list(s).
<br>
back to <B><A HREF="$path2" TARGET="_top">$path2</A></B>
<br>
<center>
<font size=1>
&copy; Copyright &copy; 1999-2000 Jupitermedia Corp. .</font>
</blockquote>
</body>
</html>
END5
}

exit;

Then both you, Franck, and the Tard above are all tards.

http://www.focalmedia.net/dlm.html

Lazy-ass motherfuckers.

Regards,

Lee

Mr Dictionary gone on vacation?

Maybe it's you who is the lazy-ass MF, sinc eyou clearly didn't read the original post. THe link you provided is a simple d/l script. Where in that script (and there's an online demo for simpletons to try), is the email verification process?

Ahahah calm down everybody.
Thanks for the help, will check the links and code.

Cheers.

hit me up franck I know some free scripts

Jon

I see it now...
The problem is, it doesnt send a confirm mail people have to click. So most people will just fill in a bogus email and download the file.

Get in touch with Jon -
it's a simple email verification script that verifies the email on confrimation and redirects to the page of choice.
If you know coding, just make sure it has some form of MD5 hash (say a hash of username+email+timestamp) as verification, not something simple that can be reversed and posted everywhere for anyone to bypass.

Thanks man

aweber can do this

I'll ask again....

Do you mind using an sql database to store you emails ?

i know what you are doing, its kinda of what warez sites do.
Ive seen it done when they want you to download a app but you have to signup for some porn paysite, i thought it was genious the way they market it.

Here is what i recommend
Put the file behind a pass protected directory.

Make the surfer sign up to what ever it is and click the confirm link to get the pass word.
Usually when the click the link they go to a page saying

"Thank you for verifying your email to blah blah blah.

Tell them that that they have to do all that to get the pass which will be the word that comes 4th for examples

Thank you for _____

The blank is the password which is verifying.

I love it when a thread starts our simple, and gets nasty!

Oh btw, its been taken care of hours ago...thanks though.

aFormMail


Absolutely free, I'm using it on one of my sites to collect mails. It works as follows:
If a surfer wants to download a file, he has to enter his name and email on a web form, and then gets an autoresponce with the download link.


You get the emails, IPs, time stamp, etc emailed to your email. The script is suppose to collect all the emails in one file, but I couldn't make that feature work. Yet again I'm not very clued about scripts, and I didn't really worry much about it.

shit, just waisted 3 min typing that shit