Miscellany

#!/usr/bin/perl

use Date::Calc qw(:all);
my @time = localtime(time);
my $today_date = sprintf("%04d-%02d-%02d",$time[5]+1900,$time[4]+1,$time[3]);
my $today_Y = sprintf("%04d",$time[5]+1900);
my $today_M = sprintf("%02d",$time[4]+1);
my $today_D = sprintf("%02d",$time[3]);
my $today_time = sprintf("%02d:%02d:%02d", $time[2], $time[1], $time[0]);
my $today_h=$time[2];
my $today_m=$time[1];
my $today_s=$time[0];

my $time=15;
my $result=`ls --full-time /home/data/scripts/summary/numViews_success.log`;

my $alertat=$time*60;

my @data = split (/ /,$result);

my ($file_Y,$file_M,$file_D) = split(/-/,$data[6]);
my ($file_time,$junk) = split(/\./,$data[7]);
my ($file_h,$file_m,$file_s) = split(/:/,$file_time);

#print $today_Y."-".$today_M."-".$today_D."-".$today_h.":".$today_m.":".$today_s."\n";
#print $file_Y."-".$file_M."-".$file_D."-".$file_h.":".$file_m.":".$file_s."\n";

my ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS($file_Y,$file_M,$file_D, $file_h,$file_m,$file_s, $today_Y,$today_M,$
today_D, $today_h,$today_m,$today_s);

my $delta = (($Dd * 24+$Dh)*60+$Dm)*60+$Ds;

my $age = int($delta/60);

if ($delta<$alertat){
  print "OK: numViews_success.log is good [$age minutes old]";
  exit 0;
}else{
  print "CRITICAL: numViews_success.log over $time minutes old [$age minutes old]";
  exit 2;
}