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";
+}
+