use File::Slurp;
use File::Spec::Functions qw(:ALL);
use File::Temp;
+use Sys::Hostname ();
use SL::System::Process;
use constant PID_BASE => "users/pid";
+my $node_id;
+
sub status {
my ($self) = @_;
return kill('ALRM', $pid) ? 1 : undef;
}
+sub node_id {
+ return $node_id if $node_id;
+
+ $node_id = ($::lx_office_conf{task_server} // {})->{node_id} || Sys::Hostname::hostname();
+
+ return $node_id;
+}
+
#
# private methods
#