Stas Bekman wrote:
Index: t/filter/TestFilter/out_bbs_filebucket.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/out_bbs_filebucket.pm,v
retrieving revision 1.1
diff -u -r1.1 out_bbs_filebucket.pm
--- t/filter/TestFilter/out_bbs_filebucket.pm 13 Aug 2004 01:51:14
-0000 1.1
+++ t/filter/TestFilter/out_bbs_filebucket.pm 13 Aug 2004 17:24:19 -0000
@@ -58,6 +58,9 @@
$r->content_type('text/plain');
my $file = $r->args;
+ warn "file: $file\n";
+
+ $file =~ s|\\|/|g; # sendfile wants a unix style separator?
$r->sendfile($file);
The backslashes are URL-escaped, either of the following works:
$file =~ s|%5C|\\|g;
$file =~ s|%5C|/|g;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
