Re: Unable to get filename with quotes after upload?

As an anonymous monk commented, you should be able to do:

$form->{filename}->asString

But... emphasis on the word should. It doesn't work with your example. Firefox is correctly escaping the filename, but CGI.pm is not correctly dealing with the escaped quote.

On the version of CGI.pm on my system (3.49) the broken filename parsing code is on line 3577. It should be relatively easy to fix.

my ($filename) = $header{'Content-Disposition'}
    =~/ filename=(("[^"]*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;
[download]

Maybe something like...

my ($filename) = $header{'Content-Disposition'}
    =~/ filename=(("(?:\\\"|[^"])*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*)
+)/i;
[download]

Comment on Re: Unable to get filename with quotes after upload? Select or Download Code

Replies are listed 'Best First'.
Re^2: Unable to get filename with quotes after upload? by isync (Hermit) on Jan 16, 2012 at 15:57 UTC
Works, as I didn't want to patch my local CGI.pm, I've put this workaround into my code: my $upload_meta = $q->uploadInfo($form->{filename}); my ($filename) = $upload_meta->{'Content-Disposition'} =~/ filename=(( +"(?:\\\"\|[^"])")\|([a-z\d!\#'\\+,\.^_\`\{\}\\|\~]*))/i; substr($filename,0,1,''); chop($filename); $filename =~ s/\\"/"/g; [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Unable to get filename with quotes after upload?
by isync (Hermit) on Jan 16, 2012 at 15:57 UTC

my $upload_meta = $q->uploadInfo($form->{filename});
my ($filename) = $upload_meta->{'Content-Disposition'} =~/ filename=((
+"(?:\\\"|[^"])*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;
substr($filename,0,1,''); chop($filename); $filename =~ s/\\"/"/g;
[download]

[reply]
[d/l]