diff options
Diffstat (limited to 'metadata/scripts/expiration_date.pl')
| -rwxr-xr-x | metadata/scripts/expiration_date.pl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/metadata/scripts/expiration_date.pl b/metadata/scripts/expiration_date.pl deleted file mode 100755 index cf297c5f..00000000 --- a/metadata/scripts/expiration_date.pl +++ /dev/null @@ -1,11 +0,0 @@ -#!/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; - |