From 388ca8f34b980c8697b6b0dbdda2b118ffe6b8b2 Mon Sep 17 00:00:00 2001
From: Leif Johansson <leifj@sunet.se>
Date: Thu, 22 Oct 2015 12:16:35 +0200
Subject: no saml-md-tool, generate signatures with non-empty Reference@ID

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

(limited to 'scripts/unique_id.pl')

diff --git a/scripts/unique_id.pl b/scripts/unique_id.pl
new file mode 100755
index 00000000..d4837f24
--- /dev/null
+++ b/scripts/unique_id.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();
+print sprintf "_%s%02d%02dT%02d%02d%02dZ",$year,$month,$day,$hour,$min,$sec;
+
-- 
cgit v1.2.3