initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023
This commit is contained in:
7
root/etc/e-smith/db/configuration/migrate/10SystemID
Normal file
7
root/etc/e-smith/db/configuration/migrate/10SystemID
Normal file
@@ -0,0 +1,7 @@
|
||||
{
|
||||
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);
|
||||
}
|
Reference in New Issue
Block a user