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

/etc/init.d/*: use 'action' in pair with 'status'.
'action' returns translated message, so why not to add full translatable /etc/init.d/* content
author Aleksej Bobylev <al.bobylev@gmail.com>
date Thu May 26 20:16:45 2016 +0300 (2016-05-26)
parents 471df2a3ab20
children
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 DStype \n";
10 print "Example: $0 cpu.rrd nice COUNTER \n";
11 exit;
12 }
13
14 my $file = $ARGV[0];
15 my $dsname = $ARGV[1];
16 my $dstype = $ARGV[2];
17
18 my $rrd = RRD::Simple->new();
19
20 print "Add $dsname:$dstype into $file...";
21 $rrd->add_source($file, $dsname => $dstype);
22 print " ok.\n";