Select Code to Download

2013-11-21 23:10:37 [MIME::Lite 13557] : **** DIE!!! **** error closin
+g /usr/lib/sendmail: No child processes (exit -1)
 Additionally, an error occurred sending the alert email: error closin
+g /usr/lib/sendmail: No child processes (exit -1)

2013-11-21 23:10:37 [Proc::PID::File 13557] : **** Permission denied a
+t /usr/local/share/perl/5.14.2/Proc/PID/File.pm line 224 during globa
+l destruction.

        while (my $row = $get_sth->fetchrow_hashref) {
            if ($row->{messagetext} && $row->{messagehtml}) {
...
                logmsg("Invalid message: MessageID: " . $row->{message
+id} . " Next!");
            }
        }

sub start {
    my $self = shift;
    my $name = $self->name;
...

    $self->init_mailer_daemon;
}

sub init_mailer_daemon {
    my $self = shift;
    my $name = $self->name;
...
    local $SIG{CHLD} = 'IGNORE';
    &queue;
}