Changeset 75 for trunk/oarutils

Timestamp:

May 30, 2012, 11:18:20 AM (12 years ago)

Author:

g7moreau

Message:

• Add optin --kill and --transmit for signal handling

File:

• trunk/oarutils/oar-parexec (modified) (4 diffs)

trunk/oarutils/oar-parexec

@@ -16 +16 @@
 use Cwd qw( getcwd );
 
-my $file  = '';
-my $dir      = '';
-my $cmd      = '';
-my $logtrace = '';
+my $file;
+my $dir;
+my $cmd;
+my $logtrace;
 my $verbose;
-my $job_np = 1;
-my $nodefile = $ENV{OAR_NODE_FILE} || '';
+my $job_np         = 1;
+my $nodefile       = $ENV{OAR_NODE_FILE} || '';
 my $masterio;
 my $switchio;
 my $help;
-my $oarsh = 'oarsh -q -T';
+my $oarsh          = 'oarsh -q -T';
+my $sig_transmit;
+my $sig_checkpoint = 'USR2';
 
 Getopt::Long::GetOptions(
@@ -40 +42 @@
    'masterio=s' => \$masterio,
    'switchio'   => \$switchio,
+   'transmit'   => \$sig_transmit,
+   'kill=s'     => \$sig_checkpoint,
    ) || pod2usage(-verbose => 0);
 pod2usage(-verbose => 2) if $help;
@@ -141 +145 @@
 # OAR checkpoint and default signal SIGUSR2
 my $oar_checkpoint = new Coro::Semaphore 0;
-$SIG{USR2} = sub {
+$SIG{$sig_checkpoint} = sub {
    print "warning: receive checkpoint at "
       . time
@@ -147 +151 @@
       if $verbose;
    $oar_checkpoint->up();
+   kill $sig_checkpoint => keys %scheduled if $sig_transmit;
    };