--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/internetradio2.0/cenrep/cenrep_keys.pm Mon Apr 19 14:01:53 2010 +0300
@@ -0,0 +1,1755 @@
+#
+# Copyright (c) 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:
+#
+###################################################
+###################################################
+# This module contains common helper functions for
+# handling excel sheets from perl.
+# Version 0.9
+# - now checking that Int and Real values are really
+# numbers
+# - rfs, cust config and backup are must fields for variant row
+# - All rows, which have "Comment:" in the uid name are ignored.
+###################################################
+###################################################
+package cenrep_keys;
+
+##########################################
+# Libraries used
+##########################################
+use strict;
+use Win32::OLE qw(in with);
+use Win32::OLE::Const 'Microsoft Excel';
+use Exporter (); # Needed to make constants available to caller.
+use excel_support; # opening/closing workbook, etc.. functions.
+
+##########################################
+# Defining all the "global" variables, that we are using.
+##########################################
+use vars qw(
+ @ISA
+ @EXPORT
+ );
+
+@ISA = qw(Exporter); # Inherit from Exporter module (import method needed).
+# Define all the functions defined by this module
+use subs qw(
+ hasValue
+ addHash
+ readCol
+ readCentrepKeyInfo
+ checkCentrepKeyInfo
+ checkCentrepKeySheetName
+ );
+
+##########################################
+# Define the exports from this module that can be used
+# Outside
+##########################################
+@EXPORT = qw(
+ &addHash
+ &readCol
+ &readCentrepKeyInfo
+ &checkCentrepKeyInfo
+ &checkCentrepKeySheetName
+ );
+
+
+my $globalMaxColCount = 43;
+my $globalMaxEmptyRowCount = 10;
+
+#######################################
+# Checks that the cell exists and has some value
+#
+# Params: refToWorkSheet,row,column
+#
+# Return: 1 if the cell had some value
+# 0 if the cell did not have a value
+#######################################
+sub hasValue
+{
+ my $refToWorksheet = shift;
+ my $row = shift;
+ my $col = shift;
+
+ if($col < 1)
+ {
+ return 0;
+ }
+ if(defined($$refToWorksheet->Cells( $row, $col )->{ 'Value' }))
+ {
+ return 1;
+ }
+ if(!(defined($$refToWorksheet->Cells( $row, $col )) ||$$refToWorksheet->Cells( $row, $col )->{ 'Value' }))
+ {
+ print "$row $col\n";
+ print $$refToWorksheet->Name,"\n";
+ }
+ if($$refToWorksheet->Cells( $row, $col )->{ 'Value' } !~ /^\s*$/)
+ {
+ return 1;
+ }
+
+ return 0;
+}
+
+#######################################
+# Reads a cell value from given worksheet and given place.
+# If the value is empty then initializes teh return value to the
+# given default value
+#
+# Params: refToWorkSheet,row,column,defValue
+#
+# Return: the read value
+#######################################
+sub readCol
+{
+ my $refToWorksheet = shift;
+ my $row = shift;
+ my $col = shift;
+ my $defValue = shift;
+
+ my $retVal = undef;
+ if($col > 0)
+ {
+ $retVal = $$refToWorksheet->Cells( $row, $col )->{ 'Value' };
+ }
+ if(!defined($retVal) || $retVal =~ /^\s*$/)
+ {
+ $retVal = $defValue;
+ }
+
+ return $retVal;
+}
+#######################################
+# If there is no given key defined in the given hash, then
+# adds a key to point to a new hash
+#
+# Params: newKey,refToHash,refToHash
+#
+# Return: ref to added hash, or existing hash
+#######################################
+sub addHash
+{
+ my $key = shift;
+ my $refToHash = shift;
+
+ if(! defined( $$refToHash{$key}))
+ {
+ my %newHash;
+ $$refToHash{$key} = \%newHash;
+ }
+
+ return $$refToHash{$key};
+}
+
+###########################################################################
+#
+###########################################################################
+sub addCapability
+{
+ my $refToRList = shift;
+ my $refToWList = shift;
+ my $capaColumnValue = shift;
+ my $capaName = shift;
+
+ if($capaColumnValue =~ /R/i)
+ {
+ push(@$refToRList,$capaName);
+ }
+ if($capaColumnValue =~ /W/i)
+ {
+ push(@$refToWList,$capaName);
+ }
+}
+
+###########################################################################
+#
+###########################################################################
+sub readIndexes
+{
+ my $refToWorksheet = shift;
+
+ my @retList;
+
+ push(@retList,getIndexByColName($refToWorksheet,"Uid Name",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Uid Value",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Range From",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Range To",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Key Name",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Key Int",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Shared Data Name",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Removed",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Platform Release",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Variant Name",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Def Value",$globalMaxColCount));
+ my $index = getIndexByColName($refToWorksheet,"Read Only",$globalMaxColCount);
+ if($index < 0)
+ {
+ $index = getIndexByColName($refToWorksheet,"Read Only",$globalMaxColCount);
+ }
+ push(@retList,$index);
+ push(@retList,getIndexByColName($refToWorksheet,"Key Type",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Backup",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"RFS",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Cust Config",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"None",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"All",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"All - TCB",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"NetworkServices",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"LocalServices",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"ReadUserData",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"WriteUserData",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Location",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"ReadDeviceData",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"WriteDeviceData",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"ProtServ",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"DRM",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"SwEvent",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"PowerMgmt",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"AllFiles",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"DiskAdmin",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"NetworkControl",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"MultiMediaDD",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"CommDD",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"TCB",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"TrustedUI",$globalMaxColCount));
+
+ push(@retList,getIndexByColName($refToWorksheet,"AlwaysPass",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"UserEnvironment",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"SurroundingsDD",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"SID Read",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"SID Write",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Range From",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Range To",$globalMaxColCount));
+ push(@retList,getIndexByColName($refToWorksheet,"Owner",$globalMaxColCount));
+
+
+ return @retList;
+}
+
+###########################################################################
+# Function that reads all columns from the central repository sheet to the
+# given hash.
+# The format of the returned hash is:
+# {
+# <uid> =>
+# {
+# "name" => <uidName>
+# "uid_specific"
+# = > {
+# <variant>
+# => {
+# <release>
+# => {
+# "R" => (<capa1ForReading>,<capa2ForReading>)
+# "W" => (<capa1ForWriting>,<capa2ForWriting>)
+# "RSid" => (<sidForReading>)
+# "WSid" => (<sidForWriting>)
+# "owner" => <ownerSid>
+# "rfs" => <0/1>
+# "backup" => <0/1>
+# }
+# }
+# }
+# "ranges"
+# => {
+# <rangeFrom>
+# => {
+# "common" => ( # == defined in range row
+# "removed" => <release> [optional, only if specified]
+# }
+# "to" => {
+# <rangeTo>
+# => {
+# <variant>
+# => {
+# <release>
+# => {
+# "R" => (<capa1ForReading>,<capa2ForReading>)
+# "W" => (<capa1ForWriting>,<capa2ForWriting>)
+# "RSid" => (<sidForReading>)
+# "WSid" => (<sidForWriting>)
+# "rfs" => <0/1>
+# "backup" => <0/1>
+# }
+# }
+# }
+# }
+# }
+# }
+# } # ranges end
+# "keys" => {
+# <keyInt>
+# => {
+# "common" => ( # == defined in key row
+# "name" => <keyName>
+# "sheetName" => <eexcelSheetName, from which this key was read>
+# "sd-name" => <sharedDataName> [optional, only if specified]
+# "read-only" => <0/1>
+# "key type" => <bin/int/str/bool>
+# "removed" => <release> [optional, only if specified]
+# "owner" => <ownerName>
+# "entity" => <ownerEntity>
+# }
+# "release"
+# => {
+# <variant> # "default" is special case
+# => {
+# <release>
+# => {
+# "R" => (<capa1ForReading>,<capa2ForReading>)
+# "W" => (<capa1ForWriting>,<capa2ForWriting>)
+# "RSid" => (<sidForReading>)
+# "WSid" => (<sidForWriting>)
+# "value" => <value>
+# "rfs" => <0/1>
+# "backup" => <0/1>
+# }
+# }
+# }
+# }
+# } # keys
+#
+#
+#
+#
+# Params: referenceToWorksheet,refToHash
+#
+# Return: 0 on successfull reading
+# 1 on case, where the worksheet was not OK (for isntance name is
+# not according to specification.
+###########################################################################
+sub readCentrepKeyInfo
+{
+ my $refToWorksheet = shift;
+ my $refToHash = shift;
+ my $owner = shift;
+ my $entity = shift;
+ my $sheetName = shift;
+
+ # ----------------------------------------------------------------
+ # look to header information
+ # ----------------------------------------------------------------
+ # Uid value
+ # Key name value
+ # Key value
+ #
+ #
+ #
+ #
+ #
+
+ my ($uidNameIndex,$uidValueIndex,$rangeFromIndex,$rangeToIndex,$keyNameValueIndex,$keyIntValueIndex,$sdNameIndex,$removedIndex,$releaseIndex,$variantNameIndex,$valueIndex,$readOnlyIndex,
+ $keyTypeIndex,$backupIndex,$rfsIndex,$custConfigIndex,$capaNoneIndex,$capaAllIndex,$capaAllMinusTcbIndex,$capaNetworkServicesIndex,
+ $capaLocalServicesIndex,$capaReadUserDataIndex,$capaWriteUserDataIndex,$capaLocationIndex,$capaReadDeviceDataIndex,
+ $capaWriteDeviceDataIndex,$capaProtServIndex,$capaDrmIndex,$capaSwEventIndex,$capaPowerMgmtIndex,$capaAllFilesIndex,
+ $capaDiskAdminIndex,$capaNetworkControlIndex,$capaMultiMediaDDIndex,$capaCommDDIndex,
+ $capaTCBIndex,$capaTrustedUIIndex,$capaAlwaysPassIndex,$capaUserEnvIndex,$capaSurroundingsDDIndex,
+ $capaSidReadIndex,$capaSidWriteIndex,$rangeFromIndex,$rangeToIndex,$ownerIndex) = readIndexes($refToWorksheet);
+
+ if( $uidValueIndex < 0)
+ {
+ return;
+ }
+
+ my $row = 1;
+ my $emptyRowCount = 0;
+
+ ######################################################################
+ # Loop row by row until we have found $globalMaxEmptyRowCount of rows
+ # empty one after each other.
+ ######################################################################
+ my $currUid = "";
+ my $currUidKeysHash;
+ my $currUidRangesHash;
+ my $currUidSpecificHash;
+ my $currRangeHash = undef;
+ my $currKey = "";
+ my $currKeyReleaseHash; # the ref to has that is found from "release"
+ my $lastActiveRowType = 0; # 0 = not defined, 1 = uid, 2 = range, 3 = key
+
+ for( $row = 2;; $row++ )
+ {
+ #------------------------------------------------------------
+ # We only allow $globalMaxEmptyRowCount empty rows, before we stop
+ # handling the specific sheet
+ #------------------------------------------------------------
+ if(! ( hasValue($refToWorksheet,$row, $uidValueIndex )
+ || hasValue($refToWorksheet,$row, $keyIntValueIndex )
+ || hasValue($refToWorksheet,$row, $valueIndex )
+ || hasValue($refToWorksheet,$row, $releaseIndex )
+ || hasValue($refToWorksheet,$row, $rangeFromIndex )
+ || hasValue($refToWorksheet,$row, $rangeToIndex )
+ ))
+ {
+ $emptyRowCount++;
+ if($emptyRowCount > $globalMaxEmptyRowCount)
+ {
+ last;
+ }
+ next;
+ }
+ else
+ {
+ # Was not empty line, reset counter.
+ $emptyRowCount = 0;
+ }
+
+ #------------------------------------------------------------
+ # Read the needed rows from the row
+ #------------------------------------------------------------
+ my $uidName = readCol($refToWorksheet,$row,$uidNameIndex,"");
+ my $uid = readCol($refToWorksheet,$row,$uidValueIndex,"");
+ my $keyName = readCol($refToWorksheet,$row,$keyNameValueIndex,"");
+ my $key = readCol($refToWorksheet,$row,$keyIntValueIndex,"");
+ my $sdName = readCol($refToWorksheet,$row,$sdNameIndex,"");
+ my $removed = readCol($refToWorksheet,$row,$removedIndex,"");
+ my $release = readCol($refToWorksheet,$row,$releaseIndex,"");
+ my $variant = readCol($refToWorksheet,$row,$variantNameIndex,"");
+ my $value = readCol($refToWorksheet,$row,$valueIndex,"");
+ my $ro = readCol($refToWorksheet,$row,$readOnlyIndex,"");
+ my $keyType = readCol($refToWorksheet,$row,$keyTypeIndex,"");
+ my $backup = readCol($refToWorksheet,$row,$backupIndex,"");
+ my $rfs = readCol($refToWorksheet,$row,$rfsIndex,"");
+ my $custConfig = readCol($refToWorksheet,$row,$custConfigIndex,"");
+ my $capaNone = readCol($refToWorksheet,$row,$capaNoneIndex,"");
+ my $capaAll = readCol($refToWorksheet,$row,$capaAllIndex,"");
+ my $capaAllMinusTcb = readCol($refToWorksheet,$row,$capaAllMinusTcbIndex,"");
+ my $capaNetworkServices = readCol($refToWorksheet,$row,$capaNetworkServicesIndex,"");
+ my $capaLocalServices = readCol($refToWorksheet,$row,$capaLocalServicesIndex,"");
+ my $capaReadUserData = readCol($refToWorksheet,$row,$capaReadUserDataIndex,"");
+ my $capaWriteUserData = readCol($refToWorksheet,$row,$capaWriteUserDataIndex,"");
+ my $capaLocation = readCol($refToWorksheet,$row,$capaLocationIndex,"");
+ my $capaReadDeviceData = readCol($refToWorksheet,$row,$capaReadDeviceDataIndex,"");
+ my $capaWriteDeviceData = readCol($refToWorksheet,$row,$capaWriteDeviceDataIndex,"");
+ my $capaProtServ = readCol($refToWorksheet,$row,$capaProtServIndex,"");
+ my $capaDrm = readCol($refToWorksheet,$row,$capaDrmIndex,"");
+ my $capaSwEvent = readCol($refToWorksheet,$row,$capaSwEventIndex,"");
+ my $capaPowerMgmt = readCol($refToWorksheet,$row,$capaPowerMgmtIndex,"");
+ my $capaAllFiles = readCol($refToWorksheet,$row,$capaAllFilesIndex,"");
+ my $capaDiskAdmin = readCol($refToWorksheet,$row,$capaDiskAdminIndex,"");
+ my $capaNetworkControl = readCol($refToWorksheet,$row,$capaNetworkControlIndex,"");
+ my $capaMultiMediaDD = readCol($refToWorksheet,$row,$capaMultiMediaDDIndex,"");
+ my $capaCommDD = readCol($refToWorksheet,$row,$capaCommDDIndex,"");
+ my $capaTCB = readCol($refToWorksheet,$row,$capaTCBIndex,"");
+ my $capaTrustedUI = readCol($refToWorksheet,$row,$capaTrustedUIIndex,"");
+
+ my $capaAlwaysPass = readCol($refToWorksheet,$row,$capaAlwaysPassIndex,"");
+ my $capaUserEnv = readCol($refToWorksheet,$row,$capaUserEnvIndex,"");
+ my $capaSurroundingsDD = readCol($refToWorksheet,$row,$capaSurroundingsDDIndex,"");
+ my $capaSidRead = readCol($refToWorksheet,$row,$capaSidReadIndex,"");
+ my $capaSidWrite = readCol($refToWorksheet,$row,$capaSidWriteIndex,"");
+ my $rangeFrom = readCol($refToWorksheet,$row,$rangeFromIndex,"");
+ my $rangeTo = readCol($refToWorksheet,$row,$rangeToIndex,"");
+ my $uidOwner = readCol($refToWorksheet,$row,$ownerIndex,"");
+
+ if($uidName =~ /^\s*Comment:/i)
+ {
+ # comment rows are ignored
+ next;
+ }
+
+ #------------------------------------------------------------
+ # Handle UID row
+ #------------------------------------------------------------
+ if($uid !~ /^\s*$/)
+ {
+ $currUid = $uid;
+ $currKey = "";
+ $lastActiveRowType = 1;
+ my $tmpRefToHash = addHash($uid,$refToHash);
+ $currUidKeysHash = addHash("keys",$tmpRefToHash);
+ $$tmpRefToHash{"name"} = $uidName;
+ $currUidRangesHash = addHash("ranges",$tmpRefToHash);
+ $currUidSpecificHash = addHash("uid_specific",$tmpRefToHash);
+ }
+ #------------------------------------------------------------
+ # Handle range row
+ #------------------------------------------------------------
+ elsif($rangeFrom !~ /^\s*$/ || $rangeTo !~ /^\s*$/)
+ {
+ $currRangeHash = addHash($rangeFrom,$currUidRangesHash);
+ my $commonHash = addHash("common",$currRangeHash);
+ $currRangeHash = addHash("to",$currRangeHash);
+ $currRangeHash = addHash($rangeTo,$currRangeHash);
+
+ $$commonHash{"removed"} = $removed;
+ $lastActiveRowType = 2;
+ }
+ #------------------------------------------------------------
+ # Handle key row
+ #------------------------------------------------------------
+ elsif($key !~ /^\s*$/)
+ {
+ $currKey = $key;
+ $lastActiveRowType = 3;
+ my $keyHash = addHash($key,$currUidKeysHash);
+ ######################################################
+ # "common" => (
+ # "name" => <someName>
+ # "sheetName" => <someNameWithoutPath>
+ # "sd-name" => <someName> [optional]
+ # "read-only" => <0/1>
+ # "key type" => <bin/int/str/bool>
+ # "removed" => <release>
+ # "owner" => <ownerName>
+ # "entity" => <entity>
+ # }
+ ######################################################
+ my $commonHash = addHash("common",$keyHash);
+
+ $$commonHash{"owner"} = $owner;
+ $$commonHash{"entity"} = $entity;
+ $$commonHash{"name"} = $keyName;
+ $$commonHash{"sheetName"} = $sheetName;
+
+ # read-only attribute is set always from the "key row".
+ # It can't be overwritten
+ $$commonHash{"read-only"} = 0;
+ if($ro =~ /^\s*yes\s*$/i)
+ {
+ $$commonHash{"read-only"} = 1;
+ }
+ # key type attribute is set always from the "key row". It can't be overwritten
+ $$commonHash{"key type"} = $keyType;
+
+ # removed [ optional, we only defined, if specified]
+ if($removed !~ /^\s*$/)
+ {
+ $$commonHash{"removed"} = $removed;
+ }
+
+ # shared data name [ optional, we only defined, if specified]
+ if($sdName !~ /^\s*$/)
+ {
+ $$commonHash{"sd-name"} = $sdName;
+ }
+
+ ######################################################
+ # "release" => {
+ # ....
+ # }
+ # information to this has in filled later on.
+ ######################################################
+ $currKeyReleaseHash = addHash("release",$keyHash);
+ }
+ #------------------------------------------------------------
+ # Handle variant row
+ #------------------------------------------------------------
+ elsif($release !~ /^\s*$/)
+ {
+ # harmonize the release syntax
+ if($variant =~ /^\s*$/)
+ {
+ $variant = "default";
+ }
+ my $relHashRef;
+ if($lastActiveRowType == 3)
+ {
+ $relHashRef = addHash($variant,$currKeyReleaseHash);
+ }
+ elsif($lastActiveRowType == 2)
+ {
+ $relHashRef = addHash($variant,$currRangeHash);
+ }
+ elsif($lastActiveRowType == 1)
+ {
+ $relHashRef = addHash($variant,$currUidSpecificHash);
+ }
+ ######################################################
+ # <release>
+ # => {
+ # "R" => (<capa1ForReading>,<capa2ForReading>)
+ # "W" => (<capa1ForWriting>,<capa2ForWriting>)
+ # "RSid" => (<sidForReading>)
+ # "WSid" => (<sidForWriting>)
+ # "value" => <value> # only if this is for keys
+ # "owner" => <uid> # only if this is for uid
+ # "rfs" => <0/1>
+ # "backup" => <0/1>
+ # }
+ ######################################################
+ $release =~ /s([0-9]+)\s+([0-9]+\.[0-9]+)/i;
+ my $usedRel = "S$1 $2";
+ my $refToVarHash = addHash($usedRel,$relHashRef);
+ # Value and owner are specific only to some variant row types.
+ if($lastActiveRowType == 3) # This variant row is for a key
+ {
+ $$refToVarHash{"value"} = $value;
+ }
+ elsif($lastActiveRowType == 1) # This variant row is for the uid
+ {
+ $$refToVarHash{"owner"} = $uidOwner;
+ }
+ $$refToVarHash{"rfs"} = 0;
+ if($rfs =~ /^\s*yes\s*$/i)
+ {
+ $$refToVarHash{"rfs"} = 1;
+ }
+ $$refToVarHash{"backup"} = 0;
+ if($backup =~ /^\s*yes\s*$/i)
+ {
+ $$refToVarHash{"backup"} = 1;
+ }
+ if(!defined($$refToVarHash{"W"}))
+ {
+ my @list;
+ $$refToVarHash{"W"} = \@list;
+ }
+ if(!defined($$refToVarHash{"R"}))
+ {
+ my @list;
+ $$refToVarHash{"R"} = \@list;
+ }
+
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaNone,"AlwaysPass");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaAlwaysPass,"AlwaysPass");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaNetworkServices,"NetworkServices");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaLocalServices,"Local Services");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaReadUserData,"ReadUserData");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaWriteUserData,"WriteUserData");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaLocation,"Location");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaReadDeviceData,"ReadDeviceData");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaWriteDeviceData,"WriteDeviceData");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaProtServ,"ProtServ");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaDrm,"DRM");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaSwEvent,"SwEvent");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaPowerMgmt,"PowerMgmt");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaAllFiles,"AllFiles");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaDiskAdmin,"DiskAdmin");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaNetworkControl,"NetworkControl");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaMultiMediaDD,"MultiMediaDD");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaCommDD,"CommDD");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaTCB,"TCB");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaTrustedUI,"TrustedUI");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaUserEnv,"UserEnvironment");
+ addCapability($$refToVarHash{"R"},$$refToVarHash{"W"},$capaSurroundingsDD,"SurroundingsDD");
+
+ my @list1;
+ $$refToVarHash{"RSid"} = \@list1;
+ if($capaSidRead !~ /^\s*$/)
+ {
+ push(@list1,$capaSidRead);
+ }
+ my @list2;
+ $$refToVarHash{"WSid"} = \@list2;
+ if($capaSidWrite !~ /^\s*$/)
+ {
+ push(@list2,$capaSidWrite);
+ }
+ }
+ }
+
+ return $refToHash;
+}
+
+
+###########################################################################
+#
+###########################################################################
+sub checkRelease
+{
+ my $row = shift;
+ my $value = shift;
+ my $columnName = shift;
+
+ if($value !~ /^\s*S60\s+[1-9]+\.[0-9]+\s*$/ && $value !~ /^\s*$/)
+ {
+ print "Row $row: $columnName -column has wrong release syntax. (should be for instance \"S60 3.0\"\n";
+ return 1;
+ }
+ return 0;
+}
+
+###########################################################################
+#
+###########################################################################
+sub checkCapability
+{
+ my $row = shift;
+ my $value = shift;
+ my $columnName = shift;
+
+ if($value !~ /^\s*$/ &&
+ $value !~ /^R$/ &&
+ $value !~ /^W$/ &&
+ $value !~ /^RW$/
+ )
+ {
+ print "Row $row: The $columnName -column has invalid value \"$value\".\n";
+ return 1;
+ }
+ return 0;
+}
+
+###########################################################################
+# Makes syntax checks to the given worksheet
+#
+#
+# Params: referenceToWorksheet
+#
+###########################################################################
+sub checkCentrepKeyInfo
+{
+ my $refToWorksheet = shift;
+ my $ignoreWarnings = shift;
+
+ # ----------------------------------------------------------------
+ # look to header information
+ # ----------------------------------------------------------------
+ my ($uidNameIndex,$uidValueIndex,$rangeFromIndex,$rangeToIndex,
+ $keyNameValueIndex,$keyIntValueIndex,$sdNameIndex,$removedIndex,$releaseIndex,$variantNameIndex,
+ $valueIndex,$readOnlyIndex,
+ $keyTypeIndex,$backupIndex,$rfsIndex,$custConfigIndex,$capaNoneIndex,$capaAllIndex,$capaAllMinusTcbIndex,$capaNetworkServicesIndex,
+ $capaLocalServicesIndex,$capaReadUserDataIndex,$capaWriteUserDataIndex,$capaLocationIndex,$capaReadDeviceDataIndex,
+ $capaWriteDeviceDataIndex,$capaProtServIndex,$capaDrmIndex,$capaSwEventIndex,$capaPowerMgmtIndex,$capaAllFilesIndex,
+ $capaDiskAdminIndex,$capaNetworkControlIndex,$capaMultiMediaDDIndex,$capaCommDDIndex,
+ $capaTCBIndex,$capaTrustedUIIndex,$capaAlwaysPassIndex,$capaUserEnvIndex,$capaSurroundingsDDIndex,
+ $capaSidReadIndex,$capaSidWriteIndex,$rangeFromIndex,$rangeToIndex,$ownerIndex) = readIndexes($refToWorksheet);
+ if( $uidValueIndex < 0)
+ {
+ return;
+ }
+
+ my $row = 1;
+ my $emptyRowCount = 0;
+
+ ######################################################################
+ # Loop row by row until we have found $globalMaxEmptyRowCount of rows
+ # empty one after each other.
+ ######################################################################
+ my $currUid = "";
+ my $currRange = "";
+ my $lastActiveRowType = 0; # 0 = not defined, 1 = uid, 2 = range, 3 = key
+ my $variantRowCount = 0;
+ my $errorCount = 0;
+ my $currentKeyType = "";
+ my $currentKeyReadOnly = "";
+ for( $row = 2;; $row++ )
+ {
+ #------------------------------------------------------------
+ # We only allow $globalMaxEmptyRowCount empty rows, before we stop
+ # handling the specific sheet
+ #------------------------------------------------------------
+ if(! ( hasValue($refToWorksheet,$row, $uidValueIndex )
+ || hasValue($refToWorksheet,$row, $uidNameIndex )
+ || hasValue($refToWorksheet,$row, $keyNameValueIndex )
+ || hasValue($refToWorksheet,$row, $keyIntValueIndex )
+ || hasValue($refToWorksheet,$row, $releaseIndex )
+ || hasValue($refToWorksheet,$row, $rangeFromIndex )
+ || hasValue($refToWorksheet,$row, $rangeToIndex )
+ ))
+ {
+ $emptyRowCount++;
+ if($emptyRowCount > $globalMaxEmptyRowCount)
+ {
+ if($variantRowCount == 0)
+ {
+ if($lastActiveRowType == 1)
+ {
+ print "Row $row: There were no variants defined for previous UID.\n";
+ print " This means among other things that default access is alwaysFail.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 2)
+ {
+ print "Row $row: There were no variants defined for previous range => range will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 3)
+ {
+ print "Row $row: There were no variants defined for previous key => key will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ }
+ last;
+ }
+ next;
+ }
+ else
+ {
+ # Was not empty line, reset counter.
+ $emptyRowCount = 0;
+ }
+
+ #------------------------------------------------------------
+ # Read the needed rows from the row
+ #------------------------------------------------------------
+ my $uidName = readCol($refToWorksheet,$row,$uidNameIndex,"");
+ my $uid = readCol($refToWorksheet,$row,$uidValueIndex,"");
+ my $rangeFrom = readCol($refToWorksheet,$row,$rangeFromIndex,"");
+ my $rangeTo = readCol($refToWorksheet,$row,$rangeToIndex,"");
+ my $keyName = readCol($refToWorksheet,$row,$keyNameValueIndex,"");
+ my $key = readCol($refToWorksheet,$row,$keyIntValueIndex,"");
+ my $removed = readCol($refToWorksheet,$row,$removedIndex,"");
+ my $release = readCol($refToWorksheet,$row,$releaseIndex,"");
+ my $variant = readCol($refToWorksheet,$row,$variantNameIndex,"");
+ my $value = readCol($refToWorksheet,$row,$valueIndex,"");
+ my $ro = readCol($refToWorksheet,$row,$readOnlyIndex,"");
+ my $keyType = readCol($refToWorksheet,$row,$keyTypeIndex,"");
+ my $backup = readCol($refToWorksheet,$row,$backupIndex,"");
+ my $rfs = readCol($refToWorksheet,$row,$rfsIndex,"");
+ my $custConfig = readCol($refToWorksheet,$row,$custConfigIndex,"");
+ my $capaNone = readCol($refToWorksheet,$row,$capaNoneIndex,"");
+ my $capaAll = readCol($refToWorksheet,$row,$capaAllIndex,"");
+ my $capaAllMinusTcb = readCol($refToWorksheet,$row,$capaAllMinusTcbIndex,"");
+ my $capaNetworkServices = readCol($refToWorksheet,$row,$capaNetworkServicesIndex,"");
+ my $capaLocalServices = readCol($refToWorksheet,$row,$capaLocalServicesIndex,"");
+ my $capaReadUserData = readCol($refToWorksheet,$row,$capaReadUserDataIndex,"");
+ my $capaWriteUserData = readCol($refToWorksheet,$row,$capaWriteUserDataIndex,"");
+ my $capaLocation = readCol($refToWorksheet,$row,$capaLocationIndex,"");
+ my $capaReadDeviceData = readCol($refToWorksheet,$row,$capaReadDeviceDataIndex,"");
+ my $capaWriteDeviceData = readCol($refToWorksheet,$row,$capaWriteDeviceDataIndex,"");
+ my $capaProtServ = readCol($refToWorksheet,$row,$capaProtServIndex,"");
+ my $capaDrm = readCol($refToWorksheet,$row,$capaDrmIndex,"");
+ my $capaSwEvent = readCol($refToWorksheet,$row,$capaSwEventIndex,"");
+ my $capaPowerMgmt = readCol($refToWorksheet,$row,$capaPowerMgmtIndex,"");
+ my $capaAllFiles = readCol($refToWorksheet,$row,$capaAllFilesIndex,"");
+ my $capaDiskAdmin = readCol($refToWorksheet,$row,$capaDiskAdminIndex,"");
+ my $capaNetworkControl = readCol($refToWorksheet,$row,$capaNetworkControlIndex,"");
+ my $capaMultiMediaDD = readCol($refToWorksheet,$row,$capaMultiMediaDDIndex,"");
+ my $capaCommDD = readCol($refToWorksheet,$row,$capaCommDDIndex,"");
+ my $capaTCB = readCol($refToWorksheet,$row,$capaTCBIndex,"");
+ my $capaTrustedUI = readCol($refToWorksheet,$row,$capaTrustedUIIndex,"");
+
+ my $capaAlwaysPass = readCol($refToWorksheet,$row,$capaAlwaysPassIndex,"");
+ my $capaUserEnv = readCol($refToWorksheet,$row,$capaUserEnvIndex,"");
+ my $capaSurroundingsDD = readCol($refToWorksheet,$row,$capaSurroundingsDDIndex,"");
+ my $capaSidRead = readCol($refToWorksheet,$row,$capaSidReadIndex,"");
+ my $capaSidWrite = readCol($refToWorksheet,$row,$capaSidWriteIndex,"");
+ my $rangeFrom = readCol($refToWorksheet,$row,$rangeFromIndex,"");
+ my $rangeTo = readCol($refToWorksheet,$row,$rangeToIndex,"");
+ my $uidOwner = readCol($refToWorksheet,$row,$ownerIndex,"");
+
+ if($uidName =~ /^\s*Comment:/)
+ {
+ # comment rows are ignored
+ print "Warning: Row $row ignored, since it is a comment row\n" if not $ignoreWarnings;
+ next;
+ }
+
+ #------------------------------------------------------------
+ # Common checks
+ #------------------------------------------------------------
+ if($uidName !~ /^\s*$/ && $uid =~ /^\s*$/)
+ {
+ # both uid and uidname have to be defined in the same row
+ print "Row $row: Uid Name-column has value, but not the Uid Value-column\n";
+ $errorCount++;
+ }
+ if($keyName !~ /^\s*$/ && $key =~ /^\s*$/)
+ {
+ # both key int and keyname have to be defined in the same row
+ print "Row $row: Key Name-column has value, but not the Key Int-column\n";
+ $errorCount++;
+ }
+ if($rangeTo !~ /^\s*$/ && $rangeFrom =~ /^\s*$/)
+ {
+ # if range to is defined, then also range from has to be defined.
+ print "Row $row: Range To-column has value, but not the Range From-column\n";
+ $errorCount++;
+ }
+ if($rangeTo =~ /^\s*$/ && $rangeFrom !~ /^\s*$/)
+ {
+ # if range from is defined, then also range to has to be defined.
+ print "Row $row: Range From-column has value, but not the Range To-column\n";
+ $errorCount++;
+ }
+ #------------------------------------------------------------
+ # Handle UID row
+ #------------------------------------------------------------
+ if($uid !~ /^\s*$/)
+ {
+ $currUid = $uid;
+ # Make sure that last uid/key/range had some variant rows
+ if($variantRowCount == 0)
+ {
+ if($lastActiveRowType == 1)
+ {
+ print "Row $row: There were no variants defined for previous UID.\n";
+ print " This means among other things that default access is alwaysFail.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 2)
+ {
+ print "Row $row: There were no variants defined for previous range => range will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 3)
+ {
+ print "Row $row: There were no variants defined for previous key => key will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ }
+ $lastActiveRowType = 1;
+ $variantRowCount = 0;
+ #######################################
+ # Check: In the uid row the only allowed
+ # columns are "uid name", "uid value", "purpose"
+ #######################################
+ if($rangeFrom !~ /^\s*$/)
+ {
+ print "Row $row: Range From-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($rangeTo !~ /^\s*$/)
+ {
+ print "Row $row: Range To-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($uidOwner !~ /^\s*$/)
+ {
+ print "Row $row: Owner-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($key !~ /^\s*$/)
+ {
+ print "Row $row: Key Int-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($value !~ /^\s*$/)
+ {
+ print "Row $row: Def value-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($rfs !~ /^\s*$/)
+ {
+ print "Row $row: RFS-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($ro !~ /^\s*$/)
+ {
+ print "Row $row: Read Only-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($keyType !~ /^\s*$/)
+ {
+ print "Row $row: Key Type-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($backup !~ /^\s*$/)
+ {
+ print "Row $row: Backup-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($custConfig !~ /^\s*$/)
+ {
+ print "Row $row: Cust Config-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: Check that uid is in hex format
+ #######################################
+ if($uid != /^\s*0x/)
+ {
+ print "Row $row: The Uid value has to be a hex value (starting with 0x)\n";
+ $errorCount++;
+ }
+ elsif(length($uid) != 10)
+ {
+ print "Row $row: The Uid length is not correct. Are you sure that the Uid is correct ?\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: Check that no capas defined
+ #######################################
+ if( $capaNone !~ /^\s*$/ ||
+ $capaAll !~ /^\s*$/ ||
+ $capaAllMinusTcb !~ /^\s*$/ ||
+ $capaNetworkServices !~ /^\s*$/ ||
+ $capaLocalServices !~ /^\s*$/ ||
+ $capaReadUserData !~ /^\s*$/ ||
+ $capaWriteUserData !~ /^\s*$/ ||
+ $capaLocation !~ /^\s*$/ ||
+ $capaReadDeviceData !~ /^\s*$/ ||
+ $capaWriteDeviceData !~ /^\s*$/ ||
+ $capaProtServ !~ /^\s*$/ ||
+ $capaDrm !~ /^\s*$/ ||
+ $capaSwEvent !~ /^\s*$/ ||
+ $capaPowerMgmt !~ /^\s*$/ ||
+ $capaAllFiles !~ /^\s*$/ ||
+ $capaDiskAdmin !~ /^\s*$/ ||
+ $capaNetworkControl !~ /^\s*$/ ||
+ $capaMultiMediaDD !~ /^\s*$/ ||
+ $capaCommDD !~ /^\s*$/ ||
+ $capaTCB !~ /^\s*$/ ||
+ $capaTrustedUI !~ /^\s*$/ ||
+ $capaAlwaysPass !~ /^\s*$/ ||
+ $capaUserEnv !~ /^\s*$/ ||
+ $capaSurroundingsDD !~ /^\s*$/ ||
+ $capaSidRead !~ /^\s*$/ ||
+ $capaSidWrite !~ /^\s*$/
+ )
+ {
+ print "Row $row: Capabilities are not allowed to be defined in UID row.\n";
+ $errorCount++;
+ }
+ }
+ #------------------------------------------------------------
+ # Handle range row
+ #------------------------------------------------------------
+ elsif($rangeFrom !~ /^\s*$/)
+ {
+ # Make sure that last uid/key/range had some variant rows
+ if($variantRowCount == 0)
+ {
+ if($lastActiveRowType == 1)
+ {
+ print "Row $row: There were no variants defined for previous UID.\n";
+ print " This means among other things that default access is alwaysFail.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 2)
+ {
+ print "Row $row: There were no variants defined for previous range => range will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 3)
+ {
+ print "Row $row: There were no variants defined for previous key => key will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ }
+ $variantRowCount = 0;
+ $lastActiveRowType = 2;
+
+ if($rangeTo =~ /^\s*$/)
+ {
+ print "Row $row: You have to specify both Range To and Range From in the range row.\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: There has to be uid defined before any ranges
+ #######################################
+ if($currUid =~ /^\s*$/)
+ {
+ print "Row $row: Before any ranges are defined, an UID has to be defined\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: In the range row the only allowed
+ # columns are "range from", "range to", "purpose", "removed"
+ #######################################
+ if($uid !~ /^\s*$/)
+ {
+ print "Row $row: Uid-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($uidName !~ /^\s*$/)
+ {
+ print "Row $row: Uid Name-column is not allowed for uid row\n";
+ $errorCount++;
+ }
+ if($uidOwner !~ /^\s*$/)
+ {
+ print "Row $row: Owner-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($key !~ /^\s*$/)
+ {
+ print "Row $row: Key Int-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($value !~ /^\s*$/)
+ {
+ print "Row $row: Def value-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($rfs !~ /^\s*$/)
+ {
+ print "Row $row: RFS-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($ro !~ /^\s*$/)
+ {
+ print "Row $row: Read Only-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($keyType !~ /^\s*$/)
+ {
+ print "Row $row: Key Type-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($backup !~ /^\s*$/)
+ {
+ print "Row $row: Backup-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ if($custConfig !~ /^\s*$/)
+ {
+ print "Row $row: Cust Config-column is not allowed for range row\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: Check that range from and range to are in hex format
+ #######################################
+ if($rangeFrom != /^\s*0x/)
+ {
+ print "Row $row: The range from value has to be a hex value (starting with 0x)\n";
+ $errorCount++;
+ }
+ elsif(length($rangeFrom) != 10)
+ {
+ print "Row $row: The range from-length is not correct. Are you sure that the range is correct ?\n";
+ $errorCount++;
+ }
+ if($rangeTo != /^\s*0x/)
+ {
+ print "Row $row: The range to- value has to be a hex value (starting with 0x)\n";
+ $errorCount++;
+ }
+ elsif(length($rangeTo) != 10)
+ {
+ print "Row $row: The range to-length is not correct. Are you sure that the range is correct ?\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: Check that no capas defined
+ #######################################
+ if( $capaNone !~ /^\s*$/ ||
+ $capaAll !~ /^\s*$/ ||
+ $capaAllMinusTcb !~ /^\s*$/ ||
+ $capaNetworkServices !~ /^\s*$/ ||
+ $capaLocalServices !~ /^\s*$/ ||
+ $capaReadUserData !~ /^\s*$/ ||
+ $capaWriteUserData !~ /^\s*$/ ||
+ $capaLocation !~ /^\s*$/ ||
+ $capaReadDeviceData !~ /^\s*$/ ||
+ $capaWriteDeviceData !~ /^\s*$/ ||
+ $capaProtServ !~ /^\s*$/ ||
+ $capaDrm !~ /^\s*$/ ||
+ $capaSwEvent !~ /^\s*$/ ||
+ $capaPowerMgmt !~ /^\s*$/ ||
+ $capaAllFiles !~ /^\s*$/ ||
+ $capaDiskAdmin !~ /^\s*$/ ||
+ $capaNetworkControl !~ /^\s*$/ ||
+ $capaMultiMediaDD !~ /^\s*$/ ||
+ $capaCommDD !~ /^\s*$/ ||
+ $capaTCB !~ /^\s*$/ ||
+ $capaTrustedUI !~ /^\s*$/ ||
+ $capaAlwaysPass !~ /^\s*$/ ||
+ $capaUserEnv !~ /^\s*$/ ||
+ $capaSurroundingsDD !~ /^\s*$/ ||
+ $capaSidRead !~ /^\s*$/ ||
+ $capaSidWrite !~ /^\s*$/
+ )
+ {
+ print "Row $row: Capabilities are not allowed to be defined in range row.\n";
+ $errorCount++;
+ }
+ }
+ #------------------------------------------------------------
+ # Handle key row
+ #------------------------------------------------------------
+ elsif($key !~ /^\s*$/)
+ {
+ # Make sure that last uid/key/range had some variant rows
+ if($variantRowCount == 0)
+ {
+ if($lastActiveRowType == 1)
+ {
+ print "Row $row: There were no variants defined for previous UID.\n";
+ print " This means among other things that default access is alwaysFail.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 2)
+ {
+ print "Row $row: There were no variants defined for previous range => range will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ elsif($lastActiveRowType == 3)
+ {
+ print "Row $row: There were no variants defined for previous key => key will not appear in ini-file.\n";
+ $errorCount++;
+ }
+ }
+ $variantRowCount = 0;
+ $lastActiveRowType = 3;
+
+ $currentKeyType = $keyType;
+ # Store the ro value into the variable (we need this to handle the key variant rows
+ $currentKeyReadOnly = $ro;
+
+ #######################################
+ # Check: There has to be uid defined before any keys
+ #######################################
+ if($currUid =~ /^\s*$/)
+ {
+ print "Row $row: Before any keys are defined an UID has to be defined\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: Check that key int is in hex format
+ #######################################
+ if($key !~ /^\s*0x/)
+ {
+ print "Row $row: The Key Int has to be a hex value (starting with 0x)\n";
+ $errorCount++;
+ }
+ elsif(length($key) != 10)
+ {
+ print "Row $row: The Key int length is not correct. Are you sure that the hex value is correct ?\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: Check that key type and read only are defined
+ #######################################
+ if($keyType =~ /^\s*$/)
+ {
+ print "Row $row: The Key Type-column has to be defined in row, where key is defined.\n";
+ $errorCount++;
+ }
+ if($ro =~ /^\s*$/)
+ {
+ print "Row $row: The Read Only-column has to be defined in row, where key is defined.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: key type column
+ #######################################
+ if($keyType !~ /^Int$/ &&
+ $keyType !~ /^Real$/ &&
+ $keyType !~ /^Str$/ &&
+ $keyType !~ /^Bin$/
+ )
+ {
+ print "Row $row: The Key type-column has invalid value.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: Removed column syntax
+ #######################################
+ $errorCount += checkRelease($row,$removed,"Removed");
+
+ #######################################
+ # Check: columns that should not be in key row
+ #######################################
+ if($rangeFrom !~ /^\s*$/)
+ {
+ print "Row $row: Range From-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($rangeTo !~ /^\s*$/)
+ {
+ print "Row $row: Range To-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($uidOwner !~ /^\s*$/)
+ {
+ print "Row $row: Owner-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($release !~ /^\s*$/)
+ {
+ print "Row $row: Platform Release-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($value !~ /^\s*$/)
+ {
+ print "Row $row: Def value-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($rfs !~ /^\s*$/)
+ {
+ print "Row $row: RFS-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($backup !~ /^\s*$/)
+ {
+ print "Row $row: Backup-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ if($custConfig !~ /^\s*$/)
+ {
+ print "Row $row: Cust Config-column is not allowed for key row\n";
+ $errorCount++;
+ }
+ #######################################
+ # Check: Check that no capas defined
+ #######################################
+ if( $capaNone !~ /^\s*$/ ||
+ $capaAll !~ /^\s*$/ ||
+ $capaAllMinusTcb !~ /^\s*$/ ||
+ $capaNetworkServices !~ /^\s*$/ ||
+ $capaLocalServices !~ /^\s*$/ ||
+ $capaReadUserData !~ /^\s*$/ ||
+ $capaWriteUserData !~ /^\s*$/ ||
+ $capaLocation !~ /^\s*$/ ||
+ $capaReadDeviceData !~ /^\s*$/ ||
+ $capaWriteDeviceData !~ /^\s*$/ ||
+ $capaProtServ !~ /^\s*$/ ||
+ $capaDrm !~ /^\s*$/ ||
+ $capaSwEvent !~ /^\s*$/ ||
+ $capaPowerMgmt !~ /^\s*$/ ||
+ $capaAllFiles !~ /^\s*$/ ||
+ $capaDiskAdmin !~ /^\s*$/ ||
+ $capaNetworkControl !~ /^\s*$/ ||
+ $capaMultiMediaDD !~ /^\s*$/ ||
+ $capaCommDD !~ /^\s*$/ ||
+ $capaTCB !~ /^\s*$/ ||
+ $capaTrustedUI !~ /^\s*$/ ||
+ $capaAlwaysPass !~ /^\s*$/ ||
+ $capaUserEnv !~ /^\s*$/ ||
+ $capaSurroundingsDD !~ /^\s*$/ ||
+ $capaSidRead !~ /^\s*$/ ||
+ $capaSidWrite !~ /^\s*$/
+ )
+ {
+ print "Row $row: Capabilities are not allowed to be defined in Key row.\n";
+ $errorCount++;
+ }
+ }
+ #------------------------------------------------------------
+ # Handle variant row
+ #------------------------------------------------------------
+ elsif($release !~ /^\s*$/)
+ {
+ $variantRowCount++;
+ #######################################
+ # Check: Variant row should not contain removed, keyType or Read only column
+ #######################################
+ if($keyType !~ /^\s*$/)
+ {
+ print "Row $row: The Key Type-column can't be defined in variant-row.\n";
+ $errorCount++;
+ }
+ if($ro !~ /^\s*$/)
+ {
+ print "Row $row: The Read Only-column can't be defined in variant-row.\n";
+ $errorCount++;
+ }
+ if($removed !~ /^\s*$/)
+ {
+ print "Row $row: The Removed-column can't be defined in variant-row.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: Platform release column syntax
+ #######################################
+ $errorCount += checkRelease($row,$release,"Platform Release");
+
+ #######################################
+ # Check: Owner value only allowed for uid variant row
+ #######################################
+ if( $lastActiveRowType == 1)
+ {
+ if($uidOwner =~ /^\s*$/)
+ {
+ print "Row $row: No owner defined for the uid variant row.\n";
+ $errorCount++;
+ }
+ }
+ elsif( $lastActiveRowType != 1)
+ {
+ if($uidOwner !~ /^\s*$/)
+ {
+ print "Row $row: Owner-column is only valid for the uid variant row.\n";
+ $errorCount++;
+ }
+ }
+ #######################################
+ # Check: Variant name column
+ #######################################
+ if($variant !~ /^\s*$/ &&
+ $variant !~ /^elaf$/ &&
+ $variant !~ /^apac$/ &&
+ $variant !~ /^thai$/ &&
+ $variant !~ /^japan$/ &&
+ $variant !~ /^gsm$/ &&
+ $variant !~ /^low_cost$/
+ )
+ {
+ print "Row $row: The Variant name-column has invalid value.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: def value column
+ # (empty value only allowed in case of str and binary)
+ # Checks only valid, if the row is key's variant row.
+ # for other we check that the column is not filled.
+ #######################################
+ if( $lastActiveRowType == 3)
+ {
+ if($currentKeyType !~ /^Str$/ && $currentKeyType !~ /^Bin$/ && $value =~ /^\s*$/)
+ {
+ print "Row $row: The Def value-column has to have some value.\n";
+ $errorCount++;
+ }
+ if($currentKeyType =~ /^Int$/ && $value !~ /^\-*[0-9]+$/)
+ {
+ print "Row $row: The Def value-column has to be a number, since type is Int.\n";
+ $errorCount++;
+ }
+ if($currentKeyType =~ /^Real$/ && $value !~ /^\-*[0-9\.]+$/)
+ {
+ print "Row $row: The Def value-column has to be a number, since type is Real.\n";
+ $errorCount++;
+ }
+ }
+ elsif($value !~ /^\s*$/)
+ {
+ print "Row $row: The Def value-column should not be defined for ";
+ if($lastActiveRowType ==1)
+ {
+ print "Uid variant row\n";
+ }
+ elsif($lastActiveRowType ==2)
+ {
+ print "range variant row\n";
+ }
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: backup and rfs columns
+ #######################################
+ if($backup =~ /^\s*$/)
+ {
+ print "Row $row: The Backup-column has to be specified in variant row.\n";
+ $errorCount++;
+ }
+ elsif($backup !~ /^Yes$/ &&
+ $backup !~ /^No$/
+ )
+ {
+ print "Row $row: The Backup-column has invalid value.\n";
+ $errorCount++;
+ }
+ if($release !~ /^\s*$/ && $lastActiveRowType == 3 && $currentKeyReadOnly =~ /yes/i && $backup =~ /^Yes$/)
+ {
+ print "Row $row: A readonly key should not be backed up.\n";
+ $errorCount++;
+ }
+
+ if($rfs =~ /^\s*$/)
+ {
+ print "Row $row: The RFS-column has to have value in the variant row.\n";
+ $errorCount++;
+ }
+ elsif($rfs !~ /^Yes$/ &&
+ $rfs !~ /^No$/
+ )
+ {
+ print "Row $row: The RFS-column has invalid value.\n";
+ $errorCount++;
+ }
+ if($release !~ /^\s*$/ && $lastActiveRowType == 3 && $currentKeyReadOnly =~ /yes/i && $rfs =~ /^Yes$/)
+ {
+ print "Row $row: A readonly key should not have RFS as yes.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: customer config column
+ # Only allowed for key variant row
+ #######################################
+ if( $lastActiveRowType == 3)
+ {
+ if($custConfig =~ /^\s*$/)
+ {
+ print "Row $row: The Cust Config-column has to have value in the variant row.\n";
+ $errorCount++;
+ }
+ elsif($custConfig !~ /^Yes$/ &&
+ $custConfig !~ /^No$/ &&
+ $custConfig !~ /^Must$/
+ )
+ {
+ print "Row $row: The Cust config-column has invalid value.\n";
+ $errorCount++;
+ }
+ }
+ elsif($custConfig !~ /^\s*$/)
+ {
+ print "Row $row: The Cust Config-column should not be defined in ";
+ if($lastActiveRowType ==1)
+ {
+ print "Uid variant row.\n";
+ }
+ elsif($lastActiveRowType ==2)
+ {
+ print "range variant row.\n";
+ }
+ $errorCount++;
+ }
+ #######################################
+ # Check: at least one capability needs to be specified if release is specified
+ #######################################
+ if($release !~ /^\s*$/)
+ {
+ if( $capaNone =~ /^\s*$/ &&
+ $capaAll =~ /^\s*$/ &&
+ $capaAllMinusTcb =~ /^\s*$/ &&
+ $capaNetworkServices =~ /^\s*$/ &&
+ $capaLocalServices =~ /^\s*$/ &&
+ $capaReadUserData =~ /^\s*$/ &&
+ $capaWriteUserData =~ /^\s*$/ &&
+ $capaLocation =~ /^\s*$/ &&
+ $capaReadDeviceData =~ /^\s*$/ &&
+ $capaWriteDeviceData =~ /^\s*$/ &&
+ $capaProtServ =~ /^\s*$/ &&
+ $capaDrm =~ /^\s*$/ &&
+ $capaSwEvent =~ /^\s*$/ &&
+ $capaPowerMgmt =~ /^\s*$/ &&
+ $capaAllFiles =~ /^\s*$/ &&
+ $capaDiskAdmin =~ /^\s*$/ &&
+ $capaNetworkControl =~ /^\s*$/ &&
+ $capaMultiMediaDD =~ /^\s*$/ &&
+ $capaCommDD =~ /^\s*$/ &&
+ $capaTCB =~ /^\s*$/ &&
+ $capaTrustedUI =~ /^\s*$/ &&
+ $capaAlwaysPass =~ /^\s*$/ &&
+ $capaUserEnv =~ /^\s*$/ &&
+ $capaSurroundingsDD =~ /^\s*$/ &&
+ $capaSidRead =~ /^\s*$/ &&
+ $capaSidWrite =~ /^\s*$/
+ )
+ {
+ print "Row $row: At least some capability colums has to have some value, since Platform Release-column is defined.\n";
+ $errorCount++;
+ }
+ }
+
+ #######################################
+ # Check: if this is variant row for key, then if the key is read-only key, then
+ # there should be no "W" defined
+ #######################################
+ if($release !~ /^\s*$/ && $lastActiveRowType == 3 && $currentKeyReadOnly =~ /yes/i)
+ {
+ if( $capaNone =~ /W/i ||
+ $capaAll =~ /W/i ||
+ $capaAllMinusTcb =~ /W/i ||
+ $capaNetworkServices =~ /W/i ||
+ $capaLocalServices =~ /W/i ||
+ $capaReadUserData =~ /W/i ||
+ $capaWriteUserData =~ /W/i ||
+ $capaLocation =~ /W/i ||
+ $capaReadDeviceData =~ /W/i ||
+ $capaWriteDeviceData =~ /W/i ||
+ $capaProtServ =~ /W/i ||
+ $capaDrm =~ /W/i ||
+ $capaSwEvent =~ /W/i ||
+ $capaPowerMgmt =~ /W/i ||
+ $capaAllFiles =~ /W/i ||
+ $capaDiskAdmin =~ /W/i ||
+ $capaNetworkControl =~ /W/i ||
+ $capaMultiMediaDD =~ /W/i ||
+ $capaCommDD =~ /W/i ||
+ $capaTCB =~ /W/i ||
+ $capaTrustedUI =~ /W/i ||
+ $capaAlwaysPass =~ /W/i ||
+ $capaUserEnv =~ /W/i ||
+ $capaSurroundingsDD =~ /W/i ||
+ $capaSidRead =~ /W/i ||
+ $capaSidWrite =~ /W/i
+ )
+ {
+ print "Row $row: Since the key is read-only, there should be no W-capa defined.\n";
+ $errorCount++;
+ }
+ }
+ #######################################
+ # Check: checking the usage of the "R"-capa.
+ #######################################
+ if($release !~ /^\s*$/ && $lastActiveRowType == 3)
+ {
+ # You should not use R-capa with the below capabilities
+ if( $capaWriteUserData =~ /R/i ||
+ $capaWriteDeviceData =~ /R/i ||
+ $capaSidWrite =~ /R/i
+ )
+ {
+ print "Row $row: R-capa should not be used with association of Write-related capas.\n";
+ $errorCount++;
+ }
+
+ # In 99% cases you should allow R-to be always "alwayspass". Thus we report this as an error.
+ if( $capaNone =~ /R/i ||
+ $capaAll =~ /R/i ||
+ $capaAllMinusTcb =~ /R/i ||
+ $capaNetworkServices =~ /R/i ||
+ $capaLocalServices =~ /R/i ||
+ $capaReadUserData =~ /R/i ||
+ $capaWriteUserData =~ /R/i ||
+ $capaLocation =~ /R/i ||
+ $capaReadDeviceData =~ /R/i ||
+ $capaWriteDeviceData =~ /R/i ||
+ $capaProtServ =~ /R/i ||
+ $capaDrm =~ /R/i ||
+ $capaSwEvent =~ /R/i ||
+ $capaPowerMgmt =~ /R/i ||
+ $capaAllFiles =~ /R/i ||
+ $capaDiskAdmin =~ /R/i ||
+ $capaNetworkControl =~ /R/i ||
+ $capaMultiMediaDD =~ /R/i ||
+ $capaCommDD =~ /R/i ||
+ $capaTCB =~ /R/i ||
+ $capaTrustedUI =~ /R/i ||
+ $capaUserEnv =~ /R/i ||
+ $capaSurroundingsDD =~ /R/i ||
+ $capaSidRead =~ /R/i ||
+ $capaSidWrite =~ /R/i
+ )
+ {
+ print "Row $row: NOTE: only sensitive data (passwords and alike) should be protected for reading.\n";
+ print " In normal case read should be allowed for everyone (== AlwaysPass-capa).\n";
+ print " Depending on the mening of key this is/is not an error (99% of cases this is an error).\n";
+ $errorCount++;
+ }
+ }
+ #######################################
+ # Check: capability colums
+ #######################################
+ $errorCount += checkCapability($row,$capaNone,"None");
+ $errorCount += checkCapability($row,$capaAll,"All");
+ $errorCount += checkCapability($row,$capaAllMinusTcb,"All - TCB");
+ $errorCount += checkCapability($row,$capaNetworkServices,"NetworkServices");
+ $errorCount += checkCapability($row,$capaLocalServices,"Local Services");
+ $errorCount += checkCapability($row,$capaReadUserData,"ReadUserData");
+ $errorCount += checkCapability($row,$capaWriteUserData,"WriteUserData");
+ $errorCount += checkCapability($row,$capaLocation,"Location");
+ $errorCount += checkCapability($row,$capaReadDeviceData,"ReadDeviceData");
+ $errorCount += checkCapability($row,$capaWriteDeviceData,"WriteDeviceData");
+ $errorCount += checkCapability($row,$capaProtServ,"ProtServ");
+ $errorCount += checkCapability($row,$capaDrm,"DRM");
+ $errorCount += checkCapability($row,$capaSwEvent,"SwEvent");
+ $errorCount += checkCapability($row,$capaPowerMgmt,"PowerMgmt");
+ $errorCount += checkCapability($row,$capaAllFiles,"AllFiles");
+ $errorCount += checkCapability($row,$capaDiskAdmin,"DiskAdmin");
+ $errorCount += checkCapability($row,$capaNetworkControl,"NetworkControl");
+ $errorCount += checkCapability($row,$capaMultiMediaDD,"MultiMediaDD");
+ $errorCount += checkCapability($row,$capaCommDD,"CommDD");
+ $errorCount += checkCapability($row,$capaTCB,"TCB");
+ $errorCount += checkCapability($row,$capaAlwaysPass,"AlwaysPass");
+ $errorCount += checkCapability($row,$capaUserEnv,"UserEnvironment");
+ $errorCount += checkCapability($row,$capaSurroundingsDD,"SurroundingsDD");
+ if($capaSidRead !~ /^\s*$/ && $capaSidRead !~ /^0x[0-9]{8}$/)
+ {
+ print "Row $row: the Sid Read-column has invalid value. Only 1 sid is allowed in hex format.\n";
+ $errorCount++;
+ }
+ if($capaSidWrite !~ /^\s*$/ && $capaSidWrite !~ /^0x[0-9]{8}$/)
+ {
+ print "Row $row: the Sid Write-column has invalid value. Only 1 sid is allowed in hex format.\n";
+ $errorCount++;
+ }
+
+ #######################################
+ # Check: capability colums limitations
+ # max capability checks are:
+ # 7 capabilities
+ # 1 sid and 3 capabilities
+ #######################################
+ my @rList;
+ my @wList;
+ addCapability(\@rList,\@wList,$capaNone,"AlwaysPass");
+ addCapability(\@rList,\@wList,$capaAlwaysPass,"AlwaysPass");
+ addCapability(\@rList,\@wList,$capaNetworkServices,"NetworkServices");
+ addCapability(\@rList,\@wList,$capaLocalServices,"Local Services");
+ addCapability(\@rList,\@wList,$capaReadUserData,"ReadUserData");
+ addCapability(\@rList,\@wList,$capaWriteUserData,"WriteUserData");
+ addCapability(\@rList,\@wList,$capaLocation,"Location");
+ addCapability(\@rList,\@wList,$capaReadDeviceData,"ReadDeviceData");
+ addCapability(\@rList,\@wList,$capaWriteDeviceData,"WriteDeviceData");
+ addCapability(\@rList,\@wList,$capaProtServ,"ProtServ");
+ addCapability(\@rList,\@wList,$capaDrm,"DRM");
+ addCapability(\@rList,\@wList,$capaSwEvent,"SwEvent");
+ addCapability(\@rList,\@wList,$capaPowerMgmt,"PowerMgmt");
+ addCapability(\@rList,\@wList,$capaAllFiles,"AllFiles");
+ addCapability(\@rList,\@wList,$capaDiskAdmin,"DiskAdmin");
+ addCapability(\@rList,\@wList,$capaNetworkControl,"NetworkControl");
+ addCapability(\@rList,\@wList,$capaMultiMediaDD,"MultiMediaDD");
+ addCapability(\@rList,\@wList,$capaCommDD,"CommDD");
+ addCapability(\@rList,\@wList,$capaTCB,"TCB");
+ addCapability(\@rList,\@wList,$capaTrustedUI,"TrustedUI");
+ addCapability(\@rList,\@wList,$capaUserEnv,"UserEnvironment");
+ addCapability(\@rList,\@wList,$capaSurroundingsDD,"SurroundingsDD");
+
+ my $rSidDefined = 0;
+ if($capaSidRead !~ /^\s*$/)
+ {
+ $rSidDefined = 4;
+ }
+ my $wSidDefined = 0;
+ if($capaSidWrite !~ /^\s*$/)
+ {
+ $wSidDefined = 4;
+ }
+
+ if((scalar(@rList) + $rSidDefined) > 7)
+ {
+ print "Row $row: To many Read capability checks defined. Allowed max amounts are:\n";
+ print " (7 capabilities) or (1 sid and 3 capabilities)\n";
+ $errorCount++;
+ }
+ if((scalar(@wList) + $wSidDefined) > 7)
+ {
+ print "Row $row: To many Write capability checks defined. Allowed max amounts are:\n";
+ print " (7 capabilities) or (1 sid and 3 capabilities)\n";
+ $errorCount++;
+
+ }
+ }
+ }
+
+ if($errorCount < 1)
+ {
+ print "No content errors\n";
+ }
+}
+
+
+###########################################################################
+# Makes syntax checks that the given name is according to specification
+#
+#
+# Params: file name
+#
+###########################################################################
+sub checkCentrepKeySheetName
+{
+ my $name = shift;
+
+ # ----------------------------------------------------------------
+ # check name syntax
+ # ----------------------------------------------------------------
+ if($name =~ /[A-Z]/)
+ {
+ print "Sheet: $name, no capital letters allowed\n";
+ }
+ if($name !~ /^[a-z0-9\_\.]+$/)
+ {
+ print "Sheet: $name, non valid characters in the name. (0-9 a-z _ and . are allowed\n";
+ }
+ if($name !~ /^keys_[a-z0-9\_]+\.xls$/)
+ {
+ print "Sheet: \"$name\", syntax should be \"keys_<modulename>.xls\"\n";
+ }
+
+}
+
+1;
+
+
+
+