13 lines
296 B
Plaintext
13 lines
296 B
Plaintext
|
{
|
||
|
|
my $mailfront = $DB->get("smtpfront-qmail") or return;
|
||
|
|
|
||
|
|
my $qpsmtpd = $DB->get("qpsmtpd") ||
|
||
|
|
$DB->new_record("qpsmtpd", { type => "service" });
|
||
|
|
|
||
|
|
$qpsmtpd->merge_props($mailfront->props);
|
||
|
|
|
||
|
|
$qpsmtpd->delete_prop($_) for ( qw(Patterns PatternsFile) );
|
||
|
|
|
||
|
|
$mailfront->delete;
|
||
|
|
}
|