#!/usr/bin/perl
#
# Yells if backups haven't run for $BackupInterval days.
#
# Last updated by gossamer on Mon Oct  6 17:40:18 EST 2003
#

#use strict;
use Festival::Client;
#use Math::Fraction;

my $DEBUG = 0;

my $BackupInterval = 2.5;   # in days, fractional OK

my $Name = "Ricky";
my $BackupOrigin = "desktop, Mycroft,";
my $BackupDestination = "zip disks";
my $BackupTestFile = "/etc/my_packages.dat";

#
# Main
#

$DEBUG && warn("Age of $BackupTestFile: " . (-M $BackupTestFile) .  " days.");
$DEBUG && exit 1;

if (-M $BackupTestFile >= $BackupInterval) {

   my $Festival = Festival::Client->new("localhost") or
      die "Can't connect to Festival server.";
   
   $Festival->say("$Name, your $BackupOrigin needs to be backed up to " .
                  "$BackupDestination right now, please.  " .
                  "Don't forget to change the $BackupDestination as well.");
}

#
# Ende.
#