smeserver-wordpress/root/etc/e-smith/db/configuration/migrate/80wordpress

11 lines
287 B
Plaintext
Raw Normal View History

{
use MIME::Base64 qw(encode_base64);
my $rec = $DB->get('wordpress') || $DB->new_record('wordpress', {type => 'service'});
my $pw = $rec->prop('DbPassword');
return "" if $pw;
$rec->set_prop('DbPassword', sprintf("%15.0f", int( (1000000000000000) * rand() )));
}