# HG changeset patch
# User William Roberts <williamr@symbian.org>
# Date 1282919226 -3600
# Node ID c62bd4f9dbce33aa80a321f316c3fffddf76bb3e
# Parent  150026b6d3e6755b3d2216ae8dd535ff078d31a3
Add delete_builds.pl - a utility for making space quickly on build machines

This Perl script deletes some directories known to contain very large files first, before
deleting the rest of the build which contains millions of small files. Given multiple
builds, it will do this breadth first, so that lost of space is released quickly.

diff -r 150026b6d3e6 -r c62bd4f9dbce williamr/delete_builds.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/delete_builds.pl	Fri Aug 27 15:27:06 2010 +0100
@@ -0,0 +1,79 @@
+#! perl
+
+# Copyright (c) 2010 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:
+# Delete a directory full of builds, making space as quickly as possible by
+# deleting known regions of massive files first
+
+use strict;
+
+# List directory subtrees containing mostly big files, biggest first
+my @rich_pickings = (
+  'output/zips',
+  'output/logs',
+  'epoc32/release/winscw/udeb'
+  );
+  
+if (scalar @ARGV == 0)
+  {
+  print <<'EOF';
+Usage: perl delete_builds.pl dir1 [dir2 ...]
+
+Delete one or more builds, making free space as quickly as possible
+by deleting a few selected directories first
+
+You can use wildcards in the directory names, and they can be either
+individual builds or directories of builds. A build is identified by
+the present of an "output" subdirectory. 
+EOF
+  exit(1);
+  }
+
+my @builds = ();
+
+@ARGV = map {glob} @ARGV;
+foreach my $dir (@ARGV)
+  {
+  $dir =~ s/\\/\//g;  # unix separators
+  $dir =~ s/\/+$//;   # remove trailing /
+  if (!-d $dir)
+    {
+    print "Ignoring $dir - not a directory\n";
+    next;
+    }
+  if (!-d "$dir/output")
+    {
+    print "Ignoring $dir - not a build\n";
+    next;
+    }
+  push @builds, $dir;
+  }
+
+foreach my $subdir (@rich_pickings)
+  {
+  foreach my $build (@builds)
+    {
+    my $victim = "$build/$subdir";
+    next if (!-d $victim);  # nothing to delete
+    $victim =~ s/\//\\/g;   # windows separators again (sigh!)
+    print "* rmdir /s/q $victim\n";
+    system("rmdir","/s/q",$victim);
+    }
+  }
+
+foreach my $build (@builds)
+  {
+  $build =~ s/\//\\/g;
+  print "* rmdir /s/q $build";
+  system("rmdir","/s/q",$build);   
+  }