From defb28094a204925c628cce1cbe27c3a67d4cbbe Mon Sep 17 00:00:00 2001
From: Leif Johansson <leifj@sunet.se>
Date: Sun, 14 Feb 2016 14:13:40 +0100
Subject: now_date.pl

---
 scripts/now_data.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100755 scripts/now_data.pl

(limited to 'scripts')

diff --git a/scripts/now_data.pl b/scripts/now_data.pl
new file mode 100755
index 00000000..1a5e6890
--- /dev/null
+++ b/scripts/now_data.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+use Date::Calc qw/Today_and_Now/;
+
+($year,$month,$day,$hour,$min,$sec) = Today_and_Now();
+my $date = sprintf "%s-%02d-%02dT%02d:%02d:%02dZ",$year,$month,$day,$hour,$min,$sec;
+print $date;
-- 
cgit v1.2.3