[Reposted here per Justin's Request]

Hello Justin,

Sometime ago, I contacted you about possibly automating the scheduled mailing module The concept of entering each file individually into the program was quite a hassle

Anyway, I have come up with a solution I created a separate directory for all mail that I want sent via the scheduled mail module Next, I upload the files to that directory with the dates to be sent as the file name; i e , 11-01-05 txt, 11-02-05 txt, etc I can do the same for HTML based files as well

I configured the scheduled mailings module to repeat the schedule every day I also checked these boxes (assuming basic text files here):

Apply the PlainText Email template to this message Grab headers from PlainText message Only send schedule if PlainText message has data Only send schedule if PlainText message is different from last mailing Archive Mailings

Now I run my Perl script just prior to running the scheduled mail module Both are run from CRON obviously It gets a file with today's date (the date it is run on), and renames it, which effectively removes the old copy from the directory Scheduled Mail is configured to look for the renamed file each time it is run I never have to re-enter information in that program again unless I make some changes in the format The message subjects are all included I the files themselves

This is the Perl script

!/usr/local/bin/perl

use warnings;

change to the directory we need

(Obviously put that proper name in place of the one here )

chdir("/usr/home/ges/ dada_files/ send") or die("could not change directory");

Discover the date in the expected format

(Check these fields are in the order you want )

# ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($^T); $mon += 1; $year -= 100;

$fname=sprintf("%02d-%02d-%02d txt", $mon, $mday, $year);

Rename that TXT file - if it exists

# if (-f $fname) { printf("Renaming %s\n", $fname); rename($fname,"2bSent"); exit(0);}

$fname=sprintf("%02d-%02d-%02d htm", $mon, $mday, $year);

Rename that HTM file - if it exists

# if (-f $fname) { printf("Renaming %s\n", $fname); rename($fname,"2bSent"); exit(0); }

printf("File %s not found (tried both txt and htm extensions)\n", $fname); exit(0);

Anyway, it works like a charm I cannot use the 'use strict;' declaration because the program will not compile if I do I have a lot to learn about Perl yet, but I am slowly learning Actually, a friend helped me with this Actually, I would like to get it to the point where I could use the following:

use strict; use warnings; use diagnostics;

That is what Perl seems to recommend anyway

Anyway, I just wanted to see if you were interested in including something like this into the DADA program Of course you would rewrite the program so it compiled correctly with the 'use strict;' statement I would assume In any case, I just though I would throw it out there and see if you were interested