#!/usr/bin/perl

use strict;
use File::Copy;

system "mount /mnt/flash";

opendir(R,"/mnt/flash/dcim");

foreach my $dir (grep /^\d+canon$/,readdir R) {
	opendir(P,"/mnt/flash/dcim/$dir");
		foreach my $pic (grep /jpg$/,readdir P) {
			if ($ARGV[0] eq "-m") {
				print "moving $pic\n";
				File::Copy::move("/mnt/flash/dcim/$dir/$pic","$pic")
			} else {
				print "copying $pic\n";
				File::Copy::copy("/mnt/flash/dcim/$dir/$pic","$pic");
			}
		}
	closedir P;
}

closedir R;

system "sync";
sleep 3;
system "umount /mnt/flash";

exit 0