summaryrefslogtreecommitdiff
path: root/metadata/scripts/unique_id.pl
blob: 18ec9e13118fb6eb6a37df694ae37c06e53e4952 (plain)
1
2
3
4
5
6
7
#!/usr/bin/env perl

use Date::Calc qw/Today_and_Now/;

($year,$month,$day,$hour,$min,$sec) = Today_and_Now();
print sprintf "swamid%s%02d%02dT%02d%02d%02dZ",$year,$month,$day,$hour,$min,$sec;