<< 掲示板に戻る



投稿者: えふ
タイトル: Re: 2017/12/7 Cart MAX 5.1改 プログラムの一部が自動挿入され...
日付: 2018/6/17(Sun) 15:27:10
E-mail:
URL:
http://cgipal.com/cgi_lib.zip
こちらのcgi_lib.plを
カートのcgi/lib/フォルダに入れて、

admin.cgiの74行の

sub DecodeMulti{
my($buffsize,$d_len,$boundary,$b_len,
$left,$rsize,$r,$bnd_d,
$i,$limit,$header,$name,$hpos,$upflag,$bpos,$filename,$ctype,$okflag,$dum,$app,$upidx,$zflag,
$kflag,$sflag,$imgfilename,$na,@tmp,$blen,$buf,$done,$timer,$o,$d,$ext,$sessid,$reload,
$thmname,$na_tmp,%THM,$upnflag,$t_fname,$csvfilename,$dflag
);

$buffsize=1024;
$d_len=$ENV{'CONTENT_LENGTH'};

if(!$d_len){
     &error("no data");
}
if($d_len > $maxsize){
     &error("投稿の容量が大きすぎます。");
}

if($ENV{'REQUEST_METHOD'} ne "POST"){
     &error("method bad");
}
if($ENV{'CONTENT_TYPE'}=~/boundary="([^"]+)"/){
     $boundary=$1;
}
else{
     if($ENV{'CONTENT_TYPE'}=~/boundary=(\S+)/){
          $boundary=$1;
     }
}
if($boundary eq ""){
     &error("boundary bad");
}
$boundary='--'.$boundary;
$b_len=length $boundary;
if($b_len > $buffsize){
     &error("buffsize error");
}
$left=$d_len;

$rsize=$b_len+2;

binmode(STDIN);
binmode(STDOUT);

$r=read(STDIN,$buf,$rsize);
if($r != $rsize){
     &error("read error");
}
$left-=$rsize;
$bnd_d=$boundary."\x0D\x0A";
if($buf ne $bnd_d){
     &error("format error");
}

undef $buf;

$timer=time;
$csvflag=0;
if($thumbnail){
     unless(-e $thumbnailpl){
          &error("$thumbnailplがありません。");
     }
     require $thumbnailpl;
}

unless(open(TMP,$reloadlog)){&error("$reloadlogが開けません。");}
$sessid=<TMP>;
close TMP;
$reload=0;
$imagename=1;

$i=0;
$limit=100000;
$upidx=0;
$left-=4;
$done=$left;
$dflag=0;
while($done > 0){
     $i++;
     if(($i == 1) || ($left && (index($buf, $boundary) == -1))){
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error1");
          }
          $left-=$rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               $done+=$blen;
               $dflag=1;
          }

     }
     undef $header;
     undef $name;
     $zflag=0;
     while(($hpos = index($buf, "\x0D\x0A\x0D\x0A")) == -1){
          if($zflag){
               &error("unknown error1");
          }
          $header .= substr($buf, 0, $buffsize);
     $buf = substr($buf, $buffsize);
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error");
          }

     $left -= $rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               if(!$dflag){
                    $done+=$blen;
                    $dflag=1;
               }
               $zflag=1;
          }
          $i++;
          if($i > $limit){
               &error("unknown error2");
          }
     }
     $header.=substr($buf,0,$hpos);
     if($header=~/\bname="([^"]+)"/i || $header=~/\bname=([^\s:;]+)/i) {
          $name=$1;
     }
     if($name eq ""){
          &error("header error1");
     }
     $upflag=0;
     $upnflag=0;
     $filename="";
     $ctype="";
     $okflag=0;
     $kflag=0;
     $sflag=0;
     if($name=~/^upfile/){
          if($FORM{'mode'} eq "cateregist" || $FORM{'mode'} eq "cateeditregist" || $FORM{'mode'} eq "groupregist" || $FORM{'mode'} eq "groupeditregist"){
               if($imagename){
                    $imagename=0;
               }
          }
          if($name=~/upfile_k/ || $name=~/upfile_sold_k/){
               $kflag=1;
          }
          if($name=~/sold/){
               $sflag=1;
          }
          $upnflag=1;
          if($header=~/\bfilename="([^"]*)"/i || $header=~/\bfilename=([^\s:;]*)/i) {
               $filename=$1;
               $FNAME{$name}=$filename;
          }
          if($header=~/Content-type:\s*"([^"]+)"/i || $header=~/Content-Type:\s*([^\s:;]+)/i) {
               $ctype=$1;
               $CTYPE{$name}=$ctype;
          }
          if(!$reload){
               if($sessid && ($sessid eq $FORM{'sessid'})){
                    $reload=1;
               }
          }
          if($reload){
               $filename="";
          }
          if($filename){
               $csvfilename=$filename;
               if($imagename){
                    if($FORM{'no'}){
                         $t_fname=$FORM{'no'};
                    }
                    else{
                         $t_fname=$timer;
                    }
                    $na=$name;
                    if($kflag){
                         if(!$sflag){
                              $na=~s/upfile_k//;
                              $na='k'.$na;
                         }
                         else{
                              $na='sold_k';
                         }
                    }
                    else{
                         if(!$sflag){
                              $na=~s/upfile//;
                         }
                         else{
                              $na='sold';
                         }
                    }
                    $filename=$t_fname.'_'.$na;
               }
               else{
                    $filename=~s/\//\\/g;
                     @tmp = split(/\\/, $filename);
                     $filename = $tmp[$#tmp];
               }
               ($dum,$app)=split(/\//,$ctype);

               if($app eq "gif"){
                    $ext='.gif';
                    $okflag=1;
                    if($imagename){
                         $filename.=$ext;
                    }
                    $imgfilename=$upimgdir.$filename;
               }
               elsif($app eq "pjpeg" || $app eq "jpeg"){
                    $ext='.jpg';
                    $okflag=1;
                    if($imagename){
                         $filename.=$ext;
                    }
                    $imgfilename=$upimgdir.$filename;
               }
               elsif($csvfilename=~/\.csv$/){
                    $ext='.csv';
                    $csvflag=1;
                    $okflag=1;
                    $app="csv";
                    if($FORM{'mode'} eq "csvup"){
                         $imgfilename=$g_log;
                         &Old;
                    }
                    elsif($FORM{'mode'} eq "zaikoup"){
                         $imgfilename=$z_log;
                    }
                    else{
                         &error("modeがありません。");
                    }
               }
               if(!$okflag){
                    &error("アップできる画像はJPEG、GIF、CSVファイルのみです。");
               }
               $UPFNAME[$upidx++]=$filename;
               unless(open(IMAGE,">$imgfilename")){
                    &error("画像のアップロードに失敗しました");
               }
               binmode(IMAGE);
               $upflag=1;
          }
     }
     if($left == 0){
          $done-=($hpos+4);
     }

     substr($buf,0,$hpos+4)="";
     $zflag=0;
     while(($bpos = index($buf, $boundary)) == -1){
          if($zflag){
               &error("unknown error3");
          }
          if($upflag){
               print IMAGE substr($buf, 0, $buffsize);
          }
          else{
               $FORM{$name} .= substr($buf, 0, $buffsize);
          }
     $buf = substr($buf, $buffsize);
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error3");
          }
     $left -= $rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               if(!$dflag){
                    $done+=$blen;
                    $dflag=1;
               }
               $zflag=1;
          }
          $i++;
          if($i > $limit){
               &error("unknown error4");
          }
     }
     if($upflag){
          print IMAGE substr($buf,0,$bpos-2);
          close IMAGE;
     }
     else{
          $FORM{$name} .= substr($buf,0,$bpos-2);
     }
     if($upnflag){
          if($thumbnail){
               if($filename && !$kflag){
                    $thmname=&Thumbnail($imgfilename,$filename,$w_th);
                    if(!$sflag){
                         $na_tmp='upfile_k'.$na;
                    }
                    else{
                         $na_tmp='upfile_sold_k';
                    }
                    $THM{$na_tmp}=$thmname;
               }
          }
          if(!$kflag){
               if(!$sflag){
                    push @upfilename,$filename;
               }
               else{
                    $upfile_sold=$filename;
               }
          }
          else{
               if($thumbnail && $THM{$name}){
                    $filename=$THM{$name};
               }
               if(!$sflag){
                    push @upfilename_k,$filename;
               }
               else{
                    $upfile_sold_k=$filename;
               }
          }

     }
     if($left == 0){
          $done-=($bpos+$b_len+2);
     }
     substr($buf,0,$bpos+$b_len+2)="";
     $FORM{$name}=~s/&/&amp;/g;
     $FORM{$name}=~s/,/&#44;/g;
     $FORM{$name}=~s/'/&#039;/g;
     if($name eq "msg" || $name eq "msg2" || $name eq "msg3"){
          if($tag){
               $FORM{$name}=~s/\x0D\x0A/<br>/g;
               $FORM{$name}=~s/\x0D/<br>/g;
               $FORM{$name}=~s/\x0A/<br>/g;
          }
          else{
               $FORM{$name}=~s/</&lt;/g;
               $FORM{$name}=~s/>/&gt;/g;
               $FORM{$name}=~s/"/&quot;/g;
               $FORM{$name}=~s/\x0D\x0A//g;
               $FORM{$name}=~s/\x0D//g;
               $FORM{$name}=~s/\x0A//g;
          }
     }
     else{
          $FORM{$name}=~s/</&lt;/g;
          $FORM{$name}=~s/>/&gt;/g;
          $FORM{$name}=~s/"/&quot;/g;
          $FORM{$name}=~s/\x0D\x0A//g;
          $FORM{$name}=~s/\x0D//g;
          $FORM{$name}=~s/\x0A//g;
     }
     if($name=~/^op/){
          ($o,$d)=split(/_/,$name);
          push(@{$OPT{$o}},$FORM{$name});
     }
     elsif($name=~/^ost/){
          $FORM{$name}=~s/://g;
          push @OPST,$FORM{$name};
     }
     elsif($name=~/^pro/){
          $FORM{$name}=~s/://g;
          push @OPPR,$FORM{$name};
     }
     elsif($name=~/photo_p/){
          push(@photo,$FORM{$name});
     }
     elsif($name=~/photo_k/){
          push(@photo_k,$FORM{$name});
     }
     elsif($name=~/kaid/){
          if($FORM{$name}){
               push(@KAID,$FORM{$name});
          }
     }
     if($i > $limit){
          &error("unknown error5");
     }
}


}






sub DecodeMulti{
my($buffsize,$d_len,$boundary,$b_len,
$left,$rsize,$r,$bnd_d,
$i,$limit,$header,$name,$hpos,$upflag,$bpos,$filename,$ctype,$okflag,$dum,$app,$upidx,$zflag,
$kflag,$sflag,$imgfilename,$na,@tmp,$blen,$buf,$done,$timer,$o,$d,$ext,$sessid,$reload,
$thmname,$na_tmp,%THM,$upnflag,$t_fname,$csvfilename,$dflag
);

unless(-e "lib/cgi_lib.pl"){
     &error("cgi_lib.plがありません。");
}
require 'lib/cgi_lib.pl';

($ref,$in_ref,$incfn_ref,$inct_ref)=&ReadParse;

$reload=0;
$image_i=0;
foreach $name(@{$ref}){
     if ($name !~/^upfile/) {
          $value=${$in_ref}{$name};
          if($value=~/\0/){
               &error("不適切な投稿である可能性があります。");
          }
          $value=~s/&/&amp;/g;
          $value=~s/,/&#44;/g;
          $value=~s/'/&#039;/g;
          if($name=~/^msg/){
               if(!$tag){
                    $value=~s/</&lt;/g;
                    $value=~s/>/&gt;/g;
                    $value=~s/"/&quot;/g;
               }
               $value=~s/\x0D\x0A/<br>/g;
               $value=~s/\x0D/<br>/g;
               $value=~s/\x0A/<br>/g;
          }
          else{
               $value=~s/</&lt;/g;
               $value=~s/>/&gt;/g;
               $value=~s/"/&quot;/g;
               $value=~s/\x0D\x0A//g;
               $value=~s/\x0D//g;
               $value=~s/\x0A//g;
          }
          if($name=~/^op/){
               ($o,$d)=split(/_/,$name);
               push(@{$OPT{$o}},$value);
          }
          elsif($name=~/^ost/){
               $value=~s/://g;
               push @OPST,$value;
          }
          elsif($name=~/^pro/){
               $value=~s/://g;
               push @OPPR,$value;
          }
          elsif($name=~/photo_p/){
               push(@photo,$value);
          }
          elsif($name=~/photo_k/){
               push(@photo_k,$value);
          }
          elsif($name=~/kaid/){
               if($value){
                    push(@KAID,$value);
               }
          }
          $FORM{$name}=$value;
     }
     else{
          $image_i++;
          $filename="";
          $ctype="";
          $okflag=0;
          $filename=${$incfn_ref}{$name};
          $ctype=${$inct_ref}{$name};
          if(!$reload){
               if($sessid && ($sessid eq $FORM{'sessid'})){
                    $reload=1;
               }
          }
          if($reload){
               $filename="";
          }
          if($filename){
               $csvfilename=$filename;
               $filename=time().$$.$image_i;
               ($dum,$app)=split(/\//,$ctype);
               if($app eq "gif"){
                    $ext='.gif';
                    $okflag=1;
                    $filename.=$ext;
                    $imgfilename=$upimgdir.$filename;
               }
               elsif($app eq "pjpeg" || $app eq "jpeg"){
                    $ext='.jpg';
                    $okflag=1;
                    $filename.=$ext;
                    $imgfilename=$upimgdir.$filename;
               }
               elsif($csvfilename=~/\.csv$/){
                    $ext='.csv';
                    $csvflag=1;
                    $okflag=1;
                    if($FORM{'mode'} eq "csvup"){
                         $imgfilename=$g_log;
                    }
                    elsif($FORM{'mode'} eq "zaikoup"){
                         $imgfilename=$z_log;
                    }
                    else{
                         &error("modeがありません。");
                    }
               }

               if(!$okflag){
                    &error("アップできる画像はJPEG、GIF、CSVファイルのみです。");
               }
               unless(open(IMAGE,">$imgfilename")){
                    &error("画像のアップロードに失敗しました");
               }
               binmode(IMAGE);
               binmode(STDOUT);
               print IMAGE ${$in_ref}{$name};
               close(IMAGE);
          }

          push @upfilename,$filename;


     }
}


}

と変更して

admin_m.cgiの53行の

sub DecodeMulti{
my($buffsize,$d_len,$boundary,$b_len,
$left,$rsize,$r,$bnd_d,
$i,$limit,$header,$name,$hpos,$upflag,$bpos,$filename,$ctype,$okflag,$app,$upidx,$zflag,
$imgfilename,@tmp,$blen,$buf,$done,$timer,$ext,$sessid,$reload,$upnflag,$dflag
);

$buffsize=1024;
$d_len=$ENV{'CONTENT_LENGTH'};

if(!$d_len){
     &error("no data");
}
if($d_len > $maxsize){
     &error("投稿の容量が大きすぎます。");
}

if($ENV{'REQUEST_METHOD'} ne "POST"){
     &error("method bad");
}
if($ENV{'CONTENT_TYPE'}=~/boundary="([^"]+)"/){
     $boundary=$1;
}
else{
     if($ENV{'CONTENT_TYPE'}=~/boundary=(\S+)/){
          $boundary=$1;
     }
}
if($boundary eq ""){
     &error("boundary bad");
}
$boundary='--'.$boundary;
$b_len=length $boundary;
if($b_len > $buffsize){
     &error("buffsize error");
}
$left=$d_len;

$rsize=$b_len+2;

binmode(STDIN);
binmode(STDOUT);

$r=read(STDIN,$buf,$rsize);
if($r != $rsize){
     &error("read error");
}
$left-=$rsize;
$bnd_d=$boundary."\x0D\x0A";
if($buf ne $bnd_d){
     &error("format error");
}

undef $buf;

$timer=time;
$csvflag=0;

unless(open(TMP,$reloadlog)){&error("reloadlogが開けません。");}
$sessid=<TMP>;
close TMP;
$reload=0;
$imagename=1;

$i=0;
$limit=100000;
$upidx=0;
$left-=4;
$done=$left;
$dflag=0;
while($done > 0){
     $i++;
     if(($i == 1) || ($left && (index($buf, $boundary) == -1))){
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error1");
          }
          $left-=$rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               $done+=$blen;
               $dflag=1;
          }
     }
     undef $header;
     undef $name;
     $zflag=0;
     while(($hpos = index($buf, "\x0D\x0A\x0D\x0A")) == -1){
          if($zflag){
               &error("unknown error1");
          }
          $header .= substr($buf, 0, $buffsize);
     $buf = substr($buf, $buffsize);
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error");
          }

     $left -= $rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               if(!$dflag){
                    $done+=$blen;
                    $dflag=1;
               }
               $zflag=1;
          }
          $i++;
          if($i > $limit){
               &error("unknown error2");
          }
     }
     $header.=substr($buf,0,$hpos);
     if($header=~/\bname="([^"]+)"/i || $header=~/\bname=([^\s:;]+)/i) {
          $name=$1;
     }
     if($name eq ""){
          &error("header error1");
     }

     $upflag=0;
     $upnflag=0;
     $filename="";
     $ctype="";
     $okflag=0;
     if($name=~/^upfile/){
          $upnflag=1;
          if($header=~/\bfilename="([^"]*)"/i || $header=~/\bfilename=([^\s:;]*)/i) {
               $filename=$1;
               $FNAME{$name}=$filename;
          }
          if($header=~/Content-type:\s*"([^"]+)"/i || $header=~/Content-Type:\s*([^\s:;]+)/i) {
               $ctype=$1;
               $CTYPE{$name}=$ctype;
          }
          if(!$reload){
               if($sessid && ($sessid eq $FORM{'sessid'})){
                    $reload=1;
               }
          }
          if($reload){
               $filename="";
          }
          if($filename){
               $filename=~s/\//\\/g;
                @tmp = split(/\\/, $filename);
                $filename = $tmp[$#tmp];

               if($filename=~/\.csv$/){
                    $ext=".csv";
                    $csvflag=1;
                    $okflag=1;
                    $app="csv";
               }
               if($filename=~/\.log$/){
                    $ext=".log";
                    $csvflag=1;
                    $okflag=1;
                    $app="log";
               }
               if($filename=~/\.cgi$/){
                    $ext=".cgi";
                    $csvflag=1;
                    $okflag=1;
                    $app="csv";
               }
               elsif($app eq "octet-stream"){
                    $app="";
               }
               if($FORM{'act'} eq "rireki"){
                    $imgfilename=$rirekilog;
               }
               elsif($FORM{'act'} eq "mem"){
                    $imgfilename=$m_log;
               }

               if(!$okflag){
                    &error("アップできる画像はJPEG、GIF、CSVファイルのみです。");
               }
               $UPFNAME[$upidx++]=$filename;
               unless(open(IMAGE,">$imgfilename")){
                    &error("画像のアップロードに失敗しました");
               }
               binmode(IMAGE);
               $upflag=1;
          }
     }
     if($left == 0){
          $done-=($hpos+4);
     }

     substr($buf,0,$hpos+4)="";
     $zflag=0;
     while(($bpos = index($buf, $boundary)) == -1){
          if($zflag){
               &error("unknown error3");
          }
          if($upflag){
               print IMAGE substr($buf, 0, $buffsize);
          }
          else{
               $FORM{$name} .= substr($buf, 0, $buffsize);
          }
     $buf = substr($buf, $buffsize);
          $blen=length($buf);
          $rsize=($left > $buffsize) ? $buffsize : $left;
          $r=read(STDIN,$buf,$rsize,$blen);
          if($r != $rsize){
               &error("read error3");
          }
     $left -= $rsize;
          if($left != 0){
               $done-=$rsize;
          }
          else{
               if(!$dflag){
                    $done+=$blen;
                    $dflag=1;
               }
               $zflag=1;
          }
          $i++;
          if($i > $limit){
               &error("unknown error4");
          }
     }
     if($upflag){
          print IMAGE substr($buf,0,$bpos-2);
          close IMAGE;
     }
     else{
          $FORM{$name} .= substr($buf,0,$bpos-2);
     }

     if($left == 0){
          $done-=($bpos+$b_len+2);
     }
     substr($buf,0,$bpos+$b_len+2)="";
     $FORM{$name}=~s/&/&amp;/g;
     $FORM{$name}=~s/</&lt;/g;
     $FORM{$name}=~s/>/&gt;/g;
     $FORM{$name}=~s/"/&quot;/g;
     $FORM{$name}=~s/'/&#39;/g;
     $FORM{$name}=~s/,/&#44;/g;
     $FORM{$name}=~s/\x0D\x0A//g;
     $FORM{$name}=~s/\x0D//g;
     $FORM{$name}=~s/\x0A//g;

     if($i > $limit){
          &error("unknown error5");
     }
}


}


sub DecodeMulti{
my($buffsize,$d_len,$boundary,$b_len,
$left,$rsize,$r,$bnd_d,
$i,$limit,$header,$name,$hpos,$upflag,$bpos,$filename,$ctype,$okflag,$dum,$app,$upidx,$zflag,
$kflag,$sflag,$imgfilename,$na,@tmp,$blen,$buf,$done,$timer,$o,$d,$ext,$sessid,$reload,
$thmname,$na_tmp,%THM,$upnflag,$t_fname,$csvfilename,$dflag
);

unless(-e "lib/cgi_lib.pl"){
     &error("cgi_lib.plがありません。");
}
require 'lib/cgi_lib.pl';

($ref,$in_ref,$incfn_ref,$inct_ref)=&ReadParse;

$reload=0;
$image_i=0;
foreach $name(@{$ref}){
     if ($name !~/^upfile/) {
          $value=${$in_ref}{$name};
          if($value=~/\0/){
               &error("不適切な投稿である可能性があります。");
          }
          $value=~s/&/&amp;/g;
          $value=~s/</&lt;/g;
          $value=~s/>/&gt;/g;
          $value=~s/"/&quot;/g;
          $value=~s/'/&#39;/g;
          $value=~s/,/&#44;/g;
          $value=~s/\x0D\x0A//g;
          $value=~s/\x0D//g;
          $value=~s/\x0A//g;
          $FORM{$name}=$value;
     }
     else{
          $image_i++;
          $filename="";
          $ctype="";
          $okflag=0;
          $filename=${$incfn_ref}{$name};
          $ctype=${$inct_ref}{$name};
          if(!$reload){
               if($sessid && ($sessid eq $FORM{'sessid'})){
                    $reload=1;
               }
          }
          if($reload){
               $filename="";
          }
          if($filename){
               ($dum,$app)=split(/\//,$ctype);
               $imgfilename="";
               if($filename=~/\.csv$/){
                    $ext='.csv';
                    $csvflag=1;
                    $okflag=1;
               }
               if($filename=~/\.log$/){
                    $ext=".log";
                    $csvflag=1;
                    $okflag=1;
                    $app="log";
               }
               if($filename=~/\.cgi$/){
                    $ext=".cgi";
                    $csvflag=1;
                    $okflag=1;
                    $app="csv";
               }
               elsif($app eq "octet-stream"){
                    $app="";
               }
               if($FORM{'act'} eq "rireki"){
                    $imgfilename=$rirekilog;
               }
               elsif($FORM{'act'} eq "mem"){
                    $imgfilename=$m_log;
               }
               if(!$okflag){
                    &error("$filenameアップできる画像はJPEG、GIF、CSVファイルのみです。");
               }
               if($imgfilename eq ""){
                    &error("ファイルがありません。");
               }
               unless(open(IMAGE,">$imgfilename")){
                    &error("画像のアップロードに失敗しました");
               }
               binmode(IMAGE);
               binmode(STDOUT);
               print IMAGE ${$in_ref}{$name};
               close(IMAGE);
          }

          push @upfilename,$filename;


     }
}


}


と変更してください。

http://cgipal.com/admin.zip
http://cgipal.com/admin_m.zip

こちらに変更したものを置いておきますので
こちらから上記箇所をコピーされるといいです。






※この記事に返信を書く (元記事は必要な部分のみ残してください。)
おなまえ: ※"通りすがり"のようなぞんざいなハンドルネームは止めてください。
タイトル:
メール:
ホーム: ☆☆ ※1つの投稿に質問を複数書き込まないでください。数日以上分けて投稿してください。
メッセージ:
削除パス: クッキー:

- CGI Pal -