,$country,$c->sessionid,$remember);
my $ref = $c->req->referer;
- $ref =~ s/^http:/https:/;
+ $ref =~ s/^http:/https:/ unless $c->debug;
$c->res->redirect($ref);
return;
}
$c->stash(alliances => \@alliances);
}
+sub sslurl {
+ return $_[0];
+}
+
sub auto : Private {
my ($self, $c) = @_;
my $dbh = $c ->model;
$c->stash(dbh => $dbh);
- $c->stash(sslurl => sub {
- $_[0]->scheme('https') unless $c->debug;
- return $_[0];
- });
+ $c->stash(sslurl => \&sslurl);
$dbh->do(q{SET timezone = 'GMT'});
|| $c->check_user_roles(qw/no_fleet_update/)))),
$c->forward('listTargets');
}
+ if ($c->res->status == 200){
+ my $birthdays = $dbh->prepare(q{SELECT username
+ ,date_part('year',age(birthday)) AS age
+ FROM users WHERE birthday IS NOT NULL
+ AND mmdd(birthday) = mmdd(CURRENT_DATE)
+ });
+ $birthdays->execute;
+ $c->stash(birthdays => $birthdays->fetchall_arrayref({}));
+ }
}
=head1 AUTHOR