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

Partial database implementation to be able to start with the logic.

Browse Source 
All before this commit was boilerplate code...
This commit is contained in:
sergiotarxz 2021-11-11 22:47:04 +01:00
parent d8cdb5ac64
commit 8c43403318
4 changed files with 92 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cualsea-cli/Makefile.PL
View File

@ -7,4 +7,7 @@ WriteMakefile(
INST_BIN => './bin',
test => { TESTS => 't/*.t' },
test => { TESTS => 't/*/*.t' },
PREREQ_PM => {
'Getopt::Long::Descriptive' => 0,
}
);

23
cualsea-cli/bin/cualsea
View File

@ -11,12 +11,31 @@ use IO::Socket::UNIX;
use Cualsea::FileSocket;
use Cualsea::MessageManager;
my $command = shift @ARGV or die 'No command passed';
my @arguments = @ARGV;
my $socket = IO::Socket::UNIX->new(
Type => SOCK_STREAM(),
Peer => $Cualsea::FileSocket::SOCKET_PATH,
) or die "Daemon not started";
my $message_manager = Cualsea::MessageManager->new(socket => $socket);
$message_manager->write_message( message => {hola => 'mundo'} );
$message_manager->write_message( message => {command => $command, arguments => \@arguments} );
print Data::Dumper::Dumper $message_manager->read_message;
my $message = $message_manager->read_message;
if ($message->{is_error}) {
for ($message->{status}) {
if (/^400$/) {
say STDERR 'The request was malformed.';
exit;
}
if (/^403$/) {
say STDERR 'You are not in the cualsea group.';
exit;
}
say 'Unknown Error';
exit;
}
}
print Data::Dumper::Dumper $message;

3
cualsea-server/Makefile.PL
View File

@ -7,4 +7,7 @@ WriteMakefile(
INST_BIN => './bin',
test => { TESTS => 't/*.t' },
test => { TESTS => 't/*/*.t' },
PREREQ_PM => {
'DBD::SQLite' => 0,
}
);

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

@ -9,10 +9,74 @@ use Data::Dumper;
use Socket qw/SOL_SOCKET SO_PEERCRED/;
use Params::ValidationCompiler qw/validation_for/;
use Types::Standard qw/Object HashRef/;
use Types::Standard qw/Object HashRef Str/;
use Cualsea::MessageManager;
my %commands = {
add => {
params => [
'name',
'init', # Only sysvinit supported
'pidfile',
'binpath'
],
validator => validation_for(
params => {
name => { type => Str },
init => { type => Str },
pidfile => { type => Str },
binpath => { type => Str },
}
),
},
del => {
params => [
'name'
],
validator => validation_for(
params => {
name => { type => Str },
}
),
},
report => {
params => [],
validator => validation_for(
params => {},
),
},
start => {
params => [
'name',
],
validator => validation_for(
params => {
name => { type => Str },
}
),
},
stop => {
params => [
'name',
],
validator => validation_for(
params => {
name => { type => Str },
}
),
},
restart => {
params => [
'name',
],
validator => validation_for(
params => {
name => { type => Str },
}
),
}
}
sub new {
my $class = shift;
return bless {}, $class;