#!/usr/bin/perl -w
#
# 2007-07 http://kimbriggs.com/
# Script uses the exiv2 program http://www.exiv2.org/
# to add EXIF metadata to JPGS and rename with timestamp.
#

#Initialize counter
$i = 1;

#Get the year of copyright
print "Enter the Year: ";
chomp($year = <>);

#Load all jpgs into an array.
@pix = `ls *.JPG`;

foreach $pix (@pix) {

   #Let you know it's working
	print "Processing photo ".$pix;
	
	#Use the program exiv2 to process EXIF metadata and rename the file with timestamp
	system("exiv2 -M'set Exif.Image.Artist YOUR_NAME_HERE' $pix");
	system("exiv2 -M'set Exif.Image.Copyright Copyright YOUR_NAME_HERE $year. [OPTIONAL_LICENSE]License: http://creativecommons.org/licenses/by-nc-sa/3.0/' $pix");
	system("exiv2 -r %Y_%m%d_%H%M%S $pix");

	$i = $i+1
}