71 lines
1.6 KiB
Perl
71 lines
1.6 KiB
Perl
package Cualsea::Server::MessageController;
|
|
|
|
use v5.30.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
use Params::ValidationCompiler qw/validation_for/;
|
|
use Types::Standard qw/Object HashRef/;
|
|
|
|
use Cualsea::MessageManager;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
return bless {}, $class;
|
|
}
|
|
|
|
{
|
|
my $validator = validation_for(
|
|
params => {
|
|
socket => { type => Object },
|
|
}
|
|
);
|
|
|
|
sub dispatch {
|
|
my $self = shift;
|
|
my %params = $validator->(@_);
|
|
my $socket = $params{socket};
|
|
my $message_manager = Cualsea::MessageManager->new( socket => $socket );
|
|
my $message = $message_manager->read_message;
|
|
if ( !$self->check_is_command( message => $message ) ) {
|
|
$self->write_malformed(
|
|
message_manager => $message_manager );
|
|
return;
|
|
}
|
|
$message_manager->write_message( message => $message );
|
|
}
|
|
}
|
|
{
|
|
my $validator = validation_for(
|
|
params => {
|
|
message_manager => { type => Object }
|
|
}
|
|
);
|
|
|
|
sub write_malformed {
|
|
my $self = shift;
|
|
my %params = $validator->(@_);
|
|
my $message_manager = $params{message_manager};
|
|
$message_manager->write_message(
|
|
message => { is_error => 1, status => 400 } );
|
|
}
|
|
}
|
|
{
|
|
my $validator = validation_for(
|
|
params => {
|
|
message => { type => HashRef },
|
|
}
|
|
);
|
|
|
|
sub check_is_command {
|
|
my $self = shift;
|
|
my %params = $validator->(@_);
|
|
my $message = $params{message};
|
|
return 1 if exists $message->{command};
|
|
}
|
|
}
|
|
1
|