Hi,
I am trying to send a file in response to a request but am having
trouble.
Here's what I have so far. I am not certain what the headers should
be. I am not getting any more info from my error_log except Premature
end of script headers.
my $s = (stat($file))[7];
my $filename = $user.'.csv';
seek $fh,0,0;
print header(-type=>"text/tab-separated-values",-Content_length=>$s,
-Content_Disposition=>"attachment;filename=$filename");
print $fh;
close($fh);
Can anyone offer some advice?
Thanx,
Dp.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
