Hello,
I have a site where the config is a little strange. It works for years but I
just discovered it fails for (at least) one file. Here is the scenario :
I want to log (in a DB) all PDF downloads. So I set up things this way :
EMBPERL_OBJECT_BASE base.epl
<FilesMatch "\.(pdf|html)$">
SetHandler perl-script
PerlHandler Embperl::Object
Options ExecCGI
</FilesMatch>
And base.epl starts like this :
[-
warn('here');
-]
[$ if ($ENV{SCRIPT_NAME} =~ /\.pdf$/) $]
[-
$ENV{SCRIPT_NAME} =~ /.*\/(.*\.pdf)$/;
my $filename = $1;
Execute('auth.epl'); # This is where the logging takes place
if (open(PDF,$ENV{DOCUMENT_ROOT}.$ENV{SCRIPT_NAME})) {
$http_headers_out{'Content-type'}='application/pdf';
$http_headers_out{'Content-Disposition'}="attachment;
filename=$filename";
local ($/);
local ($escmode);
my $pdf=<PDF>;
print OUT $pdf;
close(PDF);
$waspdfok=1;
}
else {
$http_headers_out{'Location'}=["http://$ENV{SERVER_NAME}",404];
exit(1);
}
-]
[$ endif $]
For only one PDF I was getting this error :
Error in Perl code: Can't modify non-lvalue subroutine call in undef operator
at /var/www/sites/ecm/data/pdf/J_2010_05_241.pdf line 59, at EOF
And the "here" warning is never printed to the logs, for this PDF only.
I say "was getting" because after I changed something in the config, the error
does not
appear anymore BUT the "here" warning is still never printed (and, as you can
expect,
the PDF download is never logged).
As you see, this may not be optimal (at all) but PDF files are (I think)
"sourced" and I
guess the problem comes from this particular PDF containing
invalid/strange/UTF8?/whatever
character(s) preventing the base.epl to be called.
I've spent hours trying to understand/fix this but the best I could do was :
* get the PDF file to be downloadable (no more error preventing it) but not
loggable
* some debug info showing the difference between how 2 PDF files are treated :
The bad one :
[22400]REQ: ***** Start Request at Wed Dec 15 08:57:41 2010
[22400]Use App: HtmlEcm
[22408]Embperl::Object Request Filename:
/var/www/sites/ecm/data/pdf/J_2010_05_241.pdf
[22408]Embperl::Object basename: base.epl
[22408]Embperl::Object Check for base: /var/www/sites/ecm/data/pdf/base.epl
[22408]Embperl::Object Check for base: /var/www/sites/ecm/data/base.epl
[22408]Embperl::Object Check for base: /var/www/sites/ecm/base.epl
[22408]Embperl::Object Found Base: /var/www/sites/ecm/base.epl
[22408]Embperl::Object path: /var/www/sites/ecm/data/pdf
/var/www/sites/ecm/data /var/www/sites/ecm
[22408]Embperl::Object import new file:
/var/www/sites/ecm/data/pdf/J_2010_05_241.pdf
[22408] Use Recipe Embperl
[22400]Search for /var/www/sites/ecm/data/pdf/J_2010_05_241.pdf
[22400]Search: nothing to search return
/var/www/sites/ecm/data/pdf/J_2010_05_241.pdf
#### things get different here ####
[22400]Reading /var/www/sites/ecm/data/pdf/J_2010_05_241.pdf as input using
PerlIO (496821 Bytes)...
[22400]PERF: Parse Start Time: 0 ms
[22400]PERF: Parse End Time: 0 ms
[22400]PERF: Parse Time: 0 ms
[22400]PERF: DOMSTAT: MemUsage = 70288 Bytes numNodes = 32 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 106 numReplace = 5
[22400]PERF: Compile Start Time: 0 ms
[22400]PERF: Compile End Time: 0 ms
[22400]PERF: After Compile Exec End Time: 0 ms
[22400]PERF: Perl Compile End Time: 10 ms
[22400]PERF: Compile Time: 10 ms
[22400]PERF: DOMSTAT: MemUsage = 68224 Bytes numNodes = 25 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 103 numReplace = 5
[22400]ERR: 24: Error in Perl code: Can't modify non-lvalue subroutine call
in undef operator at /var/www/sites/ecm/data/pdf/J_2010_05_241.pdf line 59, at
EOF
[22408]Embperl::Object import file with ERRORS finished:
/var/www/sites/ecm/data/pdf/J_2010_05_241.pdf, package =
[22400]Using APACHE for output...
[22400]PERF: input = ???
[22400]PERF: Time: 10 ms
[22400]Request finished. Wed Dec 15 08:57:41 2010
. Entry-SVs: 34083 Exit-SVs: 34121
A good one :
[22400]REQ: ***** Start Request at Wed Dec 15 08:58:00 2010
[22400]Use App: HtmlEcm
[22409]Embperl::Object Request Filename:
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22409]Embperl::Object basename: base.epl
[22409]Embperl::Object Check for base: /var/www/sites/ecm/data/pdf/base.epl
[22409]Embperl::Object Check for base: /var/www/sites/ecm/data/base.epl
[22409]Embperl::Object Check for base: /var/www/sites/ecm/base.epl
[22409]Embperl::Object Found Base: /var/www/sites/ecm/base.epl
[22409]Embperl::Object path: /var/www/sites/ecm/data/pdf
/var/www/sites/ecm/data /var/www/sites/ecm
[22409]Embperl::Object import new file:
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22409] Use Recipe Embperl
[22400]Search for /var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search: nothing to search return
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
#### things get different here ####
[22400]Search for /var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search: nothing to search return
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search for /var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search: nothing to search return
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search for /var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22400]Search: nothing to search return
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf
[22409]SYNTAX: switch to Embperl::Syntax::Embperl
[22400]Reading /var/www/sites/ecm/data/pdf/J_2010_05_249.pdf as input using
PerlIO (513851 Bytes)...
[22400]PERF: Parse Start Time: 10 ms
[22400]PERF: Parse End Time: 10 ms
[22400]PERF: Parse Time: 0 ms
[22400]PERF: DOMSTAT: MemUsage = 113772 Bytes numNodes = 268 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 28
[22400]PERF: Compile Start Time: 10 ms
[22400]PERF: Compile End Time: 10 ms
[22400]PERF: After Compile Exec End Time: 10 ms
[22400]PERF: Perl Compile End Time: 20 ms
[22400]PERF: Compile Time: 10 ms
[22400]PERF: DOMSTAT: MemUsage = 114812 Bytes numNodes = 268 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 28
[22409]Embperl::Object import file finished:
/var/www/sites/ecm/data/pdf/J_2010_05_249.pdf, package = Embperl::__16
[22400]Using APACHE for output...
[22409] Use Recipe Embperl
[22400]Search for /var/www/sites/ecm/base.epl
[22400]Search: nothing to search return /var/www/sites/ecm/base.epl
[22400]Reading /var/www/sites/ecm/base.epl as input using PerlIO (2832 Bytes)...
[22400]PERF: Parse Start Time: 20 ms
[22400]PERF: Parse End Time: 20 ms
[22400]PERF: Parse Time: 0 ms
[22400]PERF: DOMSTAT: MemUsage = 113772 Bytes numNodes = 285 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 28
[22400]PERF: Compile Start Time: 20 ms
[22400]PERF: Compile End Time: 20 ms
[22400]PERF: After Compile Exec End Time: 20 ms
[22400]PERF: Perl Compile End Time: 20 ms
[22400]PERF: Compile Time: 0 ms
[22400]PERF: DOMSTAT: MemUsage = 114812 Bytes numNodes = 268 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 33
[22400]ERR: 32: Warning in Perl code: ici at /var/www/sites/ecm/base.epl line
3.
[22409] Use Recipe Embperl
[22400]Search for basedb.epl
[22400]Search: #0 test dir=/var/www/sites/ecm/data/pdf,
fn=/var/www/sites/ecm/data/pdf/basedb.epl (skip=0)
[22400]Search: #1 test dir=/var/www/sites/ecm/data,
fn=/var/www/sites/ecm/data/basedb.epl (skip=0)
[22400]Search: #2 test dir=/var/www/sites/ecm, fn=/var/www/sites/ecm/basedb.epl
(skip=0)
[22400]Search: found /var/www/sites/ecm/basedb.epl
[22400]PERF: Run Start Time: 20 ms
[22400]PERF: Run End Time: 20 ms
[22400]PERF: Run Time: 0 ms
[22400]PERF: DOMSTAT: MemUsage = 117764 Bytes numNodes = 269 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 33
[22409] Use Recipe Embperl
[22400]Search for auth.epl
[22400]Search: #0 test dir=/var/www/sites/ecm/data/pdf,
fn=/var/www/sites/ecm/data/pdf/auth.epl (skip=0)
[22400]Search: #1 test dir=/var/www/sites/ecm/data,
fn=/var/www/sites/ecm/data/auth.epl (skip=0)
[22400]Search: #2 test dir=/var/www/sites/ecm, fn=/var/www/sites/ecm/auth.epl
(skip=0)
[22400]Search: found /var/www/sites/ecm/auth.epl
[22400]PERF: Run Start Time: 20 ms
[22400]PERF: Run End Time: 30 ms
[22400]PERF: Run Time: 10 ms
[22400]PERF: DOMSTAT: MemUsage = 121996 Bytes numNodes = 273 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 284 numReplace = 33
[22400]ERR: 32: Warning in Perl code: v2 at /var/www/sites/ecm/base.epl line 31,
<GEN1> line 3.
[22400]PERF: Run Start Time: 20 ms
[22400]PERF: Run End Time: 40 ms
[22400]PERF: Run Time: 20 ms
[22400]PERF: DOMSTAT: MemUsage = 121916 Bytes numNodes = 277 numLevelLookup =
0 numLevelLookupItem = 0 numStr = 285 numReplace = 33
[22400]PERF: input = ???
[22400]PERF: Time: 40 ms
[22400]Request finished. Wed Dec 15 08:58:00 2010
. Entry-SVs: 37260 Exit-SVs: 37609
My question is : is there a better way than this <FilesMatch "\.(pdf|html)$">
hack to get what I want ?
Or should I continue with this technique but bypassing any "read error"
(with something like the unimplemented-as-the-doc-says EMBPERL_INPUT_CHARSET ?)
I use embperl 2.3.0-1 on a Debian Lenny system.
Thanks for your help.
JC
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-h...@perl.apache.org
