1 #!/usr/bin/perl

     2 # Copyright (c) 2010 Symbian Foundation Ltd

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.

    10 

    11 # Script to delete any Raptor build logs from

    12 # $EPOCROOT/epoc32/build

    13 

    14 use strict;

    15 use usage;

    16 use set_epocroot;

    17 use File::Spec;

    18 use Cwd; 

    19 

    20 usage(\@ARGV,"This script deletes all Raptor build logs");

    21 set_epocroot();

    22 my $epocroot = $ENV{'EPOCROOT'};

    23 my $log_stem = File::Spec->catfile("$epocroot","epoc32","build","Makefile");

    24 my $log_pattern = "$log_stem\.\*\.log"; 

    25 my @old_logs = glob($log_pattern);

    26 if (@old_logs) {

    27     print ">>> Deleting Raptor build logs\n";

    28     unlink @old_logs;

    29 }

    30 exit 0;

    31