From: Sebastian <basti@notizbuch>
Date: Sun, 15 Jun 2014 20:53:19 +0000 (+0200)
Subject: apps/scan.pl: print current time at startup
X-Git-Url: http://sraa.de/git/?a=commitdiff_plain;h=2be6e6b75e4b36226518ab007791b532574fd408;p=fido.git

apps/scan.pl: print current time at startup
---

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.";