perlで*.lzhファイルをダウンロードさせるには？

KLAUS [E-Mail] 1999/06/29(火) 22:48:03
はじめまして、KLAUSと言います．

lzhファイルのダウンロード数をカウントさせるために、
perlでカウントして、
printt "Location: http://～～"
としています．
しかし、たまにhtmlとしてブラウザに表示されるときがあります．

perlで、lzhやzipファイルをブラウザにダウンロードさせるには、
　どの様にすれば1番よいのでしょうか？

皆さんのアドバイスよろしくお願いします．

B-Cus 1999/06/30(水) 13:58:22
うまくいくかはわかりませんが、Content-type を application/x-lzh か
application/octet-stream に設定してはどうでしょうか。

KLAUS [E-Mail] 1999/07/01(木) 01:04:09
B-Cusさん、レスありがとうございます．
早速、やってみましたが、*.lzhファイルがダウンロードされずに、
　perlファイル自体がダウンロードされます．
　(なぜなんだろ．．．？)

レスお待ちしてます．．

B-Cus 1999/07/01(木) 01:09:00
.htaccessに
　AddType application/x-lzh .lzh
と書いて、CGI側は print "Location: .." としておくか、
あるいはCGI側を
　print "Content-type: application....\n\n";
　open(IN,"hoge.lzh");
　print <IN>
としてはどうか、ということです。

KLAUS [E-Mail] 1999/07/02(金) 01:08:20
[[解決]]
B-Cusさん、ありがとうございます．

print "Content-type: application-z-lzh\n\n";
open(IN,"～.lzh");
print <IN>;

で、行けました．

ありがとうございました．

KLAUS [E-Mail] 1999/07/02(金) 01:09:14
[[解決]]
B-Cusさん、ありがとうございます．

print "Content-type: application/z-lzh\n\n";
open(IN,"～.lzh");
print <IN>;

で、行けました．

ありがとうございました．

KLAUS [E-Mail] 1999/07/02(金) 01:10:35
[[解決]]
すいません．
print "Content-type: application/x-lzh\n\n";
ですね．

[上に] [前に] [次に]