#! /usr/bin/env perl
#

my $last;
my $lastmsg;

while (<STDIN>) {
    next if not m{(\d\d)/(\d\d) (\d\d):(\d\d):(\d\d)};
    my $current = $5 + 60*$4 + 3600*$3 + 86400*$2 + 2592000*$1;
    if (defined($last) and ($current - $last > 10*60)) {
        print "Found hole in MAUI logs at: $lastmsg -- $_\n";
    };
    $last = $current;    
    $lastmsg = "$1/$2 $3:$4:$5";
}