blob: 0dba90802f14aa6b65a54af0f1ea33bbbaf29915 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl -w
use strict;
# this script goes through all the config keys that deal with
# identities and replaces UOID 0 (which was erroneously always assigned to the
# first identity) with a non-zero UOID.
# read the whole config file
my $currentGroup = "";
my %configFile;
while ( <> ) {
chomp;
next if ( /^$/ ); # skip empty lines
next if ( /^\#/ ); # skip comments
if ( /^\[/ ) { # group begin
$currentGroup = $_;
next;
} elsif ( $currentGroup ne "" ) { # normal entry
my ($key,$value) = split /=/;
$configFile{$currentGroup}{$key}=$value;
}
}
# filter out identity groups
my @identityGroups = grep { /^\[Identity \#\d+\]/ } keys %configFile;
# create new UOID for an identity with UOID 0
my $newUoid = 0;
foreach my $identityGroup (@identityGroups) {
my $oldUoid = $configFile{$identityGroup}{'uoid'};
if ( $oldUoid eq "0" ) {
$newUoid = int(rand 0x7fFFffFE) + 1;
# change the uoid entry this identity
print "# DELETE ${identityGroup}uoid\n";
print "${identityGroup}\nuoid=$newUoid\n";
}
}
if ( $newUoid != 0 ) {
# change the default identity value if it was 0
my $tempId = $configFile{'[General]'}{'Default Identity'};
if ( $tempId eq "0" ) {
print "# DELETE [General]Default Identity\n";
print "[General]\nDefault Identity=$newUoid\n";
}
# [Composer]previous-identity
$tempId = $configFile{'[Composer]'}{'previous-identity'};
if ( $tempId eq "0" ) {
print "# DELETE [Composer]previous-identity\n";
print "[Composer]\nprevious-identity=$newUoid\n";
}
# Now, go through all [Folder-*] groups and replace all occurrences of
# Identity=0 with Identity=$newUoid
my @folderGroups = grep { /^\[Folder-.*\]/ } keys %configFile;
foreach my $folderGroup ( @folderGroups ) {
$tempId = $configFile{$folderGroup}{'Identity'};
if ( $tempId eq "0" ) {
print "# DELETE ${folderGroup}Identity\n";
print "$folderGroup\nIdentity=$newUoid\n";
}
}
# Now, go through all [Filter #n] groups and replace all occurrences of
# UOID 0 as argument to the 'set identity' filter action with the new UOID
my @filterGroups = grep { /^\[Filter \#\d+\]/ } keys %configFile;
foreach my $filterGroup (@filterGroups) {
my $numActions = +$configFile{$filterGroup}{'actions'};
# go through all actions in search for "set identity":
for ( my $i = 0 ; $i < $numActions ; ++$i ) {
my $actionName = "action-name-$i";
my $actionArgs = "action-args-$i";
if ( $configFile{$filterGroup}{$actionName} eq "set identity" ) {
# found one:
# replace it's argument with the new UOID if necessary
$tempId = $configFile{$filterGroup}{$actionArgs};;
if ( $tempId eq "0" ) {
print "# DELETE $filterGroup$actionArgs\n";
print "$filterGroup\n$actionArgs=$newUoid\n";
}
}
}
}
}
|
