From: Simon Cozens <simon@simon-cozens.org>
Date: Sat, 24 Feb 2007 22:04:00 +0000 (+0000)
Subject: It's unlikely we'll get DOS people doing that but reminds me to do the
X-Git-Tag: 1.2+svn20070808~28
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=memories.git;a=commitdiff_plain;h=cb25f33bf3c79a5842ddb9461e56108e73dfbf40

It's unlikely we'll get DOS people doing that but reminds me to do the
same for the next checkin...


git-svn-id: http://svn.simon-cozens.org/memories/trunk@40 041978f6-d955-411f-a9d7-1d8545c9c3c7
---

diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index 12016ef..b7696b1 100644
--- a/Memories/Photo.pm
+++ b/Memories/Photo.pm
@@ -94,7 +94,7 @@ sub upload_file {
     my $mm = File::MMagic->new;
     my $res = $mm->checktype_filename($filename);
     warn "$filename is a $res\n";
-    if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz/) {
+    if ($res =~ m{/x-zip} or $offered_name =~ /t(ar\.)?gz/i) {
         return $self->upload_archive($r, $filename);
     } elsif ($res =~ m{image/jpeg}) {
         return $self->upload_jpeg($r, $filename, $offered_name);