(SOLVED by Anonymous Monk)

Hello Perl Monks,

After hours of googling again, testing and trying everything I could find reference to, nothing has worked

This is the closest to functional code I can figure out, but it only shows partial images if they're >10k etc. I don't know the exact point where the error happens, but I believe it is do to gzip compression atm. How do I fix this? or a better method would equally be welcomed

Thank-you 

#!\usr\bin\perl.exe
use strict;
my $defaultDir=$ENV{'DOCUMENT_ROOT'};
my $fName = $defaultDir."/comingsoon.gif"; ##Example only @_[0]
$fName =~ tr/+/ /;
$fName =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$fName =~ s/<!--(.|\n)*-->//g;
my ($ext) = $fName =~ /\.([^.]+)$/; 
my ($ext) = $fName =~ /\.([^.]+)$/; 

if(-e $fName and ($ext eq "jpg"||"gif"||"bmp")) {
    my $length = (stat($fName)) [10];
    print "Content-type: image/$ext\n\n";
    binmode STDOUT;
    open (picfile,'<', $fName) || die "Could not open $fName: $!";
    my $buffer = "";
    while (read(picfile, $buffer, 10240)) { 
         print $buffer;
    }
    close(picfile);
}
exit;

[download]

PS: The reason i'm serving up images in this manner is so I can monitor WHO is using them and to count the usage. In the future, it will be used to block usage depending on account privilages etc

There isn't in existence

In reply to (SOLVED by Anonymous Monk) Gzip compression issue? by Inexistence

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.