|
|
|
@ -3,9 +3,18 @@ |
|
|
|
|
|| $DB->new_record('phpmyadmin', {type => 'webapp'}); |
|
|
|
|
my $pw = $rec->prop('DbPassword'); |
|
|
|
|
if (not $pw or length($pw) < 57){ |
|
|
|
|
use MIME::Base64 qw(encode_base64); |
|
|
|
|
my $pw = gen_pw(); |
|
|
|
|
$rec->set_prop('DbPassword', $pw); |
|
|
|
|
} |
|
|
|
|
$pw = $rec->prop('AdminPassword'); |
|
|
|
|
if (not $pw or length($pw) < 57){ |
|
|
|
|
my $pw = gen_pw(); |
|
|
|
|
$rec->set_prop('AdminPassword', $pw); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
$pw = "not set due to error"; |
|
|
|
|
sub gen_pw { |
|
|
|
|
use MIME::Base64 qw(encode_base64); |
|
|
|
|
my $p = "not set due to error"; |
|
|
|
|
if ( open( RANDOM, "/dev/urandom" ) ){ |
|
|
|
|
my $buf; |
|
|
|
|
# 57 bytes is a full line of Base64 coding, and contains |
|
|
|
@ -14,15 +23,15 @@ |
|
|
|
|
warn("Short read from /dev/random: $!"); |
|
|
|
|
} |
|
|
|
|
else{ |
|
|
|
|
$pw = encode_base64($buf); |
|
|
|
|
chomp $pw; |
|
|
|
|
$p = encode_base64($buf); |
|
|
|
|
chomp $p; |
|
|
|
|
} |
|
|
|
|
close RANDOM; |
|
|
|
|
} |
|
|
|
|
else{ |
|
|
|
|
warn "Could not open /dev/urandom: $!"; |
|
|
|
|
} |
|
|
|
|
$rec->set_prop('DbPassword', $pw); |
|
|
|
|
return $p; |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|