retention.pl

#!/usr/bin/perl -w

use Date::Calc qw(Delta_Days Add_Delta_Days);
#($today, $thisMonth, $thisYear) = (localtime)[3, 4, 5];
%pools = &getPools("recycle.cfg");
foreach $pool (keys(%pools)) {
	$offset = $pools{$pool};
	chomp $pool;
	@ssid = &getSsid($pool);
	foreach (@ssid) {
		chomp;
		($y1, $m1, $d1) = getDate($_, 'savetime');
		($y2, $m2, $d2) = getDate($_, 'ssretent');
		chomp($y1, $m1, $d1, $y2, $m2, $d2);
		$delta = Delta_Days($y1, $m1, $d1, $y2, $m2, $d2);
		($year, $month, $day) = Add_Delta_Days($y1, $m1, $d1, $offset);
		if ($delta > $offset) {
			print "ssid: $_, ssretent:$m2-$d2-$y2, savetime: $m1-$d1-$y1, delta: $delta, shouldbe: $month-$day-$year\n";
			system("/usr/sbin/nsrmm -S $ssid -w $month/$day/$year -e $month/$day/$year");
			system("/usr/sbin/mminfo -q \"ssid=$ssid\" -r \"savetime,ssretent,ssbrowse,state,pool\"");
		}
	}
}
	
sub getDate {
	$ssid = $_[0];
	$infoType = $_[1];
	$date = `/usr/sbin/mminfo -q \"ssid=$ssid\" -r $infoType | /bin/grep -v $infoType`;
	return &splitDays($date);
}

sub splitDays {
	$infoType = shift;
	($m, $d, $y)=split(/\//, $infoType);
	return($y, $m, $d);
}

sub getSsid {
	$pool = shift;
	return `/usr/sbin/mminfo -q \"pool=$pool\" -r ssid | /bin/grep -v ssid`;
}

sub getPools {
	$POOLS=shift;
	open(POOLS);
	%pools=<POOLS>;
	close(POOLS);
	return %pools;
}