wok-current view perl-rrd-simple/stuff/usr/bin/rrd_addsource @ rev 3577

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