my $mm = File::MMagic->new;
my $res = $mm->checktype_filename($filename);
warn "$filename is a $res\n";
my $mm = File::MMagic->new;
my $res = $mm->checktype_filename($filename);
warn "$filename is a $res\n";
return $self->upload_archive($r, $filename);
} elsif ($res =~ m{image/jpeg}) {
return $self->upload_jpeg($r, $filename, $offered_name);
return $self->upload_archive($r, $filename);
} elsif ($res =~ m{image/jpeg}) {
return $self->upload_jpeg($r, $filename, $offered_name);