wok-stable view perl-rrd-simple/stuff/usr/bin/rrd_addsource @ rev 3582

perl-rrd-simple: update depends
author Pascal Bellard <pascal.bellard@slitaz.org>
date Fri Jun 26 17:57:24 2009 +0200 (2009-06-26)
parents 682806abeaec
children aa630ee8aa6f
line source
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use RRD::Simple();
7
8 if (@ARGV != 2) {
9 print "Usage: $0 rrdfile DSname\n";
10 exit;
11 }
12
13 my $file = $ARGV[0];
14 my $dsname = $ARGV[1];
15
16 my $rrd = RRD::Simple->new();
17
18 print "Add $dsname into $file...";
19 $rrd->add_source($file, 'DS_name' => $dsname);
20 print " ok.\n";