--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/clean_package_dirs.pl	Thu Jun 11 19:28:03 2009 +0100
@@ -0,0 +1,142 @@
+# 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 =~ /^([^.]+)\.(\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";
+	}
+}