Gedichte
Getextebuch
Aneinandergereiht
ne 'Story
Zusatz
Thematik
Dazu
Helpers
Links
Spiele
Eddie Live
Was passiert
Programmierung


Autor: Eddie
Letzte Änderung am: 04.02.2005

Zu der Erklärung
<?php
/////////Funktion mailtest()   - testet Mails - ///////////////////
function mailtest($nachricht,$emailto,$dir)
{
$at=localtime(time(),1);
$wieviel=preg_split("/,/",reader_mailer());
    if(!
$nachricht || !$emailto)return "Wähle jemanden aus an den du eine Nachricht schreiben willst und schreib ne Nachricht";

    if(
strlen($nachricht) > 80000)return "Wenn du ein Buch verschicken willst, dann Komprimiere es bitte vorher";

    if(
$wieviel[0] != $at["tm_mday"]){
    
schreib($at["tm_mday"].",1,;",$dir);
    return 
"mail ma";
    }

    if(
$wieviel[1] > 50)
    {
    return 
"Die anderen Mails müssen erst einmal gelesen werden, doch du kannst ja Morgen schreiben";
    }
    else
    {
    
$zahl=$wieviel[1]+1;
    
schreib($at["tm_mday"].",".$zahl.",;",$dir);
    return 
"mail ma";
    }
}

///////Funktion reader()  - liest aus Datei - //////
function reader_mailer()
{
if(
file_exists("wieviel.txt"))
    {
    
$fp fopen("wieviel.txt","r");
    
$zurueck=fread($fp,filesize("wieviel.txt"));
    
fclose($fp);
    }
return 
$zurueck;
}

//////Funktion schreib()   - schreit in Datei /////
function schreib($was,$dir)
{
    
$fp=fopen("./".$dir."wieviel.txt","w+");
    
flock($fp,2);
    
fputs ($fp,$was);
    
flock($fp,3);
    
fclose($fp);
}

////////// E-mail Liste ////////////
$emails=array("1" => "eddie@thetuxworld.de",
        
"2" => "uwe@thetuxworld.de",
        
"3" => "anne@thetuxworld.de",
        
"4" => "dani@thetuxworld.de");
        

//////// E-mail header ////////////////
$header="From:Der Tux Welt Mailer<mailer@thetuxworld.de>\n";
$header .= "X-Mailer: PHP/" phpversion(). "\n";
$header .= "X-Sender-IP: $REMOTE_ADDR\n";
$header .= "Content-Type: text/plain";

    
    
$emailto=$_POST["emailto"];
    
$nachricht=$_POST["nachricht"];
    
    
//////// Prüfung der Mail/////////
    
$test=mailtest($nachricht,$emailto,$dir);

    
//// Dann Mail ma ///
    
if($test == "mail ma")
    {
    
//mail($emails[$emailto],"Ne Mail für dich",$nachricht,$header);
    
echo "<font color=#0066CC>An ".$emails[$emailto]." wurde folgende Nachricht gesendet:</font><br><br>
        "
.nl2br($nachricht);
    }
    else
    {
    echo 
$test;
    }
?>