Better formating for the new update_session_keys helper

This commit is contained in:
Daniel Berteaud 2015-06-29 19:26:20 +02:00
parent a018b2bf29
commit e77f0d6e29
1 changed files with 4 additions and 1 deletions

View File

@ -163,7 +163,10 @@ helper update_session_keys => sub {
my @keys = keys %$keys;
if (scalar @keys < 3){
$self->app->log->debug("Generating a new key to sign session cookies");
my $new_key = Session::Token->new(alphabet => ['a'..'z', 'A'..'Z', '0'..'9', '.:;,/!%$#~{([-_)]}=+*|'], entropy => 512)->get;
my $new_key = Session::Token->new(
alphabet => ['a'..'z', 'A'..'Z', '0'..'9', '.:;,/!%$#~{([-_)]}=+*|'],
entropy => 512
)->get;
unshift @keys, $new_key;
$self->app->log->info("new key: $new_key");
$sth = eval {