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
---
 korn/kconf_update/korn-3-5-ssl-update.pl | 39 ++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 korn/kconf_update/korn-3-5-ssl-update.pl

(limited to 'korn/kconf_update/korn-3-5-ssl-update.pl')

diff --git a/korn/kconf_update/korn-3-5-ssl-update.pl b/korn/kconf_update/korn-3-5-ssl-update.pl
new file mode 100644
index 000000000..b44ce10ff
--- /dev/null
+++ b/korn/kconf_update/korn-3-5-ssl-update.pl
@@ -0,0 +1,39 @@
+my $input;
+my $group;
+my $protocol;
+
+while( $input = <STDIN> )
+{
+	chop $input;
+	if( $input =~ /^\[.*\]$/ )
+	{
+		if( $input =~ /^\[(korn-(\d+)-\d+)\]$/ )
+		{
+			$group = $1;
+		}
+		else
+		{
+			$group = "";
+		}
+	}
+	
+	if( $input =~ /^protocol\=(.*)/ )
+	{
+		$protocol=$1;
+		print "[$group]\n";
+		if( $protocol eq "imaps" )
+		{
+			print "protocol=imap\n";
+			print "ssl=true\n";
+		}
+		elsif( $protocol eq "pop3s" )
+		{
+			print "protocol=pop3\n";
+			print "ssl=true\n";
+		}
+		else
+		{
+			print "ssl=false\n";
+		}
+	}
+}
-- 
cgit v1.2.1