Search Exchange
Search All Sites
Nagios Live Webinars
Let our experts show you how Nagios can help your organization.Login
Directory Tree
Robocopy logfile check
Meet The New Nagios Core Services Platform
Built on over 25 years of monitoring experience, the Nagios Core Services Platform provides insightful monitoring dashboards, time-saving monitoring wizards, and unmatched ease of use. Use it for free indefinitely.
Monitoring Made Magically Better
- Nagios Core on Overdrive
- Powerful Monitoring Dashboards
- Time-Saving Configuration Wizards
- Open Source Powered Monitoring On Steroids
- And So Much More!
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.
where
( e.g. smb://server/path/to/robocopy/logfile )
--maxAge
--user
--password
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.
Reviews (1)
byeduardo.kellenberger, January 5, 2024
#!/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;
#
# 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;