SliTaz Repositories

     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl-rrd-simple/stuff/usr/bin/rrd_addsource	Fri Jun 26 13:37:49 2009 +0200
     1.3 @@ -0,0 +1,19 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +use strict;
     1.7 +use warnings;
     1.8 +
     1.9 +use RRD::Simple();
    1.10 +
    1.11 +if (@ARGV != 3) {
    1.12 +   print "Usage: $0 rrdfile DSname\n";
    1.13 +}
    1.14 +
    1.15 +my $file = $ARGV[0];
    1.16 +my $dsname = $ARGV[1];
    1.17 +
    1.18 +my $rrd = RRD::Simple->new();
    1.19 +
    1.20 +print "Add $dsname into $file...";
    1.21 +$rrd->add_source($file, 'DS_name' => $dsname);
    1.22 +print " ok.\n";