smeserver-base/root/etc/e-smith/db/accounts/migrate/20AdminPasswordSet

12 lines
237 B
Plaintext

{
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);
}