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, |