diff options
| author | Leif Johansson <leifj@sunet.se> | 2015-10-22 12:16:35 +0200 |
|---|---|---|
| committer | Leif Johansson <leifj@sunet.se> | 2015-10-22 12:16:35 +0200 |
| commit | 388ca8f34b980c8697b6b0dbdda2b118ffe6b8b2 (patch) | |
| tree | c6b5868d340ceb2b6ae0d22c2481162159e7804f /scripts | |
| parent | 5761571f285edd2153b685bba7ec6e2abce0c04f (diff) | |
no saml-md-tool, generate signatures with non-empty Reference@ID
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/unique_id.pl | 7 |
1 files changed, 7 insertions, 0 deletions
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; + |