wok-4.x annotate perl-rrd-simple/stuff/usr/bin/rrd_addsource @ rev 6419
Up: lxpanel to 0.5.6. I committed out my patch since it doesn't patch now. I also took battary montor out so lxpanel will build. All other plugins are there.
| author | Christopher Rogers <slaxemulator@gmail.com> |
|---|---|
| date | Sun Sep 26 17:02:23 2010 +0000 (2010-09-26) |
| parents | 471df2a3ab20 |
| children |
| rev | line source |
|---|---|
| pascal@3577 | 1 #!/usr/bin/perl |
| pascal@3577 | 2 |
| pascal@3577 | 3 use strict; |
| pascal@3577 | 4 use warnings; |
| pascal@3577 | 5 |
| pascal@3577 | 6 use RRD::Simple(); |
| pascal@3577 | 7 |
| pascal@3583 | 8 if (@ARGV != 3) { |
| pascal@3583 | 9 print "Usage: $0 rrdfile DSname DStype \n"; |
| pascal@3583 | 10 print "Example: $0 cpu.rrd nice COUNTER \n"; |
| pascal@3582 | 11 exit; |
| pascal@3577 | 12 } |
| pascal@3577 | 13 |
| pascal@3577 | 14 my $file = $ARGV[0]; |
| pascal@3577 | 15 my $dsname = $ARGV[1]; |
| pascal@3583 | 16 my $dstype = $ARGV[2]; |
| pascal@3577 | 17 |
| pascal@3577 | 18 my $rrd = RRD::Simple->new(); |
| pascal@3577 | 19 |
| pascal@3583 | 20 print "Add $dsname:$dstype into $file..."; |
| pascal@3583 | 21 $rrd->add_source($file, $dsname => $dstype); |
| pascal@3577 | 22 print " ok.\n"; |