| version 1.2, 2006/05/08 23:22:19 |
version 1.3, 2006/11/07 19:55:30 |
|
|
| #!/usr/bin/perl -T |
#!/usr/bin/perl -T |
| # $RedRiver: average_rrd,v 1.1 2006/05/08 19:52:53 andrew Exp $ |
# $RedRiver: average_rrd,v 1.2 2006/05/08 22:22:19 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| |
|
|
|
| |
|
| use constant VERBOSE => 0; |
use constant VERBOSE => 0; |
| |
|
| my $file = shift || '/var/www/wstationinfo/rrlhcwap3056/rrlhcwap3056-id_6-RSSI.rrd'; |
my $file = shift || 'test.rrd'; |
| |
|
| |
die "File '$file' does not exist!" unless -e $file; |
| |
|
| my %TIMES = ( |
my %TIMES = ( |
| FIVE_MINUTES => 5 * 60, |
FIVE_MINUTES => 5 * 60, |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to average_rrd CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / nagios / check_rrd / bin