Hallo,
ich suche nach einer Möglichkeit einmal in der Woche automatisch von einem Script eine Email verschicken zu lassen. Das Script soll dann eine *.txt Datei auslesen und zusammen mit der Email verschicken. (Die Voraussetzung, dass das Script mindestens 1x pro Tag aufgerufen wird ist gegeben.) Geschafft habe ich dies schon für den Fall, dass diese Email täglich verschickt wird. Nun bräuchte ich aber eine Erweiterung auf eine Woche oder auch auf einen einstellbaren Intervall von mehreren Tagen. Kommt ja fast aufs selbe hinaus. Nachfolgend füge ich einfach mal einen Teil des Quellcodes ein, den ich schon habe und der nun geändert werden müsste. Wäre echt toll, wenn mir da jemand helfen könnte. Danke
Gruss
Pfanni
$mailprog="/usr/sbin/sendmail";
$data1="/server/username/public_html/cgi-bin/xyz/adressen.txt";
$data=„datum.txt“;
print „content-type: text/html\n\n“;
( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = gmtime( time );
$year += 1900;
my $date = sprintf( „%02d.%02d.%4d“,$mday,$mon,$year );
open(FILE, „datum.txt“);
{
local $/ = undef;
$datum = ;
}
if($date eq $datum){
print"heute schon getan";
exit;
}elsif($datum ne $date){
open(NUM,">datum.txt");
flock (NUM, 2);
print NUM $date;
close(NUM);
open(FILE, „$data1“);
{
local $/ = undef;
$daten = ;
}
close(FILE);
open(MAIL,"|$mailprog -t") || die;
print MAIL „To: $email1\n“;
print MAIL „From: $email2\n“;
print MAIL „Subject: $betreff\n\n“;
print MAIL „$daten\n“;
close(MAIL);
print" OK Auftrag erledigt";
exit;
}