smeserver-collabora/root/etc/e-smith/db/configuration/migrate/migrateloolwsd

7 lines
211 B
Plaintext

{
my $loolwsd = $DB->get("loolwsd") or return;
my $coolwsd = $DB->get("coolwsd") || $DB->new_record("coolwsd", { type => "service" });
$coolwsd->merge_props($loolwsd->props);
$loolwsd->delete;
}