From 2be6e6b75e4b36226518ab007791b532574fd408 Mon Sep 17 00:00:00 2001
From: Sebastian <basti@notizbuch>
Date: Sun, 15 Jun 2014 22:53:19 +0200
Subject: [PATCH] apps/scan.pl: print current time at startup

---
 apps/scan.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/apps/scan.pl b/apps/scan.pl
index 4c15cf8..33e1290 100755
--- a/apps/scan.pl
+++ b/apps/scan.pl
@@ -30,6 +30,12 @@ sub main()
 	}
 	my $inbound = $ARGV[$argidx+1];
 
+	# print timestamp
+	my @ts = localtime(time);
+	my $ts = sprintf("%04d-%02d-%02d %02d:%02d:%02d",
+		$ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+	say basename($0).": Start at $ts";
+
 	my $fails = dispatch($inbound);
 	say "Finished with $fails errors.";
 
-- 
2.30.2