Use FindBin and send USR1 to irssi

[ndwebbie.git] / lib / NDWeb / Controller / Root.pm

diff --git a/lib/NDWeb/Controller/Root.pm b/lib/NDWeb/Controller/Root.pm
index 7d5bf1ca2a32e5f422b51ce69824afe4fa572b6d..8a6ab6abce00df8223909fbd281a55399fcad48f 100644 (file)
--- a/lib/NDWeb/Controller/Root.pm
+++ b/lib/NDWeb/Controller/Root.pm
@@ -61,7 +61,7 @@ sub login : Local {
                        ,$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;
        }
@@ -173,7 +173,7 @@ sub end : ActionClass('RenderView') {
                }
        }
 
-       if ($c->user_exists && $c->res->status == 200){
+       if ($c->user_exists){
                my $fleetupdate = 0;
                if ($c->check_user_roles(qw/member_menu/)){
                        $fleetupdate = $dbh->selectrow_array(q{SELECT tick FROM fleets WHERE sender = ?
@@ -198,6 +198,13 @@ sub end : ActionClass('RenderView') {
                                        || $c->check_user_roles(qw/no_fleet_update/)))),
                $c->forward('listTargets');
        }
+       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