X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=paste.pl;fp=paste.pl;h=7f3f5ff94ef3d557f301902fe36f7dbca9c1fa37;hb=73dcaed6aff4a245de910540b7c46a0809fa400f;hp=a750dfa6ecc70a745b11c6121fb5be8c5a1cee94;hpb=d31f72483a9123b384a5884f152da41e9c8f1f47;p=paste.git

diff --git a/paste.pl b/paste.pl
index a750dfa..7f3f5ff 100755
--- a/paste.pl
+++ b/paste.pl
@@ -37,7 +37,7 @@ post '/' => sub ($c) {
 		$file_content = $upload->slurp;
 	}
 
-	if ($filename !~ /\A\w[\w\.]*\.\w+\z/) {
+	if ($filename !~ /\A\w[\w-\.]*\.\w+\z/) {
 		# print STDERR "FILENAME2 = " . $upload->filename . "\n";
 		return $c->render(template => 'forbidden', status => 403);
 	}
@@ -47,7 +47,7 @@ post '/' => sub ($c) {
 };
 
 get '/<filename>.<ext>'
-	=> [ filename => qr/\w[\w\.]*/, ext => qr/\w+/ ]
+	=> [ filename => qr/\w[\w-\.]*/, ext => qr/\w+/ ]
 	=> sub ($c) {
 	my $fullname = $c->param('filename').'.'.$c->param('ext');
 	my $file = $datadir->child($fullname);