Only in yomi-mailer-205: change.txt diff -r yomi-mailer-205/readme.txt yomi-mailer-207/readme.txt 64a65,71 > ※「総合管理室」に入れなくなってしまった場合には、 > /we_data/cfg.cgi の一行目を > $EST{pass}='setup'; #パスワード > に修正して再度アップロードしてください。 > その後、IDにadminと入力しパスワードは何も入力せず > ログインして管理用パスワードの再設定を行ってください。 > diff -r yomi-mailer-205/y_mail.cgi yomi-mailer-207/y_mail.cgi 8c8 < $ver="2.05"; --- > $ver="2.07"; 114a115 > if(my $error=$st->check($arg[0])){&mes($error,"エラー","java");} 159,163d159 < #禁止ワードチェック < my(@diny_words)=split(/,/,$EST_u{diny_words}); < foreach(@diny_words){ < if(index("$honbun",$_)>=0){&mes('メール内容の中に使用が禁止されている言葉が使われているか、
送信が禁止されているIP/ホスト名の可能性があります',"エラー","java");} < } 636a633 > $ret=~s/'/\\'/g; diff -r yomi-mailer-205/ym_lib/ym_lib.pl yomi-mailer-207/ym_lib/ym_lib.pl 80a81,87 > #禁止ワードチェック > my(@diny_words)=split(/,/,$main::EST_u{diny_words}); > foreach(@diny_words){ > if(index($main::FORM{"f$st->{id}"},$_)>=0){ > $error.="使用が禁止されている言葉が使れています
"; > } > } 458a466,473 > #選択肢にあるワードかどうかをチェック > return $error unless $main::FORM{"f$st->{id}"}; > my(@sel)=split(/<1>/,$st->{sel}); > my $flg; > foreach(@sel){ > if($_ eq $main::FORM{"f$st->{id}"}){$flg=1; last;} > } > $error.="選択肢に無いワードが送信されました(ID:$st->{id})
" unless $flg; 580a596,615 > #フォーム入力値をチェック(radio専用) > sub check{ > my($st)=@_; > my($error); > #必須/任意 > if($st->{kinyu_fl}){ > if(!$main::FORM{"f$st->{id}"}){ > $error.="$st->{title} は必ず選択してください
"; > } > } > #選択肢にあるワードかどうかをチェック > return $error unless $main::FORM{"f$st->{id}"}; > my(@sel)=split(/<1>/,$st->{sel}); > my $flg; > foreach(@sel){ > if($_ eq $main::FORM{"f$st->{id}"}){$flg=1; last;} > } > $error.="選択肢に無いワードが送信されました(ID:$st->{id})
" unless $flg; > return $error; > }