view release on metacpan or  search on metacpan

scripts/smtp_send  view on Meta::CPAN

my $pid_dir = "/var/run";
my $logfile = "/var/log/smtp_send_log";

# --------------------- END USER CUSTOMIZABLE VARIABLES --------------------

use Apache::App::Mercury;
use Apache::App::Mercury::SMTP_Message;

# log pid to $pid_dir
my $pid_file = basename($0).".pid";
$pid_file =~ m/^(.*)$/;  # untaint
open(PIDF, ">$pid_dir/$1");
print PIDF $$."\n";
close PIDF;

my $date;
while (1) {
    open(LOG, ">>$logfile");
    $date = localtime;
    &send_new_messages();
    close LOG;