diff -r yomi-mailer-201/change.txt yomi-mailer-205/change.txt
8a9,29
> 【Ver2.01 → Ver2.05】
> ■複数選択式(checkbox)で記入必須に設定した場合に入力エラーが出てしまう不具合を修正しました。
>
> ■セレクトメニューでは、回答を必須にできない。不具合を修正しました。
> (デフォルトの選択項目番号を未記入にすることで未選択状態にできます。)
>
> ■printのヘッダ情報をデフォルトでSJISに修正しました。
>
> ■集計結果のメールのメールのヘッダ情報表示部分を件名とメーラー名を正しいものに修正しました
>
>
> ■その他
> 管理室等の分かりにくい箇所に少し説明文を追加しました。
>
>
> y_mail.cgi
> /ym_template/kanri_admin.html
> /ym_template/kanri_user.html
> /ym_lib/ym_lib.pl
> を差し替え
>
diff -r yomi-mailer-201/readme.txt yomi-mailer-205/readme.txt
52c52
< 「総合管理室」から新しいメールフォーム(ユーザ)を新規作成するしてください。
---
> 「総合管理室」から新しいメールフォーム(ユーザ)を新規作成してください。
diff -r yomi-mailer-201/y_mail.cgi yomi-mailer-205/y_mail.cgi
8c8
< $ver="2.01";
---
> $ver="2.05";
10,11c10,11
< # Yomi-Mailer Ver2.01 [メールフォーム] (Since:1999/12/27)
< # (C) 1999-2001 by yomi
---
> # Yomi-Mailer Ver2.05 [メールフォーム] (Since:1999/12/27)
> # (C) 1999-2003 by yomi
23c23,42
< #use KCatch;
---
> $HTTP_HEADER_CONTENT_TYPE = "Content-type: text/html; charset=Shift_JIS\n\n";
>
> BEGIN{ #サーバエラーをトラップ
> $DIE_CGI_ERROR_FL=undef;
> sub main::DIE_CGI_ERROR{
> my $mes=shift;
> my $back=$ENV{'HTTP_REFERER'}?qq([戻る]):
> "
";
> print $HTTP_HEADER_CONTENT_TYPE unless $DIE_CGI_ERROR_FL;
> $DIE_CGI_ERROR_FL=1;
> print qq(
> CGI エラー
> エラーメッセージ:
> $mes
>
> $back
> );
> }
> $main::SIG{__DIE__}=\&main::DIE_CGI_ERROR;
> };
37c56
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
46c65
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
52c71
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
131a151,152
> X-Mailer: Yomi-Mailer $ver
> X-REMOTE-ADDR: $ENV{'REMOTE_ADDR'}
159c180
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
168c189
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
230c251
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
234c255
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
diff -r yomi-mailer-201/ym_lib/ym_lib.pl yomi-mailer-205/ym_lib/ym_lib.pl
382c382
< my($i)=1;
---
> my($i)=$st->{defo_sel}?1:0;
383a384
> print qq(