clean_package_dirs.pl

# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# This is a helper script which cleans up some space on the machine by
# removing old package-build-related directories 

use strict;

use Getopt::Long;
use File::Path;

my $sJOB_BASE_DIR = "D:\\fbf_job";
my $nJOB_MAX_DIR_AGE_SECS = 259200; # 259200=3 days
my $bJOB_SAVE_LAST_DIR = 1;

my $sPROJECT_BASE_DIR = "D:\\fbf_project";
my $nPROJECT_MAX_DIR_AGE_SECS = 259200; # 259200=3 days
my $bPROJECT_SAVE_LAST_DIR = 1;

my $nNow = time();

print "#### Cleaning old job dirs. ####\n";
opendir(DIR, "$sJOB_BASE_DIR");
my @asDirs = readdir(DIR);
close(DIR);

for my $sDir ( @asDirs )
{
	next if ( $sDir eq "." or $sDir eq ".." );
	next if ( ! -d "$sJOB_BASE_DIR\\$sDir" );
	
	#print "--- $sDir\n";
	
	if ( $sDir =~ /^([^.]+)\.T?(\d+)/ )
	{
		my $sBaseName = $1;
		my $sBuildNumber = $2;
		
		my $nTs = (stat("$sJOB_BASE_DIR\\$sDir"))[9]; # modified time
			
		my $bLastDir = 0;
		if ( $bJOB_SAVE_LAST_DIR )
		{
			my @asSimilarDirs = grep(/^$sBaseName(\.|$)/, @asDirs);
			$bLastDir = 1;
			for my $sSimilarDir ( @asSimilarDirs )
			{
				my $nSimDirTs = (stat("$sJOB_BASE_DIR\\$sSimilarDir"))[9];
				$bLastDir = 0 if ( $nSimDirTs > $nTs );
			}
			$bLastDir = 1 if ( ! scalar @asSimilarDirs );
		}
		
		if ( $bJOB_SAVE_LAST_DIR && $bLastDir )
		{
			print "Skipping $sDir as last dir in the series\n";
		}
		elsif ( $nNow - $nTs > $nJOB_MAX_DIR_AGE_SECS )
		{
			print "Removing $sDir...\n";
			print "rmdir /S $sJOB_BASE_DIR\\$sDir\n";
			system("rmdir /S /Q $sJOB_BASE_DIR\\$sDir");
		}
		else
		{
			print "Keeping $sDir\n";
		}
	}
	else
	{
		print "$sDir doesn't match\n";
	}
}

print "#### Cleaning old project dirs. ####\n";
opendir(DIR, "$sPROJECT_BASE_DIR");
@asDirs = readdir(DIR);
close(DIR);

for my $sDir ( @asDirs )
{
	next if ( $sDir eq "." or $sDir eq ".." );
	next if ( ! -d "$sPROJECT_BASE_DIR\\$sDir" );
	
	if ( $sDir =~ /^([^.]+)\.(\d+)/ or $sDir =~ /^([^.]+)$/ )
	{
		my $sBaseName = "";
		my $sBuildNumber = 0;
		if ( $sDir =~ /^([^.]+)\.(\d+)/ )
		{
			$sBaseName = $1;
			$sBuildNumber = $2;
		}
		elsif ( $sDir =~ /^([^.]+)$/ )
		{
			$sBaseName = $1;
		}
		
		my $nTs = (stat("$sPROJECT_BASE_DIR\\$sDir"))[9]; # modified time
		
		my $bLastDir = 0;
		if ( $bPROJECT_SAVE_LAST_DIR )
		{
			my @asSimilarDirs = grep(/^$sBaseName(\.|$)/, @asDirs);
			$bLastDir = 1;
			for my $sSimilarDir ( @asSimilarDirs )
			{
				my $nSimDirTs = (stat("$sPROJECT_BASE_DIR\\$sSimilarDir"))[9];
				$bLastDir = 0 if ( $nSimDirTs > $nTs );
			}
			$bLastDir = 1 if ( ! scalar @asSimilarDirs );
		}
		
		if ( $bPROJECT_SAVE_LAST_DIR && $bLastDir )
		{
			print "Skipping $sDir as last dir in the series\n";
		}
		elsif ( $nNow - $nTs > $nPROJECT_MAX_DIR_AGE_SECS )
		{
			print "Removing $sDir...\n";
			print "rmdir /S $sPROJECT_BASE_DIR\\$sDir\n";
			system("rmdir /S /Q $sPROJECT_BASE_DIR\\$sDir");
		}
		else
		{
			print "Keeping $sDir\n";
		}
	}
	else
	{
		print "$sDir doesn't match\n";
	}
}