scm4.cgi修正情報2

sub download {
    binmode STDIN;
    binmode STDOUT;
    if($pnum==3){$c5000=-1;}else{$c5000=0;}

    if ( ( $offset >= 0 ) && ( $count > 0 ) || ( $dump ne '' ) ) {
        open ( R , "$J_path/$name" ) || &display("ファイルが有りません");
        # ダウンロードログを採る
        if($dllogmax>0){&DLcnt($name);}
        binmode ( R );
        local ( $fsize ) = -s R;
        local ( $buf );

sub download {
        if ( $dump ne '' ) {
            if($dllogmax>0){&DLcnt($name);};# ダウンロードログを採る
            print "Content-Type: application/x-smaf\n";
            print "Content-length: $count\n\n";
            print $out;
        } else {
            if($dllogmax>0){&DLcnt($name);};# ダウンロードログを採る
            print "Content-type: application/x-up-download\n";
            print "Content-length: $count\n\n";
            print $out;
        }