From 460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: 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
---
 kmail/kmail-3.3-move-identities.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 kmail/kmail-3.3-move-identities.pl

(limited to 'kmail/kmail-3.3-move-identities.pl')

diff --git a/kmail/kmail-3.3-move-identities.pl b/kmail/kmail-3.3-move-identities.pl
new file mode 100644
index 00000000..835cf4ff
--- /dev/null
+++ b/kmail/kmail-3.3-move-identities.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+# David Faure <faure@kde.org>
+# License: GPL
+
+$currentGroup = "";
+
+while (<>) {
+    next if /^$/;
+    # recognize groups:
+    if ( /^\[(.+)\]$/ ) { 
+        $currentGroup = $1;
+        if ( $currentGroup =~ /^Identity/ ) {
+            print "# DELETEGROUP [$currentGroup]\n";
+            print "[$currentGroup]\n";
+        }
+        next;
+    };
+    # Move over keys from the identity groups
+    if ( $currentGroup =~ /^Identity/ ) {
+        print;
+    }
+    # Move over the key for the default identity
+    elsif ( $currentGroup eq 'General' ) {
+	($key,$value) = split /=/;
+	chomp $value;
+        if ( $key eq 'Default Identity' ) {
+            print "[$currentGroup]\n$key=$value\n";
+            print "# DELETE [$currentGroup]$key\n";
+        }
+    }
+}
-- 
cgit v1.2.3