e-smith-email/root/etc/e-smith/db/configuration/migrate/30popd

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