8 lines
231 B
Plaintext
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);
|
||
|
|
}
|