Changeset 1687 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller

Timestamp:

01/28/16 16:34:17 (8 years ago)

Author:

nanardon

Message:

Add a default (funny) web page

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -6 +6 @@
 no utf8;
 use POSIX;
+use DateTime;
+use Date::Calc;
+use Date::Parse;
 
 #
@@ -65 +68 @@
 
     $c->res->status(404); 
+}
+
+sub index : Private {
+    my ( $self, $c ) = @_;
+
+    my $ouser = $c->model('Accounts')->db->get_object(
+        'user',
+        $c->user->{username},
+    );
+
+    my @cd = split('-', DateTime->from_epoch(
+        epoch => str2time(
+            $ouser->get_attributes('create'),
+        )
+    )->ymd('-'));
+    my @now = split('-', DateTime->now()->ymd('-'));
+
+    my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@cd, @now);
+    $c->stash->{accountExists} = join(', ',
+        ($Dy ? $c->loc('[_1] years', $Dy)  : ()),
+        ($Dm ? $c->loc('[_1] months', $Dm) : ()),
+        ($Dd ? $c->loc('[_1] days', $Dd)   : ()),
+    );
+
+    if (my $expire = $ouser->get_attributes('expire')) {
+        my @ed = split('-', DateTime->from_epoch(
+            epoch => str2time(
+                $expire
+            )
+        )->ymd('-'));
+
+        my ($Dy,$Dm,$Dd) = Date::Calc::N_Delta_YMD(@now, @ed);
+        $c->stash->{accountExpire} = join(', ',
+            ($Dy ? $c->loc('[_1] years', $Dy)  : ()),
+            ($Dm ? $c->loc('[_1] months', $Dm) : ()),
+            ($Dd ? $c->loc('[_1] days', $Dd)   : ()),
+        );
+    }
+
+
 }