12 lines
237 B
Plaintext
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);
|
||
|
|
}
|