From: Steinar H. Gunderson <sesse@debian.org>
Date: Sun, 24 Jun 2007 18:51:23 +0000 (+0200)
Subject: Allow parenthesises in the file name.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=e8efcefae250ea2a5e5c248bb8f14d0f98074cb1;ds=inline

Allow parenthesises in the file name.
---

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 25b4408..8f30b7a 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -408,9 +408,9 @@ EOF
 		my $orig_filename = $filename;
 
 		# Remove evil characters
-		if ($filename =~ /[^a-zA-Z0-9._-]/) {
+		if ($filename =~ /[^a-zA-Z0-9._()-]/) {
 			if (defined($autorename) && $autorename eq "autorename/") {
-				$filename =~ tr/a-zA-Z0-9.-/_/c;
+				$filename =~ tr/a-zA-Z0-9.()-/_/c;
 			} else {
 				$r->status(403);
 				$r->content_type('text/plain; charset=utf-8');