サポートBBS

<< 掲示板に戻る

投稿者:	えふ
タイトル:	Re^13: Cart MAX ver.7.5の[この内容で登録する]に�...
日付:	2022/9/8(Thu) 14:19:06
E-mail:
URL:

cgi/lib/cart/functions.plの
14行の
@all=();
を削除して
9行目の
$file=$CF::tmpdir.$bango;
の下に
@all=();
if(!$bango){
     return \@all;
}

if(!-e $file){
     unless(open(TMP,">$file")){
          &main::error("ファイルが作成できません。");
     }
     close TMP;
}

と追加してくてみださい。
最終的に
4行目以降は
sub OpenData{
my($bango,$file,$idx,@all);
$bango=$_[0];

$checkflag=0;
$file=$CF::tmpdir.$bango;
@all=();
if(!$bango){
     return \@all;
}

if(!-e $file){
     unless(open(TMP,">$file")){
          &main::error("ファイルが作成できません。");
     }
     close TMP;
}

unless(open(TMP,$file)){
     &main::error("$fileが開けません。");
}
$idx=0;
while(<TMP>){
     chomp;
     $all[$idx++]=$_;
}
close TMP;
return \@all;
}
このようになります。

※この記事に返信を書く (元記事は必要な部分のみ残してください。)

お名前:＊必須
タイトル:＊必須
メール:
ホーム:
メッセージ:＊必須	> cgi/lib/cart/functions.plの > 14行の > @all=(); > を削除して > 9行目の > $file=$CF::tmpdir.$bango; > の下に > @all=(); > if(!$bango){ > return \@all; > } > > if(!-e $file){ > unless(open(TMP,">$file")){ > &main::error("ファイルが作成できません。"); > } > close TMP; > } > > と追加してくてみださい。 > 最終的に > 4行目以降は > sub OpenData{ > my($bango,$file,$idx,@all); > $bango=$_[0]; > > $checkflag=0; > $file=$CF::tmpdir.$bango; > @all=(); > if(!$bango){ > return \@all; > } > > if(!-e $file){ > unless(open(TMP,">$file")){ > &main::error("ファイルが作成できません。"); > } > close TMP; > } > > unless(open(TMP,$file)){ > &main::error("$fileが開けません。"); > } > $idx=0; > while(<TMP>){ > chomp; > $all[$idx++]=$_; > } > close TMP; > return \@all; > } > このようになります。
削除パスワード:	※入力しておくと、自分の記事が削除できます。英数字のみ
クッキー:	※チェックを入れておくとクッキーに名前を保存しますので次回から入力が楽になります。