sbsv1/abld/platform/fcloggerutl.pm
changeset 607 378360dbbdba
parent 599 fa7a3cc6effd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1/abld/platform/fcloggerutl.pm	Wed Jun 30 11:35:58 2010 +0800
@@ -0,0 +1,55 @@
+# Copyright (c) 1997-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:
+# FC_LOGGER.PM
+# 
+#
+
+package FCLoggerUTL;
+
+require Exporter;
+@ISA=qw(Exporter);
+@EXPORT=qw(
+	PMCheckFCLoggerVersion
+);
+
+#Function Call Logger
+sub PMCheckFCLoggerVersion() {
+	my $exe=$ENV{EPOCROOT}."epoc32\\tools\\fc_logger\\edgcpfe.exe";
+	#Check if file exists
+	if (not -e $exe) {
+		print "WARNING: File doesn't exist $exe \n";
+		return 0;
+	}
+
+	open FCLPIPE, "$exe -v 2>&1 |";
+	# Read all output from file into array
+	my @lines=<FCLPIPE>;
+	chomp @lines;
+	# combine into single string with each line starting with a :
+	my $line=join(":", "", @lines);
+	close FCLPIPE;
+
+	if ($line =~ m/version\s([0-9\.]+)/) {
+		my $Version      = $1;
+		$Version		 =~ m/(\d+)\.(\d+)\.?([\d+])?/;
+		my $MajorVersion = $1;
+		my $MinorVersion = $2;
+		my $PatchLevel   = $3;
+		if ($MajorVersion<3 or $MinorVersion<7) {
+			print "WARNING: $exe version is less than 3.7.1. The -logfc option will be ignored.\n";
+			return 0;
+		}
+	}
+	return 1;
+}