1#@!#!123s

: / usr / bin /
Filename : raider
back
#!/usr/local/lp/sonarperl/bin/perl

use lib (
  '/usr/lib/raider',
  '/usr/lib/raider/lib',
);

use strict;
use warnings;

use Raider::Base;
use Getopt::Long qw(:config no_ignore_case);
use Cwd;

my $baseObj = Raider::Base->new();

my ($run_jobs,$get_info,$version,$help,$check_api,$force_update_vendor_tools);

GetOptions(
  'run-jobs' => \$run_jobs,
  'get-info' => \$get_info,
  'version' => \$version,
  'check-api' => \$check_api,
  'force-update-vendor-tools' => \$force_update_vendor_tools,
  'help' => \$help
);

eval {
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm $Raider::Base::base_conf{global_timeout};
  $baseObj->if_running();
  $baseObj->handle_opts({ 
    run_jobs => $run_jobs, 
    get_info => $get_info, 
    version => $version,
    check_api => $check_api,
    force_update_vendor_tools => $force_update_vendor_tools,
    help => $help
  });
  $baseObj->do_exit();
  alarm 0;
};
if ( $@ && $@ eq "alarm\n" ) {
  $baseObj->logger({ 
    cat => 'c', 
    msg => "Committing suicide (goodbye world!); Global timeout of [$Raider::Base::base_conf{global_timeout}] seconds has been reached." 
  }); 
}

END {
  if ( $Raider::Base::base_conf{'MegaraidSAS_Present'} ) {
    my $cwd = getcwd();
    unlink ("$cwd/MegaSAS.log") if ( -e "$cwd/MegaSAS.log" );
    unlink ("$cwd/CmdTool.log") if ( -e "$cwd/CmdTool.log" );
  }
}