#! /usr/bin/perl

# exif-timestamp-show.pl: show the exif DateTimeOriginal timestamp.

# Copyright (C) 2004  Nick Urbanik <nicku@nicku.org>

# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

use warnings;
use strict;

use Image::ExifTool;
use Time::Local;

sub get_exif_date_text($) {
    my ( $filename ) = @_;
    my $exifTool = new Image::ExifTool;
    my $exif_info = $exifTool->ImageInfo( $filename );
    my $datetimeoriginal = $exif_info->{DateTimeOriginal};
    return $datetimeoriginal;
}

foreach my $file ( @ARGV ) {
    print "$file does not exist\n" and next unless -e $file;
    my $date = get_exif_date_text $file;
    print "$file: $date\n" and next if $date;
    print "$file: no exif time stamp\n";
}