#! /usr/bin/perl

# Usage: $0 [-z] [-n] files ...
#       -z  also check gzip archive time
#       -n  don't actually touch, show what would be done

use Getopt::Std;
getopts('zn', \my %opt);

use List::Util q(max);
use IO::Uncompress::AnyUncompress;

use Archive::Tar;
$Archive::Tar::WARN = 0;

foreach (grep -f, @ARGV) {
        my $fh = new IO::Uncompress::AnyUncompress($_) or next;
        my $zt = $opt{z} && ($fh->getHeaderInfo||{})->{Time} || 0;
        my $tt = max map $_->{mtime}, Archive::Tar->list_archive($fh, 0, [q(mtime)]);
        my $t = max $zt, $tt;

        $t && ($t != (stat)[9]) && ($opt{n} || utime($t, $t, $_)) &&
        printf "%-60s %s (%s)\n", $_, scalar localtime($t),
                ($t == $tt) ? q(tar time) : q(zip time);
}