changeset 716:07863b13e3f9

TEST: Extract basename of filename= argument of CGI params.
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 30 May 2020 23:26:25 +0900
parents d890694ff8ab
children 0f7dde18024b
files mpsplit.pl
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);

yatex.org