diff -r a9d4531388d0 -r d90029decf65 bldsystemtools/commonbldutils/rom_metrics_list.pl
--- 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);	
-}