#############################################################################
# SUPERMAILER SUBSCRIBE/UNSUBSCRIBE SCRIPT #
# Double-Opt-In #
# Copyright © 2001 - 2002 Mirko Boeer #
# http://www.supermailer.de/ #
# #
# Dieses Script kann kostenlos eingesetzt werden, jedoch muss dieser Header #
# im Script enthalten bleiben! #
# #
# Systemvoraussetzungen: PHP 4 und Windows/Unix #
#############################################################################
# Geben Sie die E-Mail Adresse Ihres speziellen POP3 Postfachs an
$Recipient="newsletter@revo-fm.de";
# Geben Sie die Seite an, die angezeigt werden soll, wenn eine ANmeldung erfolgte
# und an den neuen Abonnenten die E-Mail zur Bestätigung gesendet wurde
# Angabe mit http://
$ConfirmationMailSendOKPage="http://www.revo-fm.de/php/newsanmeldung.php";
# Geben Sie die Seite an, die angezeigt werden soll, wenn eine ANmeldung erfolgte
# Angabe mit http://
$SubscribeOKPage="http://www.revo-fm.de/php/newsbestaetigung.php";
# Geben Sie die Seite an, die angezeigt werden soll, wenn eine ABmeldung erfolgte
# Angabe mit http://
$UnsubscribeOKPage="http://www.revo-fm.de/php/newsabmeldung.php";
# Geben Sie die Seite an, die angezeigt werden soll, wenn die E-Mail Adresse aeusserlich nicht korrekt ist = Fehlerseite
# Angabe mit http://
$ErrorPage="http://www.revo-fm.de/php/newsfehler.php";
# Geben Sie den Betreff der Bestaetigungs-E-Mail an
$EMailSubject="Ihre Anmeldung zu unserem REVO-Newsletter";
# Geben Sie die Datei mit dem Text für die Bestaetigungs-E-Mail an, die der neue Abonnent
# geschickt bekommt. Dies muss eine Textdatei sein, kein HTML!
# Beachten Sie, der E-Mail-Text muss den Platzhalter [BESTAETIGUNGSLINK] enthalten, damit der
# Abonnent in der E-Mail auch den Link für die Aufnahme in den Newsletter anklicken kann.
# Angabe mit http://
$EMailText="http://www.revo-fm.de/txt/bestaettext_revo.txt";
########### Ab hier nichts mehr aendern #####################
function CheckEMail($email) {
if (strpos($email, "@") === False)
return 0;
$s = substr($email, strpos($email, "@"), strlen($email));
if (count(explode(".", $s)) < 2)
return 0;
return 1;
}
if ( (!isset($EMail)) || ($EMail == "") || ( !CheckEMail($EMail) ) ) {
if ($ErrorPage != "")
header("Location: $ErrorPage");
else
print "Es wurde keine E-Mail Adresse angegeben oder die E-Mail Adresse liegt nicht im korrekten Format vor!";
exit;
}
if ( (!isset($Action)) || ($Action == "") ) {
print "Es wurde das Feld Action nicht übermittelt!";
exit;
}
if (($EMailText == "") || ($EMailSubject == "")) {
print "Fehler es ist kein E-Mail-Text oder kein Betreff für die Bestätigungs-E-Mail vorhanden.";
exit;
}
if ($Action == "subscribe") {
$headers = "From: $Recipient\n";
$headers .= "X-Mailer: SuperMailerScript http://www.supermailer.de/\n";
$headers .= "Return-Path: <$Recipient>\n";
$message = join("", file($EMailText));
$Link = "http://".$SERVER_NAME.$SCRIPT_NAME."?Action=confirmation&EMail=".urlencode($EMail);
$Link .= "&Vorname=".urlencode($Vorname);
$Link .= "&Nachname=".urlencode($Nachname);
$Link .= "&Firma=".urlencode($Firma);
#Beispiele fuer weitere Felder, diesen muessen im HTML-Formular und im SuperMailer angelegt werden!
#$Link .= "&Nachname=".urlencode($Nachname);
#$Link .= "&Vorname=".urlencode($Vorname);
$message = str_replace ("[BESTAETIGUNGSLINK]", $Link, $message);
@mail($EMail, $EMailSubject, $message, $headers);
if ($ConfirmationMailSendOKPage != "")
header("Location: $ConfirmationMailSendOKPage");
else
print "Ihnen wurde eine E-Mail an die E-Mail-Adresse $EMail mit einem Bestätigungslink zur Aufnahme in unseren Newsletter gesendet.
Bitte klicken Sie in dieser E-Mail auf den Bestätigungslink, damit Ihre E-Mail-Adresse in unseren Newsletter aufgenommen wird.";
exit;
}
# Aufruf ueber Bestaetigungs-E-Mail
if ($Action=="confirmation") {
$Action="subscribe";
}
$headers = "From: $EMail\n";
$headers .= "X-Mailer: SuperMailerScript http://www.supermailer.de/\n";
$headers .= "Return-Path: <$EMail>\n";
# Alle uebergebenen Werte in die Anmeldenachricht uebernehmen
$message = "";
reset ($HTTP_GET_VARS);
while (list ($key, $val) = each ($HTTP_GET_VARS)) {
if ($key == "Action") continue;
$message .= "$key: ".$val."\n";
}
# Versenden der Mail
@mail($Recipient, $Action, $message, $headers);
if ($Action == "subscribe")
if ($SubscribeOKPage != "")
header("Location: $SubscribeOKPage");
else
print "Ihre E-Mail-Adresse $EMail wurde zu unserer Newsletterliste hinzugefügt!";
else
if ($UnsubscribeOKPage != "")
header("Location: $UnsubscribeOKPage");
else
print "Ihre E-Mail-Adresse $EMail wurde aus unserer Newsletterliste entfernt!";
?>
can not load config.inc.php so I will die now!