initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023
This commit is contained in:
11
root/etc/e-smith/db/accounts/migrate/20AdminPasswordSet
Normal file
11
root/etc/e-smith/db/accounts/migrate/20AdminPasswordSet
Normal file
@@ -0,0 +1,11 @@
|
||||
{
|
||||
use esmith::ConfigDB;
|
||||
|
||||
my $conf = esmith::ConfigDB->open_ro() or return;
|
||||
|
||||
my $pw_set = $conf->get_value("PasswordSet") || "no";
|
||||
|
||||
my $admin = $DB->get('admin') || return;
|
||||
|
||||
$admin->set_prop('PasswordSet', $pw_set);
|
||||
}
|
Reference in New Issue
Block a user