}

}

my $dbh = C4::Context->dbh();

my $dbh = C4::Context->dbh();

my $sth;

my $sth;

my $sth2;

my $sth2;

my $count;

my $count;

    $sth = $dbh->prepare("DELETE FROM message_queue WHERE time_queued < date_sub(curdate(), interval ? day)");

    $sth = $dbh->prepare("DELETE FROM message_queue WHERE time_queued < date_sub(curdate(), interval ? day)");

    $sth->execute($mail) or die $dbh->errstr;

    $sth->execute($mail) or die $dbh->errstr;

    $sth->finish;

    $sth->finish;

    print "$count messages were deleted from the mail queue.\nDone with message_queue purge.\n" if ($verbose);

    print "$count messages were deleted from the mail queue.\nDone with message_queue purge.\n" if ($verbose);