56 lines
1.8 KiB
Perl
Executable File
56 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
################################################################################
|
|
# Pandora XML count tool.
|
|
################################################################################
|
|
# Copyright (c) 2017-2023 Pandora FMS.
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License
|
|
# as published by the Free Software Foundation; version 2
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
################################################################################
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Check command line arguments.
|
|
if (!defined($ARGV[0])) {
|
|
die("Usage: $0 <path to Pandora FMS's spool directory>\n\n");
|
|
}
|
|
my $spool_dir = $ARGV[0];
|
|
|
|
# Open Pandora's spool directory.
|
|
opendir(my $dh, $spool_dir) || die("Error opening directory $spool_dir: $!\n\n");
|
|
|
|
# Count files by agent.
|
|
my %totals;
|
|
while (my $file = readdir($dh)) {
|
|
|
|
# Skip . and ..
|
|
next if ($file eq '.') or ($file eq '..');
|
|
|
|
# Skip files unknown to the Data Server.
|
|
next if ($file !~ /^(.*)[\._]\d+\.data$/);
|
|
|
|
# Update the totals.
|
|
my $agent = $1;
|
|
if (!defined($totals{$agent})) {
|
|
$totals{$agent} = 1;
|
|
} else {
|
|
$totals{$agent} += 1;
|
|
}
|
|
}
|
|
closedir($dh);
|
|
|
|
# Print the totals.
|
|
print "Number of .data files\t\tAgent name\n";
|
|
print "---------------------\t\t----------\n";
|
|
foreach my $agent (sort { $totals{$a} <=> $totals{$b}} keys(%totals)) {
|
|
print "$totals{$agent}\t\t\t\t$agent\n";
|
|
}
|