<< 掲示板に戻る



投稿者: えふ
タイトル: Re^3: category.logについて
日付: 2018/3/21(Wed) 11:57:18
E-mail:
URL:
> FFFTPでサーバー側にダイレクトにアップしてるのが問題なんですかね

そうですが
admin.cgiの913行の
elsif($lib eq 'atop'){
     &Atop;
}
の下に

elsif($lib eq 'itemnum'){
     &ItemNum;
}

と追加して

1219行あたりの
<tr>
<td height="40">
<form action="$CF::ascript" method="POST" style="margin:0px">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="mode" value="analyze">
<input type="submit" value="売上分析" style="width:150px">
</form></td>
<td>売上順に商品を表示します。</td>
</tr>
の下に

<tr>
<td height="40">
<form action="$CF::ascript" method="POST" style="margin:0px">
<input type="hidden" name="pass" value="$FORM{'pass'}">
<input type="hidden" name="mode" value="itemnum">
<input type="submit" value="商品数" style="width:150px">
</form></td>
<td>商品数を書き換えます。</td>
</tr>

と追加して
1271行あたりの

sub header{
の上に

sub ItemNum{
$c_all_ref=&Func::GetCate;
%CNT=();

foreach $pid(@{$c_all_ref}){

     $g_log=$CF::itemdir.$pid.'.log';
     unless(open(FILE,$g_log)){
          &main::error("g_logが開けません。ファイルを確認してください。");
     }
     $idx=0;
     while(<FILE>){
          $CNT{$pid}++;
     }
     close FILE;
}

unless(open(FILE,$CF::c_log)){
     &main::error("c_logが開けません。");
}
while(<FILE>){
     ($page_id,$lcate,$p_name,$skin,$g_num,$des,$img1,$img2,$kugiri,$img3)=split(/,/,$_);
     $g_num=$CNT{$page_id};
     $_="$page_id,$lcate,$p_name,$skin,$g_num,$des,$img1,$img2,$kugiri,$img3,\n";
     push @new,$_;
}
close FILE;
unless(open(FILE,">$CF::c_log")){
     &main::error("c_logが開けません。");
}
print FILE @new;
close FILE;


&Atop("変更しました。");
}

と追加すれば
FTPでアップしたあとに
機能の選択の
「商品数」のボタンを押すとcategory.logの商品数が更新されます。



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

- CGI Pal -