#!/usr/bin/perl -w

use strict;
use Date::Manip;

die "$0 refpict otherpict\n" unless $#ARGV == 1;

my ($pdate1, $pdate2);
my $date1 = `jhead $ARGV[0]`;
my $date2 = `jhead $ARGV[1]`;
$date1 =~ s#.*Date/Time    : (....:..:..) ([0-9:]*).*#$1/$2#sm;
$date2 =~ s#.*Date/Time    : (....:..:..) ([0-9:]*).*#$1/$2#sm;

($pdate1 = $date1) =~ s#(....):(..):(..)/([0-9:]*)#$1/$2/$3 $4#sm;
($pdate2 = $date2) =~ s#(....):(..):(..)/([0-9:]*)#$1/$2/$3 $4#sm;
$pdate1 = ParseDate("$pdate1 PDT");
$pdate2 = ParseDate("$pdate2 PDT");
print "Parsed dates are $pdate1 and $pdate2\n";

$_ = DateCalc($pdate1, $pdate2);

my $hourdiff = Delta_Format($_, 1, "%hv");
my $mindiff = sprintf("%2d", Delta_Format($_, 1, "%mv"));
if ($mindiff < 0)
{
    $mindiff =~ s/-//;
    $hourdiff = "-0" if ($hourdiff == 0);
}

print "Pict1 is $date1 and pict2 is $date2\n";
print "Diff is $hourdiff:$mindiff\n";
print "jhead -da$date1-$date2 $ARGV[1]\n";