From c8f42ae6ec354a19e9244fc69eec7ef2d319ce0c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 8 Oct 2020 12:23:58 +0200
Subject: [PATCH] display timestamp

---
 zc-queue-inspect | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/zc-queue-inspect b/zc-queue-inspect
index 34dc151..60ac5a2 100755
--- a/zc-queue-inspect
+++ b/zc-queue-inspect
@@ -4,6 +4,7 @@ use strict;
 
 use Data::Dump qw(dump);
 use File::Slurp;
+use POSIX qw(strftime);
 
 use lib '.';
 use Protocol;
@@ -19,9 +20,16 @@ if ( $debug > 1 ) {
 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 );
 
-- 
2.20.1