* = erforderliche Angaben
«« 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 " "; } if($gesperrt == "1") {echo "Aufgrund von Spamschutzeinstellungen können Sie leider nur $limit Empfehlungen versenden. ";} } ?>