--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bldsystemtools/commonbldutils/rom_metrics_list.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,240 @@
+#!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);	
+}