[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl
Subject:    Re: File Corrupt when download with ModPerl scripts
From:       <aw () ice-sa ! com>
Date:       2015-02-05 9:36:03
Message-ID: 54D33983.6040503 () ice-sa ! com
[Download RAW message or body]

Michel,

from what you describe below, this sounds very unlikely to be a perl or mod_perl issue.
If I have to make a guess, I would say that what you download via perl/mod_perl is just 
not the same image file as what you think you download.  Maybe it is a thumbnail version 
of the original image ?

For start, add this after "    binmode($in);"

warn "About to return file <$fname>, size : " . -s $fname;

and then have a look at your webserver error log, to see if it is what you expect.

Michel Jansen wrote:
> Hi There,
> 
> Somehow images get corrupted when i read and then download them with a 
> modperl script using File::Read or File::Slurp. The images are not 
> really broken but they get blurred and dont look like before they are 
> uploaded. When i download them directly from the webserver directory 
> where they are stored they are ok.
> 
> I have also tried the script below but no success.
> 
> <-->
> 
>     print $args->{base}->{CGI}->header( -type => $mimetype, -attachment 
> => $document );
> 
>     my $fname = $file;
> 
>     open my $in, q{<}, $fname or die qq{Could not open file <$fname>: $!};
>     binmode($in);
> 
>     open my $out, q{>&STDOUT} or die qq{Cant dup STDOUT: $!};
>     binmode($out);
>     $out->autoflush(1);
> 
>     my ($more, $buf);
>     do{
>         $more = read $in, $buf, 4096;
>         print $out $buf;
>     } while $more;
> 
>     close $out or die $!;
>     close $in  or die $!;
> 
> <-->
> 
> Any hints that can help me out....?
> 
> Thanx in advance!
> 
> Michel
> 

[prev in list] [next in list] [prev in thread] [next in thread]