--- a/bldsystemtools/commonbldutils/rom_metrics_list.pl Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,240 +0,0 @@
-#!perl
-# Copyright (c) 2002-2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "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:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-# Perl script to output the current build rom_metric to a csv file.
-# The file is of the format <build_no>,<rom_size>
-# use warnings;
-#
-#
-
-use strict;
-use Getopt::Long;
-use File::Copy;
-
-#
-# Main
-#
-
-# Check arguments
-my $build = '';
-my $do_all = 0;
-my $device = '';
-my $rom_loc = '';
-my $publish_loc = '';
-my $preview = 0;
-my $help = 0;
-my $dir_name;
-my $roms_loc;
-
-GetOptions ( 'n' => \$preview, 'b=s' => \$build, 'a' => \$do_all, 'd=s' => \$device, 'p=s' => \$publish_loc, 'h|?' => \$help );
-&Usage() if $help;
-&Usage() if ( !$do_all && $build eq '' );
-&Usage() if ( ( $publish_loc eq '' ) || ( $device eq '' ) );
-
-#
-# Check if all builds are to be processed
-
-my $pathspec = $publish_loc.'\\logs\\<build>\\rom_logs';
-my $rom_logfilespec = "$pathspec\\${device}.log";
-my $csv_logfilespec = $publish_loc."\\Rom_metrics"."\\${device}.csv";
-my $csv_logfilespec_old = $publish_loc."\\Rom_metrics"."\\${device}.old";
-$roms_loc = $publish_loc.'\\logs';
-my $do_read = 1;
-
-if ( $do_all )
-{
- # Get all the log directories and process a new csv file.
-
-
- # Check if old log file exist then remove it then move the current file to old name.
- if ( -e $csv_logfilespec )
- {
- print ( "Moving old file\n" );
- if ( -e $csv_logfilespec_old )
- {
- if ( $preview )
- {
- print( "\ndel $csv_logfilespec_old\n" );
- }
- else
- {
- unlink( "$csv_logfilespec_old" );
- }
- }
- if ( $preview )
- {
- print( "\nmove $csv_logfilespec $csv_logfilespec_old\n" );
- }
- else
- {
- move( "$csv_logfilespec", "$csv_logfilespec_old" );
- }
- }
-
- # Get list of directories
- opendir ( DIRS, $roms_loc );
- while ( defined ( $dir_name = readdir( DIRS ) ) )
- {
- # $dir_name = $_;
- chomp ( $dir_name );
-
- # Look for name starting with 5 numbers, should be a build directory
- print "Checking dir $dir_name \n";
- if ( -d $roms_loc."\\".$dir_name )
- {
- if ( $dir_name =~ /^(\d{5})/ )
- {
- $rom_logfilespec = "$roms_loc\\$dir_name\\rom_logs\\${device}.log";
- print "Looking in $roms_loc\\$dir_name for $rom_logfilespec\n";
- $do_read = 1;
-
- # Open the file for reading
- if ( -e $rom_logfilespec )
- {
- open( INPUT, $rom_logfilespec ) or next "Can't open $rom_logfilespec\n";
- }
- else
- {
- print "Can't find log file $rom_logfilespec\n";
- open(CSVFILE, ">> $csv_logfilespec" ) or die "Can't open log file for appending.\n";
- if ( $preview )
- {
- print ( "$dir_name,-1,\n" );
- }
- else
- {
- print CSVFILE ( "$dir_name,-1,\n" );
- }
- close(CSVFILE);
- $do_read = 0;
-
- }
-
- # Extract details from the log file
- print "Checking do_read $do_read \n";
- if ( $do_read )
- {
- my $line;
- while($line = <INPUT>)
- {
- # Find size information
- if($line =~ /^Total used (\d+)$/)
- {
- # Open the csv file for appending
- open(CSVFILE, ">> $csv_logfilespec" ) or die "Can't open log file for appending.\n";
- if ( $preview )
- {
- print ( "$dir_name,$1,\n" );
- }
- else
- {
- print CSVFILE ( "$dir_name,$1,\n" );
- }
- close(CSVFILE);
- }
- }
-
- close(INPUT);
- }
- }
- }
- }
-}
-else
-{
- # Do not process all directories. Just get the log file from the given one and append to the csv file.
-
- # Check if old log file exist then remove it then move the current file to old name.
- if ( -e $csv_logfilespec )
- {
- print ( "Copy to old file\n" );
- if ( -e $csv_logfilespec_old )
- {
- if ( $preview )
- {
- print( "del $csv_logfilespec_old\n" );
- }
- else
- {
- unlink( "$csv_logfilespec_old" );
- }
- }
- if ( $preview )
- {
- print( "copy $csv_logfilespec $csv_logfilespec_old\n" );
- }
- else
- {
- copy( "$csv_logfilespec", "$csv_logfilespec_old" );
- }
- }
-
- $rom_logfilespec = "$roms_loc\\${build}\\rom_logs\\${device}.log";
- print "Looking in $roms_loc\\$build for $rom_logfilespec\n";
-
- # Open the file for reading
- if ( -e $rom_logfilespec )
- {
- open( INPUT, $rom_logfilespec ) or die "Can't open $rom_logfilespec\n";
- }
- else
- {
- open(CSVFILE, ">> $csv_logfilespec" ) or die "Can't open log file for appending.\n";
- if ( $preview )
- {
- print ( "$build,-1,\n" );
- }
- else
- {
- print CSVFILE ( "$build,-1,\n" );
- }
- close(CSVFILE);
- die "Can't find log file $rom_logfilespec\n";
- }
-
- # Extract details from the log file
- my $line;
- while($line = <INPUT>)
- {
- # Find size information
- if($line =~ /^Total used (\d+)$/)
- {
- # Open the csv file for appending
- open(CSVFILE, ">> $csv_logfilespec" ) or die "Can't open log file for appending.\n";
- if ( $preview )
- {
- print ( "$build,$1,\n" );
- }
- else
- {
- print CSVFILE ( "$build,$1,\n" );
- }
- }
- }
-
- close(INPUT);
-
-}
-
-sub Usage
-{
- print "\nperl rom_metrics_list.pl [-a | -b %1] -d %2 -p %3 [-n]\n\n";
- print "-a Process all builds.\n";
- print "-b Build number.\n";
- print "-d Device type.e.g. ab_001.techview\n";
- print "-p Publish location.\n";
- print "-n Preview only.\n";
- print "-h Help.\n\n";
- exit (0);
-}