2023-11-08 14:23:03 +03:00
|
|
|
package TestProject;
|
|
|
|
|
|
|
|
use Dancer2;
|
|
|
|
use Data::Dumper;
|
|
|
|
|
2023-11-09 14:49:14 +03:00
|
|
|
use DB;
|
|
|
|
|
2023-11-08 14:23:03 +03:00
|
|
|
our $VERSION = '0.1';
|
|
|
|
|
|
|
|
# самая крутая регулярка на email
|
|
|
|
my $regex_for_email =
|
|
|
|
qr((?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\]));
|
|
|
|
|
2023-11-10 15:17:18 +03:00
|
|
|
sub validate_address {
|
2023-11-10 12:00:53 +03:00
|
|
|
my $address = shift;
|
|
|
|
if ( $address =~ $regex_for_email ) {
|
2023-11-10 15:17:18 +03:00
|
|
|
return 1
|
2023-11-10 12:00:53 +03:00
|
|
|
}
|
2023-11-10 15:17:18 +03:00
|
|
|
return (0,'Invalid message')
|
2023-11-10 12:00:53 +03:00
|
|
|
}
|
|
|
|
|
2023-11-08 14:23:03 +03:00
|
|
|
get '/' => sub {
|
|
|
|
template 'get_address' => { title => 'Поиск Логов' };
|
|
|
|
};
|
|
|
|
|
|
|
|
post '/logs' => sub {
|
2023-11-10 15:17:18 +03:00
|
|
|
my $address = body_parameters->get('address');
|
|
|
|
my ($is_valid_address,$validation_message) = validate_address($address);
|
|
|
|
my %result;
|
|
|
|
|
|
|
|
if ($is_valid_address){
|
|
|
|
my $dbh = DB->new();
|
|
|
|
$dbh->connect();
|
|
|
|
%result = %{ $dbh->get_rows( $address ) };
|
|
|
|
}
|
2023-11-08 14:23:03 +03:00
|
|
|
|
|
|
|
template 'logs' => {
|
2023-11-10 15:17:18 +03:00
|
|
|
title => $address,
|
|
|
|
err => $validation_message,
|
|
|
|
alert => $result{alert} || [],
|
|
|
|
rows => $result{table} || [],
|
2023-11-08 14:23:03 +03:00
|
|
|
get_address => uri_for('/'),
|
|
|
|
};
|
|
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
true;
|
2023-11-10 15:17:18 +03:00
|
|
|
|