smeserver-base/root/etc/e-smith/db/configuration/migrate/10SystemID

8 lines
231 B
Plaintext

{
use Data::UUID;
my $sysconfig = $DB->get('sysconfig') || $DB->new_record('sysconfig', { type => 'configuration'});
$sysconfig->prop('SystemID') || $sysconfig->set_prop("SystemID", new Data::UUID->create_str);
}