{
    use MIME::Base64 qw(encode_base64);
    use Shell;

    chomp(my $passwd = dd("if=/dev/urandom count=2000 bs=1 2>/dev/null| tr -dc a-zA-Z0-9-_!@#$&* | cut -c-64"));

    my $rec = $DB->get('zarafa-server') || $DB->new_record('zarafa-server', {type => 'service'});

    my $pw = $rec->prop('DbPassword');
    return "" if $pw;

    $rec->set_prop('DbPassword', $passwd);
}
