s4

diff mpsplit.pl @ 896:920818b41cd2

Application/{csv,json} forcibly handled as text/plain
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 31 Dec 2020 10:18:08 +0900
parents 07863b13e3f9
children
line diff
     1.1 --- a/mpsplit.pl	Sat May 30 23:26:25 2020 +0900
     1.2 +++ b/mpsplit.pl	Thu Dec 31 10:18:08 2020 +0900
     1.3 @@ -30,7 +30,7 @@
     1.4      if ($fn =~ /^([^\/]*)$/) {
     1.5        $fn = $1;
     1.6      }
     1.7 -    $fn =~ s/ /_/g;
     1.8 +    $fn =~ s/[ 	<>&\#'\"\&|*?]/_/g;
     1.9      $fn =~ s,.*[/\\],,;
    1.10      open(OUT, ">$dir/$fn");
    1.11        print OUT $body;