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

1 files changed, 43 insertions, 0 deletions

diff --git a/korn/kconf_update/korn-3-5-metadata-update.pl b/korn/kconf_update/korn-3-5-metadata-update.pl
new file mode 100644
index 00000000..95723c4e
--- /dev/null
+++ b/korn/kconf_update/korn-3-5-metadata-update.pl
@@ -0,0 +1,43 @@
+my $input;
+my $group;
+my $auth = "";
+my $tls = "";
+my $metadata = "";
+
+while( $input = <STDIN> )
+{
+	chop $input;
+	if( $input =~ /^\[.*\]$/ )
+	{
+		if( $metadata )
+		{
+			print "[$group]\n";
+			print "metadata=$metadata\n";
+			$metadata="";
+		}
+	
+		if( $input =~ /^\[(korn-(\d+)-\d+)\]$/ )
+		{
+			$group = $1;
+		}
+		else
+		{
+			$group = "";
+		}
+		$auth="";
+		$tls="";
+	}
+	
+	if( $input =~ /^auth\=(.*)/ )
+	{
+		$metadata=$tls ? "auth=$1,tls=$tls" : "auth=$1";
+		$auth=$1;
+		print "# DELETE [$group]auth\n";
+	}
+	elsif( $input =~ /^tls\=(.*)/ )
+	{
+		$metadata=$auth ? "auth=$auth,tls=$1" : "tls=$1";
+		$tls=$1;
+		print "# DELETE [$tls]tls\n";
+	}
+}