Remove the PrintingServices component from TB10.1 on wards(on behalf of dane.waby@nokia.com)
# 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;
}