checkbackup.perl

#!/usr/bin/perl
#
# purpose:	simple script to see if the backup script runs smooethly.
#
#	example usage: perl checkbackup.perl  --pool=puddle --snapshotinterval=300
#
#	this will check if the pool puddle has a snapshot made within the last 10 minutes since wake/boot
#



use JNX::Configuration;

my %commandlineoption = JNX::Configuration::newFromDefaults( {																	
																	'pools'							=>	['puddle','string'],
																	'snapshotinterval'				=>	[300,'number'],
																	'snapshottime'					=>	[10,'number'],
															 }, __PACKAGE__ );

use strict;

use JNX::ZFS;
use JNX::System;

JNX::System::checkforrunningmyself($commandlineoption{'pools'}) || die "Already running which means lookup for snapshots is too slow";

my $lastwaketime 	= JNX::System::lastwaketime();
my @poolstotest		= split(/,/,$commandlineoption{'pools'});

for my $pooltotest (@poolstotest)
{
	print STDERR "Testing pool: $pooltotest\n";

	my @snapshots		= JNX::ZFS::getsnapshotsforpool($pooltotest);
	# print STDERR "Snapshots: @snapshots\n";

	my $snapshottime	= JNX::ZFS::timeofsnapshot( pop @snapshots );

	my $snapshotoffset	= (2 * $commandlineoption{'snapshotinterval'}) + $commandlineoption{'snapshottime'};

	if( $snapshottime + $snapshotoffset < time() )
	{
		if( $lastwaketime + $snapshotoffset < time() )
		{
			print STDERR "Last snapshot for pool (".$pooltotest."):".localtime($snapshottime)." - too old\n";
			exit 1;
		}
		else
		{
			print STDERR "Not long enough after reboot\n";
			exit 0;
		}
	}
	print STDERR "Last snapshot for pool (".$pooltotest."):".localtime($snapshottime)." - ok\n";
}
exit 0;