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;
> }