5 |
|
|
6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
use RRD::Simple; |
use RRD::Simple; |
8 |
use DateTime; |
use POSIX qw/mktime/; |
9 |
|
|
10 |
my $debug = 0; |
my $debug = 0; |
11 |
my $zoom = 2; |
my $zoom = 2; |
22 |
|
|
23 |
print STDERR "."; |
print STDERR "."; |
24 |
|
|
25 |
my $t = (stat($file))[9]; |
my $t = mktime( 0, $5, $4, $3, $2 - 1, $1 - 1900 ) if $file =~ m{(\d\d\d\d)-(\d\d)-(\d\d)/(\d\d)(\d\d)}; |
|
if ( $file =~ m{(\d\d\d\d)-(\d\d)-(\d\d)/(\d\d)(\d\d)} ) { |
|
|
$t = new DateTime( |
|
|
year => $1, |
|
|
month => $2, |
|
|
day => $3, |
|
|
hour => $4, |
|
|
minute => $5, |
|
|
)->epoch; |
|
|
} |
|
26 |
|
|
27 |
warn "# $file ", -s $file, " bytes [$t]\n" if $debug; |
warn "# $file ", -s $file, " bytes [$t]\n" if $debug; |
28 |
|
|