{ 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; }