user-tools/rcmod

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 rcmod - Run a given command and modify its Return Code according to the rules given by the user
   8
   9 =head1 SYNOPSIS
  10
  11 rcmod [<FROM>=<TO> [<FROM>=<TO> [...]]] <COMMAND> [<ARGS>]
  12
  13 =head1 DESCRIPTION
  14
  15 If I<COMMAND> returned with code I<FROM> then rcmod(1) returns with I<TO>.
  16 I<FROM> may be a comma-delimited list.
  17 Keyword B<any> means any return code not specified in I<FROM> parameters.
  18 Keyword B<same> makes the listed exit codes to be preserved.
  19
  20   rcmod any=0 1=13 2,3=same user-command
  21
  22 It runs I<user-command>, then exits with status 13 if I<user-command> exited
  23 with 1, 2 if 2, 3 if 3, and 0 for any other return value.
  24
  25 If I<COMMAND> was terminated by a signal, rcmod(1) exits with 128 + signal number
  26 like bash(1) does.
  27
  28 =head1 SEE ALSO
  29
  30 reportcmdstatus(1), sigdispatch(1)
  31
  32 =cut
  33
  34
  35 use POSIX;
  36 use Pod::Usage;
  37
  38 %RCmap = ();
  39
  40 while(@ARGV)
  41 {
  42         if(my ($from, $to) = $ARGV[0] =~ /^([\d,]+|any)=(\d+|same)$/)
  43         {
  44                 shift @ARGV;
  45
  46                 for my $inner_rc (split /,/, $from)
  47                 {
  48                         my $outer_rc = $to;
  49                         $outer_rc = $inner_rc if $to eq 'same';
  50                         $RCmap{$inner_rc} = $outer_rc;
  51                 }
  52         }
  53         else
  54         {
  55                 last;
  56         }
  57 }
  58
  59 system @ARGV;
  60 $status = ${^CHILD_ERROR_NATIVE};
  61
  62 if(WIFSIGNALED($status))
  63 {
  64         $mystatus = 128 + WTERMSIG($status);
  65 }
  66 else
  67 {
  68         $mystatus = WEXITSTATUS($status);
  69 }
  70
  71
  72 if(exists $RCmap{$mystatus})
  73 {
  74         $mystatus = $RCmap{$mystatus};
  75 }
  76 elsif(exists $RCmap{'any'})
  77 {
  78         $mystatus = $RCmap{'any'};
  79 }
  80
  81 exit $mystatus;