sergiotarxz
09d976141b
The cualsead binary will be the server it delegates soon in Cualsea::Server::Loop and which will redirect requests to MessageController. Forking is not implemented and will be probably out of the project scope since this is a demo program. The MessageManager is pretty much inpired in the way sftp comunicates, but we soon stop sending raw binary data when we have comunicated the packet size to delegate in json which is more useful in Perl than handling fake struct logic.
11 lines
148 B
Perl
Executable File
11 lines
148 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.30.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Cualsea::Server::Loop;
|
|
|
|
my $loop = Cualsea::Server::Loop->new;
|
|
$loop->run while 1;
|