now_date.plno-saml-md-tool

1 files changed, 7 insertions, 0 deletions

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;