This allows the caller to determine if the command execution was successful as
well as capture the commands output.
This allows the caller to determine if the command execution was successful as
well as capture the commands output.
$CLEAROPTS{CLEAREXEC_MULTITHREADED} = $ENV{CLEAREXEC_MULTITHREADED}
if $ENV{CLEAREXEC_MULTITHREADED};
$CLEAROPTS{CLEAREXEC_MULTITHREADED} = $ENV{CLEAREXEC_MULTITHREADED}
if $ENV{CLEAREXEC_MULTITHREADED};
my ($self, $host, $port) = @_;
$host ||= $CLEAROPTS{CLEAREXEC_HOST};
my ($self, $host, $port) = @_;
$host ||= $CLEAROPTS{CLEAREXEC_HOST};
my ($status, $statusLine, @output) = (-1, '', ());
my ($status, $statusLine, @output) = (-1, '', ());
my ($self, $host, $client) = @_;
$self->_verbose ("Serving requests from $host");
# Set autoflush for client
my ($self, $host, $client) = @_;
$self->_verbose ("Serving requests from $host");
# Set autoflush for client
$self->_debug ("Returning 0, undef");
} else {
# Combines STDERR -> STDOUT if not already specified
$self->_debug ("Returning 0, undef");
} else {
# Combines STDERR -> STDOUT if not already specified
$self->_debug ("Executing $cmd");
($status, @output) = Execute $cmd;
$self->_debug ("Status: $status");
} # if
$self->_debug ("Executing $cmd");
($status, @output) = Execute $cmd;
$self->_debug ("Status: $status");
} # if