Binärdaten zum Browser senden

[speedy]

Hallo Forum,

es ist ein Kreuz :-) mit folgendem Code versuche ich, eine Datei zu packen und zum Browser zu senden:

<code>
#!/usr/bin/perl -w

print "Content-type: application/gzip\n";
print "Content-Disposition: filename=DATEI.gz\n\n";
system("gzip -c GD5.gif");
#gzip Aufruf: Schalter c gibt Ergebnis auf STDOUT aus
</code>

Das endet immer mit einem Internal Server Error:

<error>
[Fri Aug 25 10:06:00 2000] [error] [client 212.172.4.142] malformed header from script. Bad header=‹5"¦9: /usr/cgiwrap/cgiwrap
</error>

Hat jemand Erfahrungen mit sowas und kann mir weiterhelfen?

Viele Gruesse und dankeschoen
  speedy

[klaus]

Hallo speedy,

system("gzip -c GD5.gif");

probiers mal mit:

print "Content-type: application/gzip\n";
print qq!Content-Disposition: filename="DATEI.gz"\n\n!; # sicha is sicha
open( CMDOUT, "gzip -c GD5.gif ");
binmode CMDOUT;     # auch hier: sicha is sicha
print while (<CMDOUT>);
close CMDOUT;

Alternativ kann ich noch das Compress::Zlib-Modul erwähnen.

Das ist alles nur so ein Schuß ins Blaue ;-)

Grüße
   Klaus

[speedy]

Hi Klaus,

ich wollt mich nur bedanken, es funktioniert prächtig!!!

Du bist SUPER!

Viele Grüsse
  speedy