user-tools/reportcmdstatus

   1 #!/usr/bin/env perl
   2
   3 use POSIX;
   4 use Getopt::Long qw/:config no_ignore_case permute/;
   5 use Pod::Usage;
   6 use IPC::Run qw/start finish/;
   7
   8 $0 = "reportcmdstatus";
   9
  10 $report_start = 0;
  11 $clone_status = 0;
  12
  13 GetOptions(
  14         's|report-start!' => \$report_start,
  15         'c|clone!' => \$clone_status,
  16         'help|?' => sub{ pod2usage(-exitval=>0, -verbose=>99); },
  17         '<>' => sub{ unshift @ARGV, @_; die '!FINISH'; },
  18 ) or pod2usage(-exitval=>2, -verbose=>99);
  19
  20 if($report_start)
  21 {
  22         eval q{ use String::ShellQuote; 1; } or die $@;
  23         $COMMAND_STRING_QUOTED = join(' ', map {String::ShellQuote::shell_quote($_)} @ARGV);
  24 }
  25
  26 sub child_process_forked
  27 {
  28         if($report_start)
  29         {
  30                 printf STDERR "starting process %d: %s\n", $$, $COMMAND_STRING_QUOTED;
  31         }
  32 }
  33
  34 $ipc = start [@ARGV], init=>\&child_process_forked;
  35 $COMMAND_PID = $ipc->{KIDS}->[0]->{PID};
  36 finish $ipc;
  37 $status = $?;
  38
  39 if(WIFSIGNALED($status))
  40 {
  41         printf STDERR "command (pid $COMMAND_PID) terminated by signal: %d\n", WTERMSIG($status);
  42         $mystatus = 128 + WTERMSIG($status);
  43 }
  44 else
  45 {
  46         printf STDERR "command (pid $COMMAND_PID) exited with status: %d\n", WEXITSTATUS($status);
  47         $mystatus = WEXITSTATUS($status);
  48 }
  49
  50 exit $mystatus if $clone_status;
  51 exit 0;
  52
  53
  54 __END__
  55
  56 =pod
  57
  58 =head1 NAME
  59
  60 reportcmdstatus - Textually show how the given command finished (exit status/signal)
  61
  62 =head1 SYNOPSIS
  63
  64 reportcmdstatus [I<OPTIONS>] [--] I<COMMAND> [I<ARGS>]
  65
  66 =head1 OPTIONS
  67
  68 =over 4
  69
  70 =item -c, --clone
  71
  72 Take I<COMMAND>'s status and itself exits with it.
  73 Default is to exit 0.
  74
  75 If I<COMMAND> did not exit normally, but it is terminated by a signal,
  76 exit 128 + I<SIGNAL>, like most shells do.
  77
  78 =item -s, --report-start
  79
  80 Report what is being started, ie. I<COMMAND> I<ARGS>, to the STDERR.
  81
  82 =back
  83
  84 =cut
  85