#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <itsme@xs4all.nl>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id: tdiff 1502 2007-04-15 07:54:20Z itsme $
#

use strict;
use POSIX;
#use Time::localtime;
use File::stat;
use Date::Manip;
use Getopt::Long;

Date_Init("TZ=CET", "Internal=1");

my $timetype= "mtime";

GetOptions(
    "tc"=> sub { $timetype= "ctime"; },
    "ta"=> sub { $timetype= "atime"; },
    "tm"=> sub { $timetype= "mtime"; },
);

my @t;
for (@ARGV) {
    if (-e $_) {
        push @t, ParseDate(timetodatemanip(stat($_)->$timetype));
    }
    else {
        push @t, ParseDate($_);
    }
}
sub timetodatemanip {
    my $t= localtime shift;
    return $t;
}
for my $row (0..$#t) {
    for my $col (0..$row-1) {
        print("\t") if ($col);
        print DateCalc($t[$col], $t[$row]);
    }
    print("\n");
}