28 lines
856 B
Plaintext
28 lines
856 B
Plaintext
{
|
|
|
|
use esmith::AccountsDB;
|
|
my $admpass = $phpmyadmin{'AdminPassword'} || 'admpass';
|
|
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') || '';
|
|
# Members of the admins group automatically have
|
|
# full privileges on MySQL
|
|
if (($a->is_user_in_group($user,'admins')) ||
|
|
($a->is_user_in_group($user,'mysqladmins')) ||
|
|
($user eq 'admin')){
|
|
$login = 'sqladmin';
|
|
$pass = $admpass;
|
|
}
|
|
next unless (($login ne '') && ($pass ne ''));
|
|
$OUT .= "// Credentials for $user\n";
|
|
$OUT .= '$login["'.$user.'"] = "'.$login."\";\n";
|
|
$OUT .= '$password["'.$user.'"] = "'.$pass."\";\n";
|
|
}
|
|
|
|
}
|