From 8e0276a0c6e0a79cf73769a6e04eec2bcb02aa12 Mon Sep 17 00:00:00 2001
From: leifj <leifj@0878fbc5-a6f2-46f6-b174-cb7b08c221d1>
Date: Sat, 18 Jul 2009 22:31:36 +0000
Subject: small script to generate xs:datetime dates

git-svn-id: svn+ssh://svn.it.su.se/svn/swamid-metadata/trunk@161 0878fbc5-a6f2-46f6-b174-cb7b08c221d1
---
 scripts/expiration_date.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 scripts/expiration_date.pl

(limited to 'scripts')

diff --git a/scripts/expiration_date.pl b/scripts/expiration_date.pl
new file mode 100755
index 00000000..cf297c5f
--- /dev/null
+++ b/scripts/expiration_date.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+
+use Date::Calc qw/Today_and_Now Add_Delta_Days/;
+my $delta = $ARGV[0];
+$delta = 30 unless $delta;
+
+($year,$month,$day,$hour,$min,$sec) = Today_and_Now();
+($year,$month,$day) = Add_Delta_Days($year,$month,$day,$delta);
+my $date = sprintf "%s-%02d-%02dT%02d:%02d:%02dZ",$year,$month,$day,$hour,$min,$sec;
+print $date;
+
-- 
cgit v1.2.3