$log .= "cmsを変更します。<br>\n"; $log .= "処理費用:$te3 G<br>\n"; $tm=30; $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|; $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc'); $log2 .=qq|<input type="hidden" name="id" value="$id">\n|; $log2 .=qq|<input type="hidden" name="pw" value="$pw">\n|; $log2 .=qq|<select name="cmd" size="1">\n|; $log2 .=qq|<option value="99">やめる</option>\n|; $log2 .=qq|<option value="1">変更</option>\n|; $log2 .=qq|</select><br>\n|; $log2 .=qq|<input type=text name="comment" value="入力欄" class="button2" ><br>\n|; $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|; $info_cms= $in{'comment'} if($in{'comment'} ne '');
}elsif($tm==30){ $info_cms= $in{'comment'} if($in{'comment'} ne ''); if($info_cms =~ /:/){$ck=1; &dat_write; &error("不正な文字( : )が含まれています。",1); } if($info_cms =~ /;/){$ck=1; &dat_write; &error("不正な文字( ; )が含まれています。",1); } if($info_cms =~ /,/){$ck=1; &dat_write; &error("不正な文字( , )が含まれています。",1); } if($info_cms =~ /"/){$ck=1; &dat_write; &error("不正な文字( \" )が含まれています。",1); } if($info_cms =~ /'/){$ck=1; &dat_write; &error("不正な文字( ' )が含まれています。",1); } if($info_cms =~ /\//){$ck=1; &dat_write; &error("不正な文字( / )が含まれています。",1); } if(length($info_cms)>100){$ck=1; &dat_write; &error("全角50文字までです。",1); } if($ck==1){ $tm = $ck =$cmd = 0; $type=""; &call_main_st; }else{ $info_cms =~ s/\n//g; $cms=$info_cms if($camp==xx); $cbank[$camp]-=$te3; $tm = $ck =$cmd = 0;$type=''; $log .= "cmsを変更しました。。。<br>\n"; &call_main_st; } }