CGIを使ったパスによるダウンロード

質問

現在，Dreamweaver CS5.5 (Mac版)を使ってウェブサイトを作成しています（OSはMac OS X 10.6.8で，サーバーはロリポップのレンタルサーバー）。
パスによるダウンロードフォームを設置しようと思いまして，こちらのサイト↓
http://www.kent-web.com/pwd/login.html
で無料CGI（アクセス制限・簡易タイプ）を入手しました。

教えて！gooでのアドバイスも受けて，何とか配布サイトの指示通りには無事に設置できたのですが，その先がうまくいきません。

上記無料CGIはログインフォームで，パスを入力してボタンをクリックすると特定のファイルに飛ぶというものなのですが，
このリンク先にzipファイルを置いても，それだけではダウンロードできないものなのでしょうか。

具体的には，
上記CGIのうち，init.cgiに
$cf{secfile} = 'zipファイルの相対パス（例えば，./private/secret.zip）';
と記述し，それをlogin.cgiに渡すようにしたのですが，
それでは，パスを入力してボタンを押しても，大量の意味不明文字（文字化け）が出るだけで，zipがダウンロードされません。
ちなみに，zipファイルでなく，例えば画像ファイルにした場合には，ボタンを押すと，画像がブラウザ上で表示されます。

パスワードを入力し，ボタンを押すと，直接（途中にHTMLを噛ませたりしないで），設定しておいたzipファイルをダウンロードするようにしたいのですが，どなたかその方法をご存知の方がいらっしゃいましたら，ご教授願えると幸いです。

回答No.2

superside0 · ベストアンサー

お使いのlogin.cgiの4１行目が
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-type: text/html\n\n";
print <IN>;
close(IN);
の固定なので、CGI自体がファイルのダウンロードには対応できてないようです。

絶対パス記述の方式だと、Locationでのリダイレクトなので、移動先を直リンクされると、
認証なしでだれでもダウンロードされますので用途には、厳しい気がします。

別の　CGIを探すか、

拡張子がzipのときは、
my $size = -s $cf{secfile};
my $filename = $cf{secfile};
$filename =~ s|([^/]*?)$||;
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n";
print <IN>;
close(IN);

のコードをこのlogin.cgiってファイルに挿入すれば、ダウンロードしてくれると思います。
（試してないので、タイプミスあるかも）

お礼

早速のご回答，並びにわざわざコードまで書いて頂いて，誠に有り難うございます。

>コードをこのlogin.cgiってファイルに挿入すれば、ダウンロードしてくれると思います。

しかし，残念ながらこのコードをそのままlogin.cgiに挿入（ちなみに，末尾に挿入しました）してみたのですが，問題は改善しませんでした。
せっかくご尽力頂いたにもかかわらず，申し訳ありません（未熟ながらじっくり眺めてみたのですが，タイプミスがあるとは思えませんでした）。

ご回答，誠に有り難うございました。

回答No.8

takkun3728

どうも、無事解決されて良かったです！
私もホッと＆スッキリしました。

ベストアンサーはもちろんNo.2の方でおねがいします。

ここはGive and takeなサイトで良いですね。
というのも、私も自分の質問をしており、そのご回答待ち時間に、自分に出来る分野でご回答させて頂いております。
なので、次回は、私は質問者の立場でお会いするかもしれません！

・・・ではまたサイト内のどこかでお会いする日まで・・・(^^)/

お礼

>ここはGive and takeなサイトで良いですね。
>というのも、私も自分の質問をしており、そのご回答待ち時間に、自分に出来る分野でご回答させて頂いております。

あ，同じです(笑)。
質問を投稿中は教えて！gooに頻繁にアクセスしたりするので，自然，回答する機会も増えますね。
私も，takkun3728さんから頂いた恩を，どこかで誰かに返したいものです。

>なので、次回は、私は質問者の立場でお会いするかもしれません！
法律学（特に刑法学）が専門なので，その手の質問があれば，タイミングが合えばいつか直接ご恩が返せるかもしれません！

それでは，有り難うございました^^

回答No.7

takkun3728

どうもです。

偶然私も同じサーバの利用者だったので、テストしてみました。
その結果、確かに500がでるようでした。
そこでレスポンスヘッダーまわりを確認したところ、最後の
Content-Type: application/octet-stream
の出力のあとで、ヘッダー終端を示すため、もう一個改行(\n)が
必要だったことがわかりましたので、修正したところ、500エラーが出なくなりました。

このため、以下に修正コードを記します。

では今回もご参考まで・・・（でもたぶんこれでいけると思いますよ！^^）
---以下コード(当該login.cgi,39行目～)---
# HTMLの場合
} else {
my $size = -s $cf{secfile};
my $filename = $cf{secfile};
if( $filename =~ m|.*/(.*)$|i ) {
$filename = $1;
}
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n\n";
print <IN>;
close(IN);
}

exit;
}

#-----------------------------------------------------------
# 認証画面

お礼

いけた…
ついにいけましたよ！！

ほんっとうにありがとうございます。
takkun3728さん，superside0さんには本当にお世話になりました。
無償の質問サイトなのに根気づよく丁寧にご指導頂きまして，感謝し尽くせないほどです。
ここ数日の悩みがやっとスッキリして，晴れ晴れとした気持ちです。

>偶然私も同じサーバの利用者だったので、
この偶然が神懸かりでした。

質問は数日のうちに閉め切る予定です。
ベストアンサーは最初にコードを書いて下さったsuperside0さん，最終的な決め手を提供して下さったtakkun3728さんで迷うところですが，
やはりtakkun3728さんのご指示通り，コードを書いて下さった（本当は仕事として発注すべきことなのに！）superside0さんにしたいと思います。
でも，takkun3728さんも，superside0さんと同着ベストアンサーです！私の心の中では！

>でもたぶんこれでいけると思いますよ！^^

こういう温かいお言葉が嬉しかったです。
本当に，本当に，有り難うございました。

回答No.6

takkun3728

質問者さん、No.2さん、どうもです。

うーん、まだ500でていますか・・・。

改造前は動いていたのですよね？

では、動いている状態からステップバイステップでやってみて、どの時点で500エラーが出るか確かめてみたらいかがでしょう。

手順としてはこんな感じです：

０、改造前の動く状態（スタート）
　　　　　　↓
１、login.cgiをエディタで開いて上書き保存するだけで実行してみる。
　　　　　　↓
２、目指す完成コードを参考に、login.cgiの39行目
# HTMLの場合
} else {
以降に、変更部分を少しずつ挿入しては都度実行していく。まずは
my $size = -s $cf{secfile};
を挿入して実行。
　　　　　　↓
３、以降、同様に、
my $filename = $cf{secfile};
を挿入して実行。
　　　　　　↓
４、
if( $filename =~ m|.*/(.*)$|i ) {
$filename = $1;
}
を挿入して実行。
　　　　　　↓
５、
print "Content-type: text/html\n\n";
の部分に、
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n";
を上書きして実行・・・。

といった感じです。

上記の１～５までのどの時点から、500エラーが出るようになるかがわかるだけでも、大分原因が絞り込めるかもしれません。

ちなみに、上記のことを試す場合は、今までいじっていたlogin.cgiではなくて、新しくダウンロードした新品のlogin.cgiを使い、それが動作するようにした時点から始めると良いと思います。

では今回もご参考まで、無事解決されると良いですね。

お礼

本当に本当に，親切にして頂いて，ありがとうございます！！
ご指摘頂いた方法でチェックをかけてみたところ，5のタイミング，
つまり，
print "Content-type: text/html\n\n";
を
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n";
に入れ替えたところで500エラーが生じるので，ここの問題なのだとは思うのですが，
どこにもミスがあるように思えません。

試しに，この3行の順番を入れ替えてみたり（検索した限り，DispositionがTypeより先にあるとエラーがでる〔500エラーではないですが〕という方がいたので），print "Content-Length: $size\n";を削ってみたりしたのですが，駄目でした（全て500エラー）。

本当に，ご尽力に報いられず，歯がゆく，申し訳ない限りです。

回答No.5

superside0

No.4さん、フォローありがとうございます！

パス付きのファイル名からファイル名だけを取り出すのに
$filename =~ s|([^/]*?)$||;
って書いちゃいましたけど、これじゃディレクトリ名の取り出しですね。
間違えてました。

$filename =~ s|^.*/||;
って書きなおそうと思いましたが、
No.4さんに適切に修正して頂いて　ありがとうございます。

500のエラー(Server Internal Error)の件は、
perlのパスの間違いとか、ブランクのつもりが全角の空白をいれたとか、
改行コードの間違いとか、パーミッション設定とか、そういうのだと思います。

特に多いトラブルは、もともと配布されたCGIファイルは、CRの改行コードだったのに
ローカルで修正したときに、Windows形式のCR+LFとか、MacのLFの改行コードで保存してしまって
改行コードを変えてしまい、そのままではUNIX系のサーバーでは動かないというケースです。
改行コードを変えてしまっても、ftpするときに、
画像ファイルやzipファイルを転送するバイナリーモードでなく、
サーバーの改行コードに合わせてくれるアスキーモードで転送すれば
解決できると思います。

お礼

お礼が遅くなってしまい申し訳ありません。

昨日色々試行錯誤してみたのですが，結局500エラーの原因を突き止めることができませんでした。

>perlのパスの間違いとか、
perlのパスは，ロリポップの指定は/usr/local/bin/perlで，login.cgiでは/usr/local/bin/perl --としています。
これは，アスキーモードで転送したはず（FTPExtensionMapMac.txtでの設定はチェック済）なのに，上手く動作しなかったために" --"を挿入したものです。この点は，過去にhttp://oshiete.goo.ne.jp/qa/7606192.htmlで質問させて頂きました。

>ブランクのつもりが全角の空白をいれたとか、
構文チェック用のフリーcgiでチェックし，目視でも入念にチェックしたのですが，やはりコードに問題はないようです。

>改行コードの間違いとか、
>特に多いトラブルは、もともと配布されたCGIファイルは、CRの改行コードだったのに
>ローカルで修正したときに、Windows形式のCR+LFとか、MacのLFの改行コードで保存してしまって
>改行コードを変えてしまい、そのままではUNIX系のサーバーでは動かないというケースです。
サーバーに置かれたlogin.cgiの改行コードはLF(UNIX形式)で間違いないようですし，

>パーミッション設定とか、
これも，ロリポップ指定の700に設定されています。

色々と可能性を探ってアドバイスを頂いたにもかかわらず，良いご報告ができず，申し訳ありません。
もう少し粘って原因を究明したいと思います。

回答No.4

takkun3728

横からすみません。

No.2さんのコードで500エラーがでたとのことですが、とりあえず私の環境でチェックしてみたところ、構文(perl -c)はOKなようでしたので、下記の点を含め、今一度確認されてみてはいかがでしょう？

・修正コードを正しく反映しているか。（念のため下記に両側のコメント部分からの修正後コードを記します）
・文字コードを変えてしまってないか。(Shift-JISです)
・コピペしたときに変なコードが混じっていないか。ダブルクオートなどがきちんとしているか。
・パーミッションは正しく設定されているか。
・など

シェルが使えるようであれば、perl -c login.cgiでチェックすると、500エラーの理由が分かることが多いのですが、そうでなければ試行錯誤してみるほか無いと思います。

ところで、No.2さんのコードですが、私のテスト環境では、パスを除いたファイル名を取得する部分が、うまく機能しなかったので、下記のように修正してみました。（ただ、上述の通り、構文はチェックはパスしましたので、500エラーの原因ではないと思います）

では今回もあくまでご参考まで・・・。

（P.S. 解決した場合はベストアンサーはNo.2の方にして頂ければ幸いです。回答内に具体的なコードを書いてくれる方は、とても素晴らしい回答者ですので・・・。）
---以下コード(当該login.cgi,39行目～)---
# HTMLの場合
} else {
my $size = -s $cf{secfile};
my $filename = $cf{secfile};
if( $filename =~ m|.*/(.*)$|i ) {
$filename = $1;
}
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n";
print <IN>;
close(IN);
}

exit;
}

#-----------------------------------------------------------
# 認証画面

お礼

お礼が遅くなってしまい申し訳ありません。

昨日色々試行錯誤してみたのですが，結局500エラーの原因を突き止めることができませんでした。

>修正コードを正しく反映しているか。（念のため下記に両側のコメント部分からの修正後コードを記します）
>コピペしたときに変なコードが混じっていないか。ダブルクオートなどがきちんとしているか。
構文チェック用のフリーcgiでチェックし，目視でも入念にチェックしたのですが，やはりコードに問題はないようです。

また，
>文字コードを変えてしまってないか。
文字コードもShift-JISになっていますし，

>パーミッションは正しく設定されているか。
これも，ロリポップ指定の700に設定されています。

色々と可能性を探ってアドバイスを頂いたにもかかわらず，良いご報告ができず，申し訳ありません。
もう少し粘って原因を究明したいと思います。

回答No.3

superside0

説明不足でした。
login.cgiの最後に挿入するのではなくて
41行目からの
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-type: text/html\n\n";
print <IN>;
close(IN);
の代わりに、記載したコード入れかえるということです。

（もう少しプログラムが理解できるようなら、
指定されたファイルの拡張子によって、if文によって、いままで通りのコードと
記載したコードか切り替われば、汎用性が高くなるかなと・・・）

お礼

わざわざ補足していただきありがとうございます。
お教え頂いた通り，変更した（変更後の39~51行目は下記）のですが，そうすると，500エラーが返ってきてしまいます。

>もう少しプログラムが理解できるようなら、
>指定されたファイルの拡張子によって、if文によって、いままで通りのコードと
>記載したコードか切り替われば、汎用性が高くなるかなと・・・

そうですね。今回の問題が解決したら，次はif文に挑戦したいと思います！

─記─

# HTMLの場合
} else {
my $size = -s $cf{secfile};
my $filename = $cf{secfile};
$filename =~ s|([^/]*?)$||;
open(IN,"$cf{secfile}") or &error("open err: $cf{secfile}");
print "Content-Disposition: inline; filename=\"$filename\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n";
print <IN>;
close(IN);
}

exit;
}

回答No.1

takkun3728

当該CGIについて詳しいわけではないので、推測ですが、たぶん、$cf{secfile} を相対パスから指定すると、そのファイルの中身を読み込んで出力する仕様なのではないでしょうか。

だとすれば、出力の際に、Content-typeなどのレスポンスヘッダーが正しく出力されていないため、ブラウザがZIPファイルをテキストファイルかなにかと勘違いし、中身をそのまま表示してしまったのかもしれません。（バイナリなので当然文字化けする）

とすると、平たく言えば、そのCGIの仕様なのかもしれません・・・。

ただ、ご質問にあるURL先のドキュメントを見ると、下部に、補足事項として、「CGIプログラムをアクセス制限する場合、隠しファイルの指定を http://から始まる絶対パス（URL）で指定してください。 」とあります。

この方法（絶対パスで記述する）であれば、リダイレクトになるので、理論上はご質問のような文字化け表示は起こらないかもしれませんが、いかがでしょうか？
（当該ドキュメントには、「ただし、この場合、隠しファイルへリダイレクトするだけですので、移動先のURLは分かってしまいます」とあるので、それでも構わないならですが・・・。）

なお繰り返しますが上記は私の推測であり、間違っている可能性もありますので、あくまでご参考になれば幸いです。

お礼

早速のご回答，誠に有り難うございます。

>平たく言えば、そのCGIの仕様なのかもしれません

そうですか…てっきり，当然ダウンロードされるものだと思っていました。

>この方法（絶対パスで記述する）であれば、リダイレクトになるので、
>理論上はご質問のような文字化け表示は起こらないかもしれませんが、いかがでしょうか？

確かにこの方法だと上手くいきます（もっとも，.htaccessファイルを削除する必要がありますが）が，やはりURLが解ってしまっては困るので，別の方法をもう少し模索してみたいと思います。

ご回答，誠に有り難うございました。