summaryrefslogtreecommitdiffstats
path: root/kmail/kmail-3.1-use-UOID-for-identities.pl
diff options
context:
space:
mode:
authortoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
committertoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
commit460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 (patch)
tree67208f7c145782a7e90b123b982ca78d88cc2c87 /kmail/kmail-3.1-use-UOID-for-identities.pl
downloadtdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.tar.gz
tdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.zip
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kmail/kmail-3.1-use-UOID-for-identities.pl')
-rwxr-xr-xkmail/kmail-3.1-use-UOID-for-identities.pl93
1 files changed, 93 insertions, 0 deletions
diff --git a/kmail/kmail-3.1-use-UOID-for-identities.pl b/kmail/kmail-3.1-use-UOID-for-identities.pl
new file mode 100755
index 000000000..e76414823
--- /dev/null
+++ b/kmail/kmail-3.1-use-UOID-for-identities.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+# this script goes through all the config keys that deal with
+# identities and replaces identities referenced by name to be referenced
+# by UOIDs. To this end, adds uoid keys to the identity groups.
+
+# 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 =~ /^\[Identity/ and /^uoid/ ) {
+ # We need to prevent this script from running twice, since it
+ # would change UOIDs of identities then.
+ # Presence of a uoid key in an [Identity #n] section is the
+ # best indicator:
+ exit;
+ } 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 UOIDs for each identity:
+my %nameToUOID;
+foreach my $identityGroup (@identityGroups) {
+ my $uoid = int(rand 0x7fFFffFF);
+ my $name = $configFile{$identityGroup}{'Identity'};
+ $nameToUOID{$name} = $uoid;
+ # create the uoid entries of [Identity #n] groups:
+ print "${identityGroup}\nuoid=$uoid\n";
+}
+
+# change the default identity value:
+print "# DELETE [General]Default Identity\n[General]\nDefault Identity="
+ . $nameToUOID{$configFile{'[General]'}{'Default Identity'}} . "\n";
+
+# [Composer]previous-identity
+print "# DELETE [Composer]previous-identity\n[Composer]\nprevious-identity="
+ . $nameToUOID{$configFile{'[Composer]'}{'previous-identity'}} . "\n";
+
+# Now, go through all [Folder-*] groups and replace the Identity value
+# with the UOID. Also, move MailingListIdentity entries to Identity entries:
+my @folderGroups = grep { /^\[Folder-.*\]/ } keys %configFile;
+
+foreach my $folderGroup ( @folderGroups ) {
+ my $identity = "";
+ # delete the (MailingList)Identity keys:
+ print "# DELETE ${folderGroup}MailingListIdentity\n";
+ print "# DELETE ${folderGroup}Identity\n";
+ # extract the identity name:
+ if ( exists ($configFile{$folderGroup}{'Identity'}) ) {
+ $identity = $configFile{$folderGroup}{'Identity'};
+ }
+ if ( $identity eq ""
+ and exists($configFile{$folderGroup}{'MailingListIdentity'}) ) {
+ $identity = $configFile{$folderGroup}{'MailingListIdentity'};
+ }
+ # write the new Identity=<uoid> key if we have an UOID for the identity:
+ if ( exists( $nameToUOID{$identity} ) ) {
+ print "$folderGroup\nIdentity=" . $nameToUOID{$identity} . "\n";
+ }
+}
+
+# Now, go through all [Filter #n] groups and change arguments to the
+# 'set identity' filter action to use UOIDs:
+
+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 UOID:
+ print "# DELETE $filterGroup$actionArgs\n$filterGroup\n$actionArgs="
+ . $nameToUOID{$configFile{$filterGroup}{$actionArgs}} . "\n";
+ }
+ }
+}
+