# Send filename and message to the parser,
# which will return if an action has to be performed.
- my @action = &Guardian::Parser::Parser("$parser", @message);
+ my $action = &Guardian::Parser::Parser("$parser", @message);
# Send the action to the main process and put it into
# the queue.
- if (@action) {
+ if (defined ($action)) {
# Lock the queue.
lock($queue);
# Put the required action into the queue.
- $queue->enqueue(@action);
+ $queue->enqueue($action);
}
} else {
# Sleep for 10ms until the next round of the loop will start.
#
sub Socket () {
# Create the Server socket by calling the responsible function.
- my $server = &Guardian::Socket::Server();
+ my $server = &Guardian::Socket::Server($mainsettings{SocketOwner});
# Log successfull creation of socket.
$logger->Log("debug", "Listening to Socket...");