Removed drivce space check for platform builds, as there's already one in the FBF anyway,
and platform builds are not generally expected to run concurrently (which was the rationale
for the check in the bootstrap.)
# 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";
}
}