From 64df902cf71a8ee258fb85f6be26248f399aa01f Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Sun, 27 Jan 2013 01:05:15 -0600 Subject: Rename a number of libraries and executables to avoid conflicts with KDE4 --- korn/tdeconf_update/korn-3-5-ssl-update.pl | 39 ++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 korn/tdeconf_update/korn-3-5-ssl-update.pl (limited to 'korn/tdeconf_update/korn-3-5-ssl-update.pl') 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 = ) +{ + 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