#!/usr/bin/perl

use strict;
use warnings;

my ($filename, $db) = split(/ /, shift, 2);
if(!$filename){ print "Missing Filename Param\n"; exit 1; }
if(!$db){ print "Missing DB Param\n"; exit 1; }

my ($mtime) = (stat($filename))[9];
if(!$mtime){ print "File not Found\n"; exit 1; }

if(time - 3600 > $mtime){
	print "File $filename older than 1 week.\n";
	exit 1;
}

open FH, "<$filename" || do {
	print "Unable to open Filename.\n";
	exit 1;
};

while(<FH>){
	if(m/Archive log gap for $db:\s+(\d)./){
		print $1, "\n";
		exit 0;
	}
}
close(FH);

print "0\n";
exit(1);