#!/usr/bin/perl -w

#
# diary-check-dates.pl
#
# Developed by Ondrej Jombik <nepto@platon.sk>
# Copyright (c) 2004 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2004-12-25 - created
#

# $Platon$

use strict;
$| = 1;

if ($#ARGV != 0) {
    printf("Usage: %s <diary-filename>\n", $0);
    exit 1;
}

open(F, $ARGV[0]) or die('file not found');

print("*** NOTE: ERR for the first date is OK ***\n");

my $day   = 0;
my $month = 0;
my $year  = 0;

my $day_old   = 0;
my $month_old = 0;
my $year_old  = 0;

my @pars = ();

while (<F>) {
    if ( $_ =~ /^(\d\d)\/(\d\d)\/(\d\d\d\d).*$/ ) {
        $day   = $1;
        $month = $2;
        $year  = $3;
        print "$year-$month-$day: ";

        if ( $year == $year_old && $month == $month_old && $day == $day_old + 1 ) {
            print "OK\n";
        } elsif ( $year == $year_old && $month == $month_old + 1 && $day == 1 ) {
            print "OK (month changed)\n";
        } elsif ( $year == $year_old + 1 && $month == 1 && $day == 1 ) {
            print "OK (year changed)\n";
        } else {
            print "ERR\n";
        }

		$day_old = $day;
		$month_old = $month;
		$year_old = $year;
    }
}

close(F);

# vim: ts=4
# vim600: fdm=marker fdl=0 fdc=0