«« Zurück");}
if (empty ($senderemail)) {
die ("Fehler: Sie müssen Ihre Emailadresse eingeben.
«« Zurück");}
if (empty ($recipientname)) {
die ("Fehler: Sie müssen einen Empfängernamen eingeben.
«« Zurück");}
if (empty ($recipientemail)) {
die ("Fehler: Sie müssen eine Empfängeremailadresse eingeben.
«« Zurück");}
if(!eregi("^[a-z0-9\._-]+@+[a-z0-9\._-]+\.+[a-z]{2,4}$", $senderemail)) {
die("Fehler: Geben Sie bitte eine gültige Emailadresse ein.
«« Zurück");}
if(!eregi("^[a-z0-9\._-]+@+[a-z0-9\._-]+\.+[a-z]{2,4}$", $recipientemail)) {
die("Fehler: Geben Sie bitte eine gültige Empfänger-Emailadresse ein.
«« Zurück");}
if(eregi("\n", $recipientemail)) {
die("Fehler: Geben Sie bitte eine gültige Empfänger-E-Mailadresse ein.
«« Zurück");}
if(eregi("\r", $recipientemail)){
die("Fehler: Geben Sie bitte eine gültige Empfänger-E-Mailadresse ein.
«« Zurück");}
if(eregi("\n", $senderemail)) {
die("Fehler: Geben Sie bitte eine gültige Absender-E-Mailadresse ein.
«« Zurück");}
if(eregi("\r", $senderemail)){
die("Fehler: Geben Sie bitte eine gültige Absender-E-Mailadresse ein.
«« Zurück");}
if(eregi("\n", $sendername)) {
die("Fehler: Geben Sie bitte einen gültigen Absendernamen ein.
«« Zurück");}
if(eregi("\r", $sendername)){
die("Fehler: Geben Sie bitte einen gültigen Absendernamen ein.
«« Zurück");}
$remote = getenv("REMOTE_ADDR");
//Ablaufzeit in Sekunden
$ablaufzeit = "$time" - "$sperrzeit";
//Abgelaufene IP-Adressen entfernen
$test = @file($iplog);
while (list ($line_num, $line) = @each ($test))
{$s = explode("&&",$line);
if($s[0] <= $ablaufzeit)
{
$fz = fopen( "$iplog", "r+" );
$c = fread($fz, filesize($iplog));
fclose($fz);
$line=quotemeta($line);
$string = "";
$c = ereg_replace($line, $string, $c);
$c1=fopen($iplog, "w+");
@flock($c1,2);
fputs($c1, $c);
@flock($c1,3);
fclose($c1);
}}
//IP-Prüfung
$ippruefung = @file($iplog);
while (list ($line_num, $line) = @each ($ippruefung))
{$ips = explode("&&",$line);
//IP-Adresse finden
if($ips[1] == $remote)
{
$ipf = "1";
//Prüfen, wieviel Empfehlungen bereits versendet wurden
if($ips[2] < $limit)
{
$z = $ips[2];
$z ++;
$fp = fopen($iplog, "r" );
$contents = fread($fp, filesize($iplog));
fclose($fp);
$string = "$ips[0]&&$ips[1]&&$z&&";
$replace = ereg_replace($line, $string, $contents);
$fh=fopen($iplog, "w");
@flock($fh,2);
fputs($fh, $replace);
@flock($fh,3);
fclose($fh);
}
if($ips[2] >= $limit)
{$gesperrt = "1";}
}
}
if($ipf != 1)
{
$string2 = "$time&&$remote&&1&&\n";
$fi=fopen($iplog, "a");
@flock($fi,2);
fputs($fi, $string2);
@flock($fi,3);
fclose($fi);
}
//URL der Seite zusammenstellen
if($gesperrt != "1")
{
$sendurl = "$url$id";
if ($anmerkungen == "")
{$anmerkungen = "Keine";}
//Nachricht versenden
$subject = "Seitenempfehlung von $sendername";
$mailtext = "
Sehr geehrte/r Frau/Herr $recipientname,
$sendername ($senderemail) empfiehlt Ihnen den Besuch
folgender Webseite:
------------------------------------------------------
$sendurl
------------------------------------------------------
Anmerkungen dazu von $sendername:
$anmerkungen
";
mail($recipientemail,$subject,$mailtext,"From: $sendername <$senderemail>");
echo "Vielen Dank $sendername,
Ihre Empfehlung wurde an $recipientname ($recipientemail) gesendet.
Bitte klicken Sie hier, um zur Homepage zurück zu gelangen.
";
}
if($gesperrt == "1")
{echo "Aufgrund von Spamschutzeinstellungen können Sie leider nur $limit Empfehlungen versenden.";}
}
?>
© 2006
