fishdescriptor: debugging

[chiark-utils.git] / scripts / palm-datebook-reminders

diff --git a/scripts/palm-datebook-reminders b/scripts/palm-datebook-reminders
index 036c44b0d39bac84474a3a4e116370de811d444e..2d81e46d587c01262c60790c4a52726cd42dbba3 100755 (executable)
--- a/scripts/palm-datebook-reminders
+++ b/scripts/palm-datebook-reminders
@@ -1,5 +1,21 @@
 #!/usr/bin/perl
 
+# Copyright 2003 Ian Jackson <ian@chiark.greenend.org.uk>
+#
+# This script and its documentation (if any) are free software; you
+# can redistribute it and/or modify them under the terms of the GNU
+# General Public License as published by the Free Software Foundation;
+# either version 3, or (at your option) any later version.
+# 
+# chiark-named-conf and its manpage are distributed in the hope that
+# it will be useful, but WITHOUT ANY WARRANTY; without even the
+# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+# PURPOSE.  See the GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, consult the Free Software Foundation's
+# website at www.fsf.org, or the GNU Project website at www.gnu.org.
+
 use Palm::PDB;
 use Palm::Datebook;
 use Time::Local;
@@ -33,7 +49,7 @@ $filename= "DatebookDB.pdb" if !defined $filename;
 
 defined($now= time) or die $!;
 stat $filename or die "$us: $filename: $!\n";
-$backuptime= (stat _)[9];
+$backuptime= (stat _)[10];
 
 $pdb = new Palm::PDB or die $!;
 $pdb->Load($filename) or die $!;