# This program is free software: you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation, either version 3 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program.  If not, see <http://www.gnu.org/licenses/>.

package CrashTest::Helper::DateTime;

use Mojo::Base 'Mojolicious::Plugin';

use DateTime::Format::Pg;

sub register {

    my ($self, $app, $conf) = @_;

    $app->helper(date_from_db_utc => sub {

        my $d = $self->_date_from_db_utc(@_);

        return "" unless $d;

        $d->set_time_zone('local')->strftime("%F %T");

    });

    $app->helper(date_with_tz_from_db_utc => sub {

        my $d = $self->_date_from_db_utc(@_);

        return "" unless $d;

        $d->strftime("%FT%TZ");

    });

    $app->helper(human_date_from_epoch => sub {

        my ($c, $ts) = @_;

        my $d;

        eval {

            $d = DateTime->from_epoch(epoch => $ts);

        };

        $c->app->log->warn($@) if $@;

        return "" unless $d;

        $d->set_time_zone('local')->strftime("%F %T");

    });

}

sub _date_from_db_utc {

    my ($self, $c, $dbdate) = @_;

    my $utcdate;

    eval {

        $utcdate = DateTime::Format::Pg->parse_datetime($dbdate)->set_time_zone('UTC');

    };

    $c->app->log->warn($@) if $@;

    return $utcdate;

}

1;