106 lines
2.3 KiB
Perl
106 lines
2.3 KiB
Perl
package MyRedland::Controller::Metrics;
|
|
|
|
use v5.34.1;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
use MyRedland::Tracking;
|
|
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
use DateTime::Format::ISO8601;
|
|
use DateTime::Format::Mail;
|
|
use Crypt::Bcrypt qw/bcrypt bcrypt_check/;
|
|
|
|
my $tracking;
|
|
|
|
my $iso8601 = DateTime::Format::ISO8601->new;
|
|
sub request {
|
|
shift;
|
|
my $c = shift;
|
|
my $app = $c->app;
|
|
if (!defined $tracking) {
|
|
$tracking = MyRedland::Tracking->new($app);
|
|
}
|
|
$tracking->register_request($c);
|
|
}
|
|
|
|
sub stats {
|
|
my $self = shift;
|
|
if (!$self->valid_login) {
|
|
$self->res->headers->location('/stats/login');
|
|
$self->render(text => 'You must login', status => 302);
|
|
return;
|
|
}
|
|
my $data = $tracking->get_global_data($self);
|
|
my $data_per_url = $tracking->get_data_for_urls($self);
|
|
$self->render(tracking_data => $data, tracking_by_url => $data_per_url);
|
|
}
|
|
|
|
sub submit_login {
|
|
my $self = shift;
|
|
if ($self->valid_login) {
|
|
$self->res->headers->location('/stats');
|
|
$self->render(text => 'Already logged in.', status => 302);
|
|
return;
|
|
}
|
|
my $password = $self->param('password');
|
|
if (!defined $password) {
|
|
$self->render(text => 'No password passed.', status => 400);
|
|
return;
|
|
}
|
|
my $bcrypted_pass = $self->config->{bcrypt_pass_stats};
|
|
if (!defined $bcrypted_pass) {
|
|
warn "No bcrypt pass.";
|
|
$self->render(text => 'Server error.', status => 500);
|
|
return;
|
|
}
|
|
if (!bcrypt_check( $password, $bcrypted_pass->[0] )) {
|
|
$self->render(text => 'Wrong password', status => 401);
|
|
return;
|
|
}
|
|
say STDERR 'Login success.';
|
|
my $expiration_date = DateTime->now->add( days => 1);
|
|
$self->session->{login} = "date_end_login:$expiration_date";
|
|
$self->res->headers->location('/stats');
|
|
$self->render(text => 'Login success.', status => 302);
|
|
return;
|
|
}
|
|
|
|
sub valid_login {
|
|
my $self = shift;
|
|
my $login_cookie = $self->session->{login};
|
|
if (!defined $login_cookie) {
|
|
return;
|
|
}
|
|
|
|
my ($date_text) = $login_cookie =~ /^date_end_login:(.*)$/;
|
|
my $date;
|
|
eval {
|
|
$date = $iso8601->parse_datetime($date_text);
|
|
};
|
|
if ($@) {
|
|
warn "Bad date in cookie $login_cookie.";
|
|
return;
|
|
}
|
|
my $current_date = DateTime->now();
|
|
if ($current_date > $date) {
|
|
return;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
sub login {
|
|
my $self = shift;
|
|
if ($self->valid_login) {
|
|
$self->res->headers->location('/stats');
|
|
$self->render(text => 'You are already logged in.', status => 302);
|
|
return;
|
|
}
|
|
$self->render;
|
|
}
|
|
1;
|