summaryrefslogtreecommitdiffstats
path: root/kmail/upgrade-transport.pl
diff options
context:
space:
mode:
authortoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
committertoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
commit460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 (patch)
tree67208f7c145782a7e90b123b982ca78d88cc2c87 /kmail/upgrade-transport.pl
downloadtdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.tar.gz
tdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.zip
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
Diffstat (limited to 'kmail/upgrade-transport.pl')
-rwxr-xr-xkmail/upgrade-transport.pl36
1 files changed, 36 insertions, 0 deletions
diff --git a/kmail/upgrade-transport.pl b/kmail/upgrade-transport.pl
new file mode 100755
index 000000000..806a7a356
--- /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";
+}
+