Hi All. We ave hard coded the name of a file into our script as a variable, and we get
this error on running the script:
The server encountered an internal error or misconfiguration and was unable to
complete your request.
Please contact the server administrator, [EMAIL PROTECTED] and inform them of the time the
error occurred, and anything you might have done that may have caused the error.
[21861]ERR: 24: Line 4: Error in Perl code: Can't use string ("test.zip") as a symbol
ref while "strict refs" in use at /foo/bar/getfile.epl line 16, <GEN1> chunk 15.
Stronghold/3.0 Apache/1.3.12 C2NetEU/3011c (Unix) PHP/3.0.16 mod_ssl/2.6.4
OpenSSL/0.9.5a mod_perl/1.21 HTML::Embperl 1.3.1 [Thu Mar 21 13:22:52 2002]
#--------------------------------------------------------#
This is our script
[$ var $f1 $fh1 $offset $buffer
$]
[-
$escmode=0;
#$f1 = $fdat{'file'};
$f1 = "test.zip";
open (IN, $f1);
$fh1 = *IN;
$offset=0;
while (read ($fh1, $buffer, 1024, $offset)){
$offset += 1024;
}
close($f1);
$http_headers_out{'Content-Disposition'} = ": attachment; filename=$f1";
$http_headers_out{'Content-type'}= 'x-application/octet-stream';
print OUT $buffer;
-]
#---------------------------------------------------------#:
How do we disable this warning or work around it?
Michael Clarke
IRD Open Systems Team
Level 4, Telecom House
13-27 Manners Street
Wellington
Phone: +64 (04) 8031423
Mobile: +64 021 455 218
email: [EMAIL PROTECTED]
email: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
