11 lines
192 B
Plaintext
11 lines
192 B
Plaintext
{
|
|
my $popd = $DB->get("popd") or return;
|
|
|
|
my $pop3 = $DB->get("pop3") ||
|
|
$DB->new_record("pop3", { type => "service" });
|
|
|
|
$pop3->merge_props($popd->props);
|
|
|
|
$popd->delete;
|
|
}
|