sub check_db_connection {
    return 0 if $db->ping;
    for my $try (1 .. 3) {
        sleep 15;
        Log(*LOGFILE, "WARNING:: $0::db appears to have gone away, attempting to reconnect (try $try)");
        return 0 if $db = connectdb('mydatabase');
    }
    Log(*LOGFILE, "ERROR: $0:Cannot reconnect to mydatabase, exiting.");
    close(*LOGFILE);
    exit 0;
}