warn "$filename is a $res\n";
if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz$/i) {
return $self->upload_archive($r, $filename);
- } elsif ($offered_name =~ /\.(raw|nef)/i) {
+ } elsif ($offered_name =~ /\.(raw|nef|dng|cr2)/i) {
return $self->upload_raw($r, $filename, $offered_name);
} elsif ($res =~ m{image/jpeg}) {
return $self->upload_jpeg($r, $filename, $offered_name);