Netscape Cache austricksen ?

[Calocybe]

Hi!

sub print_gif{
        local($content_length);
        if ((open(GIF,"<".$result_gif))){

Fuer archaische Systeme wie Windows usw. noch:
                  
                   binmode(GIF); binmode(STDOUT);

$content_length = (stat (GIF))[7];
                
                print "Content-type: image/gif\n";

Hier noch die Cache-Control-Header:
            
                   print "Cache-control: no-cache\n";
                   print "Expires: ", HTTP::Date::time2str(time()), "\n";  
                   # weiter oben  use HTTP::Date ();  einbinden

print "Content-length: $content_length\n\n";
                print <GIF>;
                close (GIF);

HTH && So long