#look for files in $DIR
sub collect_files {
	opendir(DIR, "$DIR");
	while (defined(my $file = readdir(DIR))) {
		if ( ! -d $file ) { &check_mime_type($file); }
	}
	closedir(DIR);
}


#collect files, create thumbnails and pass list of images back to cgi output
sub collect_thumbs {
	&collect_files;
	my @thumbs;
	opendir(DIR, "$DIR/thumbs");
	while (defined(my $file = readdir(DIR))) {
		if ( ! -d $file ) { push(@thumbs, $file); }
	}
	closedir(DIR);
	return @thumbs;
}