sergiotarxz
/
cualsea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding log of recognized actions.

This commit is contained in:
sergiotarxz 2021-11-13 15:00:01 +01:00
parent 9c1f1a7ecd
commit 09e7d74d2f
3 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cualsea-server/Makefile.PL
View File

@ -9,5 +9,6 @@ WriteMakefile(
test => { TESTS => 't/*/*.t' },
PREREQ_PM => {
'DBD::SQLite' => 0,
'DateTime' => 0,
}
);

6
cualsea-server/lib/Cualsea/Server/DB.pm
View File

@ -19,6 +19,12 @@ my @migrations = (
init TEXT,
pidfile TEXT,
binpath TEXT
);',
'CREATE TABLE log (
id INTEGER PRIMARY KEY,
date_execution TEXT,
parameters TEXT,
result TEXT
);'
);

13
cualsea-server/lib/Cualsea/Server/MessageController.pm
View File

@ -13,6 +13,8 @@ use Carp qw/carp/;
use Params::ValidationCompiler qw/validation_for/;
use Types::Standard qw/Object HashRef Str/;
use Try::Tiny;
use DateTime;
use JSON;
use Cualsea::MessageManager;
use Cualsea::Server::DB;
@ -23,7 +25,7 @@ sub handle_add {
my $init = $params{init};
my $pidfile = $params{pidfile};
my $binpath = $params{binpath};
if ( !-e $binpath || $init ne 'sysvinit' || !_validate_init_name($name) ) {
if ( $init ne 'sysvinit' || !_validate_init_name($name) ) {
return {
is_error => 1,
desc => "Parameters didn't pass contraints on add",
@ -295,7 +297,7 @@ sub new {
say "Got parameters:";
say Data::Dumper::Dumper $params;
if ( !exists $COMMANDS{$command} ) {
return { is_error => 1, status => 404 };
return { is_error => 1, status => 404, desc => 'Command don\'t exists.' };
}
my $command_info = $COMMANDS{$command};
@ -335,7 +337,12 @@ sub new {
if ( !defined $handle ) {
return { is_error => 1, status => 501 };
}
return $handle->(%params);
my $result = $handle->(%params);
my $dbh = Cualsea::Server::DB->dbh();
$dbh->do(<<'EOF', undef, DateTime->now().'', encode_json($message), encode_json($result));
INSERT INTO log (date_execution, parameters, result) VALUES (?, ?, ?);
EOF
return $result;
}
}