#!/usr/bin/perl # # This program handles running jobs that might take some time to complete. # # Exit codes; # 0 = Normal exit # 1 = md5sum of this program changed. Exited to reload. # # TODO: # use strict; use warnings; use Anvil::Tools; my $THIS_FILE = ($0 =~ /^.*\/(.*)$/)[0]; my $running_directory = ($0 =~ /^(.*?)\/$THIS_FILE$/)[0]; if (($running_directory =~ /^\./) && ($ENV{PWD})) { $running_directory =~ s/^\./$ENV{PWD}/; } # Turn off buffering so that the pinwheel will display while waiting for the SSH call(s) to complete. $| = 1; my $anvil = Anvil::Tools->new(); $anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 3, secure => 0, key => "log_0115", variables => { program => $THIS_FILE }}); # I should have been passed a 'job_uuid'. Read in the details. $anvil->nice_exit({exit_code => 0}); ############################################################################################################# # Functions # #############################################################################################################