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/upgrade-transport.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 kmail/upgrade-transport.pl

(limited to 'kmail/upgrade-transport.pl')

diff --git a/kmail/upgrade-transport.pl b/kmail/upgrade-transport.pl
new file mode 100755
index 00000000..806a7a35
--- /dev/null
+++ b/kmail/upgrade-transport.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+my (%data);
+
+#read in all the data and split it up into hashes.
+while (<>) {
+  $data{$1} = $2 if /^([^=]*)=(.*)$/;
+}
+
+# Delete obsolete entries from the [sending mail] section
+print "# DELETE Mailer\n";
+print "# DELETE Method\n";
+print "# DELETE Precommand\n";
+print "# DELETE Smtp Host\n";
+print "# DELETE Smtp Password\n";
+print "# DELETE Smtp Port\n";
+print "# DELETE Smtp Username\n";
+
+# Write entries to the [Transport 1] section
+print "precommand=$data{'Precommand'}\n" if (defined $data{'Precommand'});
+print "port=$data{'Smtp Port'}\n" if (defined $data{'Smtp Port'});
+
+if (defined $data{'Method'}) {
+  if ($data{'Method'} eq "smtp") {
+    print "type=smtp\n";
+    print "host=$data{'Smtp Host'}\n";
+    print "name=$data{'Smtp Host'}\n";
+  }
+  else {
+    print "type=sendmail\n";
+    print "host=$data{'Mailer'}\n";
+    print "name=Sendmail\n";
+  }
+  print "\n[General]\n";
+  print "transports=1\n";
+}
+
-- 
cgit v1.2.3