|
|
|
@ -2,32 +2,26 @@ |
|
|
|
|
my $rec = $DB->get('phplist') |
|
|
|
|
|| $DB->new_record('phplist', {type => 'webapp'}); |
|
|
|
|
my $pw = $rec->prop('DbPassword'); |
|
|
|
|
if (not $pw or length($pw) < 57) |
|
|
|
|
{ |
|
|
|
|
if (not $pw or length($pw) < 57){ |
|
|
|
|
use MIME::Base64 qw(encode_base64); |
|
|
|
|
|
|
|
|
|
$pw = "not set due to error"; |
|
|
|
|
if ( open( RANDOM, "/dev/urandom" ) ) |
|
|
|
|
{ |
|
|
|
|
if ( open( RANDOM, "/dev/urandom" ) ){ |
|
|
|
|
my $buf; |
|
|
|
|
# 57 bytes is a full line of Base64 coding, and contains |
|
|
|
|
# 456 bits of randomness - given a perfectly random /dev/random |
|
|
|
|
if ( read( RANDOM, $buf, 57 ) != 57 ) |
|
|
|
|
{ |
|
|
|
|
if ( read( RANDOM, $buf, 57 ) != 57 ){ |
|
|
|
|
warn("Short read from /dev/random: $!"); |
|
|
|
|
} |
|
|
|
|
else |
|
|
|
|
{ |
|
|
|
|
else{ |
|
|
|
|
$pw = encode_base64($buf); |
|
|
|
|
chomp $pw; |
|
|
|
|
} |
|
|
|
|
close RANDOM; |
|
|
|
|
} |
|
|
|
|
else |
|
|
|
|
{ |
|
|
|
|
else{ |
|
|
|
|
warn "Could not open /dev/urandom: $!"; |
|
|
|
|
} |
|
|
|
|
$rec->set_prop('DbPassword', $pw); |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|