+sub upload_raw {
+ my ($self, $r, $filename, $offered_name) = @_;
+ my $jpg = tmpnam().".jpg";
+ system("dcraw -c $filename | convert - $jpg");
+ $filename =~ /\.(.*)$/;
+ my $format = $1;
+ # Put the file in place
+ my $photo = $self->upload_jpeg($r, $jpg, $offered_name);
+ $photo->format($format);
+ copy($filename,
+ Memories->config->{data_store}."/".$photo->id.".".$format);
+ return $photo;
+}
+