7 lines
211 B
Plaintext
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;
|
||
|
|
}
|