/usr/share/kde4/apps/kconf_update/migrate-transports.pl is in libmailtransport4 4:4.8.5-0ubuntu0.3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | #!/usr/bin/perl
#
# Copyright (c) 2006 Volker Krause <vkrause@kde.org>
# based on kmail-3.3-move-identities.pl by David Faure <faure@kde.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, US
#
$currentGroup = "";
$source = $ARGV[0];
%kmail_key_map = ( "pass", "password-kmail" );
%knode_key_map = (
"server", "host",
"needsLogon", "auth",
"timeout", "",
"holdTime", "",
"pass", "password-knode"
);
while (<STDIN>) {
next if /^$/;
# recognize groups:
if ( /^\[(.+)\]$/ ) {
$currentGroup = $1;
if ( $source eq "kmail" && $currentGroup =~ /^Transport/ ) {
# keep the old settings so that KMail from KDE 3 still works
#print "# DELETEGROUP [$currentGroup]\n";
$groupid = $currentGroup;
$groupid =~ s/^Transport //;
print "[Transport kmail-$groupid]\n";
}
elsif ( $source eq "knode" && $currentGroup eq "MAILSERVER" ) {
# keep the old settings so that KNode from KDE 3 still works
#print "# DELETEGROUP [$currentGroup]\n";
print "[Transport knode-0]\n";
print "name=KNode Mail Transport\n";
}
next;
};
($key,$value) = split /=/;
chomp $value;
# Move over keys from the transport groups
if ( $source eq "kmail" && $currentGroup =~ /^Transport/ ) {
$key = $kmail_key_map{$key} if exists $kmail_key_map{$key};
if ( $key eq "authtype" ) {
$value =~ s/-/_/g;
}
print "$key=$value\n";
}
elsif ( $source eq "knode" && $currentGroup eq "MAILSERVER" ) {
$key = $knode_key_map{$key} if exists $knode_key_map{$key};
next if $key eq "";
print "$key=$value\n";
}
# Move over the key for the default transport
elsif ( $source eq "kmail" && $currentGroup eq 'Composer' ) {
if ( $key eq 'default-transport' ) {
print "[General]\n$key=$value\n";
#print "# DELETE [$currentGroup]$key\n";
}
}
}
|