malhuda/AS-Stats
1
0
Fork 0
mirror of https://github.com/manuelkasper/AS-Stats.git synced 2025-02-20 11:44:12 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

+ add sync_ds.pl

Browse Source
This commit is contained in:
Manuel Kasper 2010-09-27 10:09:21 +00:00
parent 944c0909ad
commit cf9226c9c0
2 changed files with 65 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
README
View File

@ -8,6 +8,11 @@ Changes
xxx Fix for multiple entries with the same tag in the
knownlinks file (e.g. for LACP)
(contributed by Michal Buchtik)
Added sync_ds.pl script to contrib directory, which can
synchronize the data sources of RRD files with the tags
defined in the knownlinks file
(contributed by Michal Buchtik)
v1.32 Fix add_ds.sh to support new directory structure
(contributed by Sergei Veltistov)

60
contrib/sync_ds.pl Normal file
View File

@ -0,0 +1,60 @@
#!/usr/bin/perl
# This script synchronizes data sources of RRD files
# with tags defined in knownlinks file.
# It checks DS existence and add missing, but doesn't delete any
# superfluous DS from RRD!
use strict;
use RRD::Simple;
use Getopt::Std;
my %klfdsnames;
use vars qw/ %opt /;
getopts('r:k:', \%opt);
my $usage = "$0 [-rk]\n".
"\t-r <path to RRD files>\n".
"\t-k <path to known links file>\n";
my $rrdpath = $opt{'r'};
my $knownlinksfile = $opt{'k'};
die("$usage") if (!defined($rrdpath) || !defined($knownlinksfile));
die("$rrdpath does not exist or is not a directory\n") if ! -d $rrdpath;
die("$knownlinksfile does not exist or is not a file\n") if ! -f $knownlinksfile;
my @rrd_files = <$rrdpath/*/*.rrd>;
read_knownlinks();
my $rrd = RRD::Simple->new();
my $changed;
for my $file (@rrd_files) {
$changed = 0;
print "Processing $file...";
my @rrdsources = $rrd->sources($file);
foreach my$ds (keys %klfdsnames) {
if (!grep(/$ds/,@rrdsources)) {
print "\n adding missing ds \'$ds\'";
$rrd->add_source($file, $ds => 'ABSOLUTE');
$changed = 1;
}
}
print ($changed ? "\ndone.\n":" ok.\n");
}
sub read_knownlinks {
open(KLFILE, $knownlinksfile) or die("Cannot open $knownlinksfile!");
while (<KLFILE>) {
chomp;
next if (/(^\s*#)|(^\s*$)/); # empty line or comment
my ($routerip,$ifindex,$tag,$descr,$color) = split(/\t+/);
$klfdsnames{$tag."_in"}++;
$klfdsnames{$tag."_out"}++;
}
close(KLFILE);
return;
}