#!/usr/bin/perl

use DBI;

# clean_submission_messages.pl - Cleans submission messages. Uses LOW_PRIORITY so you don't have to take the site down to clean.

# Connect.
$dbh = DBI->connect('dbi:mysql:fadb:127.0.0.1', 'fauser', 'fapass') || die "Couldn't connect. Wrong info? Server down?";
# Query. Delete's read messages. Gives all other queries priority.
$sql = "DELETE LOW_PRIORITY from submission_messages_table WHERE is_read = 1";
# Prepare Query.
$query = $dbh->prepare($sql);
# Execute Query.
$result->execute($query) || die "An error occured. Please look into things!";
# Close Connection.
$dbh->disconnect();