|
1 #!perl -w |
|
2 # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # This simple script shows how to modify the content of a feature manager |
|
16 # data file. |
|
17 # |
|
18 # |
|
19 |
|
20 use strict; |
|
21 use FMCreate; |
|
22 |
|
23 # |
|
24 # Hardwire the datafile - this is only an example. |
|
25 # |
|
26 my $datfile = "/epoc32/release/winscw/udeb/z/private/10205054/features.dat"; |
|
27 my $datfile2 = "/epoc32/release/winscw/udeb/z/private/10205054/features2.dat"; |
|
28 my $datfileback = "/epoc32/release/winscw/udeb/z/private/10205054/features.bak"; |
|
29 |
|
30 # |
|
31 # Create an object that represents a feature data file. |
|
32 # |
|
33 my $fmc = FMCreate->new(); |
|
34 |
|
35 # |
|
36 # Load the content of the data file into our FMCreate object. |
|
37 # Note that this will die if the content does not seem to be a feature set |
|
38 # file. This can happen if the first four bytes aren't 'feat' or if reading |
|
39 # the file fails at any point. This will also happen if the file is the wrong |
|
40 # size. |
|
41 # |
|
42 $fmc->LoadUp($datfile) or die "Failed to load up data from '$datfile'\n"; |
|
43 |
|
44 # Setup an array of all the features we need to switch on. |
|
45 my $ffuid; |
|
46 my $ff; |
|
47 my @tomtab; |
|
48 |
|
49 $tomtab[0] = 81; # KFeatureIdProtocolGsm |
|
50 $tomtab[1] = 82; # KFeatureIdProtocolWcdma |
|
51 $tomtab[1] = 1696; # KFeatureIdOnScreenDialer |
|
52 |
|
53 foreach $ffuid (@tomtab) |
|
54 #for ($ffuid = 1696; $ffuid <= 1696; $ffuid++) |
|
55 { |
|
56 $ff = $fmc->GetFeatureFlagByUID($ffuid); |
|
57 if(ref($ff) ne "FeatureFlag") |
|
58 { |
|
59 printf ("Feature flag uid 0x%0x was not already in $datfile, creating it.\n", $ffuid); |
|
60 # |
|
61 # Now add a new feature. The three arguments are UID, status flags (not defined |
|
62 # here) and user data word. |
|
63 # |
|
64 $ff = FeatureFlag->new($ffuid, undef, 0x00000000); |
|
65 die "Couldn't create new feature flag object.\n" unless(ref($ff)); |
|
66 |
|
67 # |
|
68 # Add it to our existing feature data. |
|
69 # |
|
70 $fmc->AddFeatureFlag($ff) or die "Couldn't add new feature flag..\n"; |
|
71 |
|
72 printf ("Feature flag uid 0x%0x created ok.\n", $ffuid); |
|
73 } |
|
74 |
|
75 $ff->Supported(1); |
|
76 $ff->Upgradable(0); |
|
77 $ff->Modifiable(0); |
|
78 $ff->BlackListed(0); |
|
79 $ff->Uninitialized(0); |
|
80 $ff->Persisted(0); |
|
81 } |
|
82 # |
|
83 # Now write out the file to a new location |
|
84 # |
|
85 $fmc->WriteToFile($datfile2) or die "Couldn't write feature data file '$datfile2'\n"; |
|
86 |
|
87 rename($datfile, $datfileback) or die "Couldn't backup feature data file '$datfile'\n"; |
|
88 rename($datfile2, $datfile) or die "Couldn't copy feature data file '$datfile2'\n"; |
|
89 |
|
90 printf ("\tFeature Database setup\n"); |
|
91 # |
|
92 # Example code to remove a feature flag. |
|
93 # |
|
94 #$fmc->RemoveFeatureFlagByUID($ffuid) or die "Couldn't remove feature flag\n"; |
|
95 |