サーバー（UNIX）上のフォルダを表示したい

解決済

質問者：necomimi
質問日時：2006/06/18 14:05
回答数：4件

↓こんな感じでフォルダ表示させるCGIを配布してるところはないでしょうか
http://skyline.skr.jp/sozai/set/?N=D

注：表示させるのは自分が使ってるプロバイダ上での話しです
　　セキュリティ上好ましくないの承知してます
　　使ってるプロバイダはインフォシークです

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： umasikajiro
回答日時：2006/06/18 23:14

たびたび、すみません

>755 になっているか確認してください

通常のotherでCGIが動く場合は705で良いのですが
グループ権限で動く場合が稀にあるようで、その場合は 755にする必要があります
Suexecの場合はユーザー権限でCGIが動きますので701でディレクトリ内の一覧が取得できます

- 0
- 件

通報する

この回答へのお礼

回答どうもです
フォルダ、ファイル属性は共に755にして
実行すると以下のものが表示されました。
sh: ls: not found

やはり、他の方法を探すしかないようです

通報する

お礼日時：2006/06/19 10:05

No.3

回答者： umasikajiro
回答日時：2006/06/18 23:09

ではヘッダ出力の下に1行追加して

print"Content-type: text/html; charset=Shift_JIS\n\n";
open(STDERR, ">&STDOUT"); # ＜＝この行を追加
print"<html>\n";

としてからアクセスしてみてください
-----------
pwd: cannot open directory `..': Permission denied
[Index Of ]
ls: *.htm*: No such file or directory ls: *.shtm*: No such file or directory ls: *.txt: No such file or directory
-----------
となりませんか？　もしそうならディレクトリのパーミッションが
755 になっているか確認してください

ディレクトリのパーミッションが701だとおっしゃるようなことになります(Suexecなら701で全然OKだが)
また、この場合は外部コマンドではなくperlのみでディレクトリ内のfile一覧を得ようとしても出来ません

また pwd の方はその上位のディレクトリも755にする必要がありますが
そちらの方は環境変数
$ENV{'REQUEST_URI'}
$ENV{'SCRIPT_FILENAME'}
$ENV{'SCRIPT_NAME'}
などからも取得できますのでね

- 0
- 件

通報する

No.2

回答者： umasikajiro
回答日時：2006/06/18 15:33

#! /usr/bin/perl

print"Content-type: text/html; charset=Shift_JIS\n\n";
print"<html>\n";
print"<body>\n";
$pwd= `pwd`;
$pwd =~m|[^/]*$|;
print"<h1> [Index Of $& ] </h1>\n";
## .htm .html .shtml .txt のみを表示する場合
foreach(split("\n",`ls -l *.htm* *.shtm* *.txt`)){
split(/\s+/,$_);
print "$_[4] $_[5] $_[6] $_[7] $_[8] <BR>\n";# この書式はお好みで変える
}
__END__

スマートな書き方じゃないけど、、取り敢えず