E-Mail 　URL

E-Mail 　URL

　URL

　URL

パス名を含んだファイル名をファイル名だけにするのは、こんなので
良いのかな？　取りあえずローカルは IIS3.0 + Active Perl の環境
で試しました。
 
あと、この方式のファイル処理では大きなファイルの取り扱いは出来
ないようです。ローカルで 40MB のファイルをダウンロードしようと
しましたが無理でした。
 
このほかのファイル出力で system で /bin/cat を呼び出す方法等も
ありますが、プロバイダでは使えないと思います。
 
#!/usr/mesh/bin/perl5
$filename = './detarame.zzz';
foreach (split(/\//, $filename)) {
($attachment) = split(/\//);
}
($x1, $x2, $x3, $x4, $x5, $x6, $x7, $size) = stat($filename);
$size = sprintf("%d", $size);
$/ = '';
open(INFILE, $filename);
binmode(INFILE);
read(INFILE, $file, $size);
close(INFILE);
binmode($file);
print "Content-Disposition: attachment; filename=$attachment\n";
print "Content-type: application/octet-stream\n";
print "Content-length: $size\n\n";
print "$file";
 

　URL

　URL

　URL

　URL

　URL

解決できました。 (^o^)
すみません。私のダウンロードファイル名の記述間違いがあったみたいです。
ダウンロードするファイル名を url 絶対アドレスで記述したのが悪かったみたいです。

お詫びにスクリプト全文を（ログファイル名は変えてあります）。

- - - - - 

#!/usr/local/bin/perl


# 取得／表示させたい環境変数の設定
$is_userinfo_cgi = 1;   # 0:取得しない／1:取得する (ユーザの利用環境情報)
$access_f = "dummy.log";    # アクセスログファイル


# 海外サーバ等で時差が生じる場合は修正してください
# (例) 海外時間に＋９時間する場合： localtime(time + 9*60*60)
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date_ref = sprintf("%4d/%02d/%02d",$year +1900,$mon +1,$mday);
$time_ref = sprintf("%02d:%02d",$hour,$min);


#--------------------------------------------------------------
# アクセスログの書き出し
&env_check;   # 環境変数の参照


    $download_file = "../Lzh$env_get_file"; # ダウンロードするファイル名


open(OUT,">>$access_f") || die "error\n";
#----- 【ダウンロード日を出力】
print OUT "\"$date_ref\",";
#----- 【ダウンロード時を出力】
print OUT "\"$time_ref\",";
#----- 【ダウンロードファイル名を出力】
print OUT "\"$download_file\",";
#----- 【リクエスト発行元のＩＰアドレスを出力】
print OUT "\"$env_remote_addr\",";
#----- 【リクエスト発行元のホスト名を出力】
print OUT "\"$env_remote_host\",";
#----- 【クライアントのブラウザ名の出力】
print OUT "\"$env_http_user_agent\",";
#----- 【改行コードの出力】
print OUT "\n";
close(OUT);


    ($x, $x, $x, $x, $x, $x, $x, $size) = stat($download_file);
    $size = sprintf("%d", $size);
    $/ = '';
    open( DL, $download_file );
    binmode(DL);
    read(DL, $file, $size);
    close( DL );
    binmode($file);
    print "Content-Disposition: attachment; filename='$env_get_file'\n";
    print "Content-type: application/octet-stream\n\n";
    print "$file";


Exit;


sub env_check {
        # 環境変数の参照
        ##### ユーザの利用環境情報
        #       REMOTE_HOST             リクエスト発行元のホスト名
        #       REMOTE_ADDR             リクエスト発行元のＩＰアドレス
        #       HTTP_REFERER            アクセスされる前のリンク元ページのURL
        #       HTTP_USER_AGENT         クライアントのブラウザ名、バージョン、付加情報
        #       HTTP_FROM               クライアントの電子メールアドレス
            $env_remote_host = &env_out( "REMOTE_HOST" , 1 );
            $env_remote_addr = &env_out( "REMOTE_ADDR" , 2 );
            $env_http_referer = &env_out( "HTTP_REFERER" , 3 );
            $env_http_user_agent = &env_out( "HTTP_USER_AGENT" , 4 );
            $env_http_from = &env_out( "HTTP_FROM" , 5 );
            $env_get_file = &env_out( "PATH_INFO" , 6 );
}


sub env_out {
        ##### 環境変数の呼び出し
        #   書式   : &env_out( $env_name , $return_type );
        #   Input  : $env_name   :環境変数名
        #            $return_type:環境変数の返り値がなかったときの出力タイプ
        #   Output : 環境変数の返り値(または、なかったよんメッセージ)
        local( $env_name , $return_type ) = @_;
        local( $env_data ) = $ENV{$env_name};  # 環境変数の取得
        if( $env_data eq "" ){
            # 返り値がなかった場合の処理(適当に編集してください)
            if( $return_type == 1 ){ $env_data = "ホスト名不明"; }
            if( $return_type == 2 ){ $env_data = "ＩＰアドレス不明"; }
            if( $return_type == 3 ){ $env_data = "リンク元不明"; }
            if( $return_type == 4 ){ $env_data = "ブラウザ不明"; }
            if( $return_type == 5 ){ $env_data = "メール不明"; }
            if( $return_type == 6 ){ $env_data = "取得ファイル不明"; }
        }
        return $env_data;
}

　URL

　URL

biglobe では、これでいけました...
 
#!/usr/mesh/bin/perl5
$download_file = './detarame.zzz';
($x, $x, $x, $x, $x, $x, $x, $size) = stat($download_file);
$size = sprintf("%d", $size);
$/ = '';
open( DL, $download_file );
binmode(DL);
read(DL, $file, $size);
close( DL );
binmode($file);
print "Content-Disposition: attachment; filename='detarame.zzz'\n";
print "Content-type: application/x-zip-compressed\n\n";
print "$file";
 

　URL

　URL

>MIME Type が TEXT になっているからと言って、LF を CR LF
>に勝手に変換するのが正常な仕組みとも思えないし...

MIME Type が TEXT になっていたら、ダウンロードしたらだめでしょう？
テキストを画面表示するべきですから。

>http://www14.freeweb.ne.jp/computer/ogou/cgi-bin/DownLoad.cgi/Applet10.lzh

ごめんなさい。Applet10.lzh へのリンクは試行錯誤の途中で、昨夜は
イーカゲンな状態で寝てしまいました。 (^^;

>この Location: の前に MIME Type を送っても駄目でしたか？
>CGI から Location: する場合、前に設定した MIME Type を引き継ぐ
>という説明も見かけたので...

その辺り、昨日の夜だけで数１０回もいろんなやり方を試したんですが、
結果的に言ってだめでした。
正しいと思われる方法だと「ドキュメントにデータが含まれていません」
になってしまうんですよね。

$env_get_file = &env_out( "PATH_INFO" , 6 );

で、

print "Content-Disposition: attachment; filename='http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file'\n";
print "Location: http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file\n";

とか

print "Content-type: application/lzh \n Location: http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file\n\n";

とかやってみたんだけど（もちろん、application/octet-stream でもダメ）。

以上、昨夜寝るまでの経過でした。

　URL

>MIME Type が TEXT になっているからと言って、LF を CR LF
>に勝手に変換するのが正常な仕組みとも思えないし...

MIME Type が TEXT になっていたら、ダウンロードしたらだめでしょう？
テキストを画面表示するべきですから。

>http://www14.freeweb.ne.jp/computer/ogou/cgi-bin/DownLoad.cgi/Applet10.lzh

ごめんなさい。Applet10.lzh へのリンクは試行錯誤の途中で、昨夜は
イーカゲンな状態で寝てしまいました。 (^^;

>この Location: の前に MIME Type を送っても駄目でしたか？
>CGI から Location: する場合、前に設定した MIME Type を引き継ぐ
>という説明も見かけたので...

その辺り、昨日の夜だけで数１０回もいろんなやり方を試したんですが、
結果的に言ってだめでした。
正しいと思われる方法だと「ドキュメントにデータが含まれていません」
になってしまうんですよね。

$env_get_file = &env_out( "PATH_INFO" , 6 );

で、

print "Content-Disposition: attachment; filename='http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file'\n";
print "Location: http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file\n";

とか

print "Content-type: application/lzh \n Location: http://www14.freeweb.ne.jp/computer/ogou/cgi-bin$env_get_file\n\n";

とかやってみたんだけど（もちろん、application/octet-stream でもダメ）。

以上、昨夜寝るまでの経過でした。

　URL

　URL

　URL

　URL