# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1590848785 -32400
# Node ID 07863b13e3f9976113ec2115784fbba1716029a2
# Parent  d890694ff8ab63954e3d41da4b5fd17089551904
TEST: Extract basename of filename= argument of CGI params.

diff -r d890694ff8ab -r 07863b13e3f9 mpsplit.pl
--- a/mpsplit.pl	Sat May 30 14:09:21 2020 +0900
+++ b/mpsplit.pl	Sat May 30 23:26:25 2020 +0900
@@ -31,6 +31,7 @@
       $fn = $1;
     }
     $fn =~ s/ /_/g;
+    $fn =~ s,.*[/\\],,;
     open(OUT, ">$dir/$fn");
       print OUT $body;
     close(OUT);