blob: 806a7a3567a60e7f5e80077b4de1f5b0e67fa21b (
plain)
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
|
#!/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";
}
|
