20 lines
551 B
Plaintext
20 lines
551 B
Plaintext
{
|
|
|
|
use Digest::SHA1 qw(sha1_hex);
|
|
use esmith::AccountsDB;
|
|
my $a = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB\n";
|
|
|
|
$OUT .= "// login and password for MySQL access\n";
|
|
|
|
foreach my $u ($a->users,$a->get('admin')){
|
|
my $user = $u->key;
|
|
my $login = $u->prop('SqlLogin') || '';
|
|
my $pass = $u->prop('SqlPassword') || '';
|
|
next unless (($login ne '') && ($pass ne ''));
|
|
$OUT .= "// Credentials for $user\n";
|
|
$OUT .= '$login["'.$user.'"] = "'.$login."\";\n";
|
|
$OUT .= '$password["'.$user.'"] = "'.$pass."\";\n";
|
|
}
|
|
|
|
}
|