[Omaha.pm] Newer version of iPhoto my butt

[Jay Hannah]

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;