metadata/scripts/expiration_date.pl


1
2
3
4
5
6
7
8
9
10
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;