#!/usr/bin/perl -w
#
# Yells if palmie backups haven't run for too long
#
# Last updated by rb on Mon Jan 26 18:42:38 EST 2004
#

use strict;
use Festival::Client;


#my $DEBUG = 0;
my $DEBUG = 1;

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

my $Name = "Ricky";
my $BackupOrigin = "palm pilot, Tick Tock,";
my $BackupDestination = "Mycroft";
my $BackupTestFile_Date = $ENV{PILOT_DATEDB} || 
                          $ENV{HOME} .  "/pilot/backup/Datebook.pdb";
my $BackupTestFile_Addr = $ENV{PILOT_ADDRDB} || 
                          $ENV{HOME} .  "/pilot/backup/AddressDB.pdb";
my $BackupTestFile_Todo = $ENV{PILOT_TODODB} || 
                          $ENV{HOME} .  "/pilot/backup/ToDoDB.pdb";
my $BackupTestFile_Memo = $ENV{PILOT_MEMODB} || 
                          $ENV{HOME} .  "/pilot/backup/MemoDB.pdb";

my @files = ($BackupTestFile_Date,
             $BackupTestFile_Addr, 
             $BackupTestFile_Todo, 
             $BackupTestFile_Memo);

#
# Main
#

my $expired = 0;

for my $file (@files) {
   if ($DEBUG) {
      my $existence = -e $file || "0";
      warn "Existance of $file '$existence'.";
      if ($existence) {
         my $age = -M $file;
         warn "Age of $file '$age' days.";
     }
   }

   if ((! -e $file) ||
         (-M $file >= $BackupInterval)) {
      $expired++;
      last;
   }
}

if ($expired) {
   my $Festival = Festival::Client->new("localhost") or
      die "Can't connect to Festival server.";

   $DEBUG && warn ("$Name, your $BackupOrigin is ($expired) overdue to be backed up to $BackupDestination.");
   $Festival->say("$Name, your $BackupOrigin is overdue to be backed up to $BackupDestination.");
}

#
# Ende.
#