1,346
edits
Changes
Jump to navigation
Jump to search
Line 168:
Line 168: − − −
SME Server:Documentation:Developers Manual:Chapter2/de (view source)
Revision as of 15:31, 25 May 2007
, 15:31, 25 May 2007→Codefragmente
{
{
my $popd = $DB->get("popd") or return;
my $popd = $DB->get("popd") or return;
my $pop3 = $DB->get("pop3") ||
my $pop3 = $DB->get("pop3") ||
$DB->new_record("pop3", { type => "service" });
$DB->new_record("pop3", { type => "service" });
$pop3->merge_props($popd->props);
$pop3->merge_props($popd->props);
$popd->delete;
$popd->delete;
}
}