diff options
| author | Leif Johansson <leifj@sunet.se> | 2016-03-18 12:06:54 +0100 |
|---|---|---|
| committer | Leif Johansson <leifj@sunet.se> | 2016-03-18 12:06:54 +0100 |
| commit | a1d9696a14711245830990da69b094779e03244b (patch) | |
| tree | c02e05fe9796720bb3caf09c78c319177c6a970b /scripts/unique_id.pl | |
| parent | d5a90365d5c93570dc8d50538c20c1f87474cb2c (diff) | |
cleanup, implement PublicationInfo and remove saml-md-tool dependency
Diffstat (limited to 'scripts/unique_id.pl')
| -rw-r--r-- | 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 100644 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; + |