1,346
edits
Changes
From SME Server
Jump to navigationJump to searchSME 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;
}
}
