[Omaha.pm] Newer version of iPhoto my butt

[Jay Hannah <jay@jays.net>]

My uncle gave me a picture CD tonight he burned from iPhoto. But he's 
got the latest version and I haven't paid for that, so my iPhoto won't 
open the CD.

Forget them, then. I'll just snag all the .jpg's straight off the 
iPhoto CD (directory tree) into a new single directory (w/ a unique 
filename). Then, once I've got a single dir with all .jpgs in it I'll 
have my old iPhoto import that dir.

That'll teach Steve Jobs.

Grin,

j


my $cnt = 1;
open (IN, "find '/Volumes/iPhoto\ Library\ -\ 4\:5\:05' -iname '*.jpg' 
|");
while (<IN>) {
   chomp;
   next if (/originals/i);
   next if (/thumbs/i);
   my $full_path = $_;
   my $file = $_;
   $file =~ s/.*\///;
   $cmd = "cp '$full_path' lynn_photos/$cnt-$file";
   print "$cmd\n";
   `$cmd`;
   $cnt++;
}
close IN;