You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
928 B
37 lines
928 B
15 years ago
|
#!/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";
|
||
|
|
}
|
||
|
|
|