#!/usr/local/bin/perl

$|=1;

print "Content-type: text/plain; charset=EUC-JP\n\n";

if ( $ENV{PATH_INFO} eq '' ){
    ($script_name) = $0 =~ m|.*/(.*)|;
    print "foo.cgi をデバッグしたい場合は、\n";
    print "  http://$ENV{SERVER_NAME}$ENV{REQUEST_URI}/foo.cgi\n";
    print "という URL にアクセスして下さい。\n\n";
    print "$script_name の後に / を付けて、さらにデバッグしたいスクリプト名を書くわけです。";
    exit;
}
$file = ".$ENV{PATH_INFO}";
$file =~ s|[^-_\./A-Za-z0-9]||g;

$no_good = 0;
if ( ! -e $file ){
    print "ファイル $file が存在しません。\n";
    exit;
}
if ( ! -r $file ){
    print "ファイル $file を読み込めません。\n";
    print "スクリプトは読み込み権限がないと実行できません。\n";
    $no_good = 1;
}
if ( ! -x $file ){
    print "ファイル $file を実行できません。\n";
    print "実行権限が付いていません。パーミッションを 755 や 700 にして下さい。\n";
    $no_good = 1;
}

if ( $no_good == 1 ){
    exit;
}

print "$file を実行します。\n\n";

open(EXEC,"| $file 2>&1");
while (<STDIN>){
    print EXEC;
}