use Data::Dump qw(dump);
use File::Slurp;
+use POSIX qw(strftime);
use lib '.';
use Protocol;
my $raw;
foreach my $filename ( @ARGV ) {
- my $up_down = $1 if $filename =~ m/(up|down|sent)/;
+ my ( $up_down, $t );
+ if ( $filename =~ m/(\d+)\.(up|down|sent)/ ) {
+ $t = $1;
+ $up_down = $2;
+ } else {
+ warn "ERROR: can't parse $filename, skipping\n";
+ next;
+ }
my $raw = read_file $filename;
- print "# $filename size:", -s $filename, " ";
+ print "# ",strftime("%Y-%m-%dT%H:%M:%S",localtime($t)), " $filename size:", -s $filename, " ";
$up_down = 'down' if $up_down eq 'sent';
my $hash = protocol_decode( $up_down, $raw );