equal
deleted
inserted
replaced
|
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 |