e-smith-base/root/etc/e-smith/db/accounts/migrate/10Primary

11 lines
224 B
Plaintext
Raw Permalink Normal View History

{
# Delete any pre-existing Primary=system record
my $p = $DB->get('Primary');
return unless defined $p;
my $type = $p->prop('type');
return unless defined $type;
$p->delete if $type eq 'system';
}