summaryrefslogtreecommitdiffstats
path: root/korn/tdeconf_update/korn-3-5-ssl-update.pl
diff options
context:
space:
mode:
Diffstat (limited to 'korn/tdeconf_update/korn-3-5-ssl-update.pl')
-rw-r--r--korn/tdeconf_update/korn-3-5-ssl-update.pl39
1 files changed, 39 insertions, 0 deletions
diff --git a/korn/tdeconf_update/korn-3-5-ssl-update.pl b/korn/tdeconf_update/korn-3-5-ssl-update.pl
new file mode 100644
index 000000000..b44ce10ff
--- /dev/null
+++ b/korn/tdeconf_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";
+ }
+ }
+}