Robocopy logfile check

#!/usr/bin/perl
#
# check_robocopy.pl
# - A nagios plugin to monitor a regular robocopy backup job.
#
# Usage:
# check_robocopy.pl [--user ] [--password ] [--maxAge ]
#
# where
# Is the path of a robocopy logfile, which might be local or provided as a smb: URI
# ( e.g. smb://server/path/to/robocopy/logfile )
# --maxAge Check for a completed run in the last hours (default: 24 hours).
# --user The username, if fetching logfile via smb
# --password The password, if fetching logfile via smb
#
# Returns
# CRITICAL if no copy job was finished in the given timespan,
# WARNING if there were files/dirs which could not be copied and
# OK otherwise.
#
# Also provides performance data.
#
# Author: Moritz Bechler for Schmieder IT Solutions (http://www.schmieder.de)
# License: MIT License
#
# Copyright (c) 2010 Moritz Bechler
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
#


use strict;
use FindBin;
use lib "$FindBin::Bin";
use File::Temp;
use Getopt::Long;
use Date::Parse;
use Date::Format;
use DateTime::Format::Strptime;


my $user = '';
my $password = '';
my $maxAge = 24;

GetOptions('user=s' => \$user, 'password=s' => \$password, 'maxAge=n' => \$maxAge);

my $uri = shift;

if(!$uri) {
print "Usage: $0 [--user ] [--password ] [--maxAge ] smb://server/path/to/robocopy/logfile\n";
die "No logfile URI provided";
}

my $tmpfile = '';

if(! -e $uri) {
$tmpfile = tmpnam();

my $cmd = "/usr/bin/smbget -q -n -o $tmpfile ";
if($user) {
$cmd .= "-U $user";
}
if($password) {
$cmd .= "%$password ";
}
$cmd .= "$uri";

my $returnCode = system($cmd);
if ( $returnCode != 0 )
{
print "CRITICAL: Failed to fetch robocopy logfile\n";
exit(2);
}
} else {
$tmpfile = $uri;
}

sub strtonum {
my $str = shift;
chomp $str;
my $numpart = $str*1;
my $offset = 1;

if(substr($str,-1) == 'g') {
$offset = 1024*1024*1024;
} elsif (substr($str,-1) == 'm') {
$offset = 1024*1024;
} elsif (substr($str,-1) == 'k') {
$offset = 1024;
}
return int($numpart * $offset);
}

my $started = 0;
my $ended = 0;

my $filesTotal = 0;
my $filesCopied = 0;
my $filesSkipped = 0;
my $filesMismatch = 0;
my $filesFailed = 0;
my $filesExtra = 0;

my $dirsTotal = 0;
my $dirsCopied = 0;
my $dirsSkipped = 0;
my $dirsMismatch = 0;
my $dirsFailed = 0;
my $dirsExtra = 0;

my $bytesTotal = 0;
my $bytesCopied = 0;
my $bytesPerSec = 0;

my $totalTime = 0;



open TMPFILE, " '%A, %d de %B de %Y %H:%M:%S',
locale => 'es_ES',
);
my $dt_original = $parser->parse_datetime($fecha_original);
$dt_original->set_locale('en_US');
$dt_original->strftime('%a %b %d %I:%M:%S %Y');
}eg;

open $fh, '>', $tmpfile or die "No se puede abrir el archivo para escritura: $!";
print $fh $content;
close $fh;


while(my $line = ) {
if($line =~ m/\s*Started : (.*)$/) {
$started = str2time( $1 );
if(!$started) {
print "UNKNOWN: Failed to parse date\n";
exit 3;
}
}

if($line =~ m/\s*Ended : (.*)$/) {
$ended = str2time( $1 );
if($ended 0 or $dirsFailed > 0) {
print "WARNING: Some files failed to be backed-up";
$status = 1;
} else {
print "OK: Backup of $filesTotal files and $dirsTotal dirs finished in $totalTime on " . time2str("%c", $ended) . "";

}
print " | filesTotal=$filesTotal,dirsTotal=$dirsTotal,filesCopied=$filesCopied,dirsCopied=$dirsCopied,";
print "filesSkipped=$filesSkipped,dirsSkipped=$dirsSkipped,filesFailed=$filesFailed,dirsFailed=$dirsFailed,";
print "bytesPerSec=$bytesPerSec,bytesTotal=$bytesTotal,bytesCopied=$bytesCopied";
print "\n";


exit $status;