diff -r wl-enq-102/enq.cgi wl-enq-109/enq.cgi
8c8
< $ver="1.02";
---
> $ver="1.09";
11c11
< #   (C) 2001 by yomi
---
> #   (C) 2001-2003 by yomi
23a24,25
> $HTTP_HEADER_CONTENT_TYPE = "Content-type: text/html; charset=Shift_JIS\n\n";
> 
30c32
< 		print "Content-type: text/html\n\n" unless $DIE_CGI_ERROR_FL;
---
> 		print $HTTP_HEADER_CONTENT_TYPE unless $DIE_CGI_ERROR_FL;
43d44
< #require "./we_lib/KCatch.pm";
59c60
< 	print "Content-type: text/html\n\n";
---
> 	print $HTTP_HEADER_CONTENT_TYPE;
68c69
< 		print "Content-type: text/html\n\n";
---
> 		print $HTTP_HEADER_CONTENT_TYPE;
74c75
< 		print "Content-type: text/html\n\n";
---
> 		print $HTTP_HEADER_CONTENT_TYPE;
113c114
< 					print $_ . "\n\n---------------------------------------\n";
---
> 					print $_ . "\n\n---------------------------------------\n" if $_;
154c155
< 		print "Content-type: text/html\n\n";
---
> 		print $HTTP_HEADER_CONTENT_TYPE;
192c193
< 		
---
> 		my($subject)="$EST_u{title} アンケート集計結果";
209c210
< 					$honbun.="$_\n"
---
> 					$honbun.="$_\n\n+------------------------------------+\n\n" if $_;
219c220,221
< Subject: $kenmei
---
> Subject: $subject
> X-Mailer: WL-Enq $ver
313c315
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
322c324
< print "Content-type: text/html\n\n";
---
> print $HTTP_HEADER_CONTENT_TYPE;
384c386
< 		print "Content-type: text/html\n\n";
---
> 		print $HTTP_HEADER_CONTENT_TYPE;
388c390
< 		print "Content-type: text/html\n\n";
---
> 		print $HTTP_HEADER_CONTENT_TYPE;
692c694
< 	foreach(@result){
---
> 	foreach(@ip_list){
866a869
> 		#日付変更ならIPリストを初期化（[0]はエポック秒を記録）
885c888
< ##-- end of y_mail.cgi --##
---
> ##-- end of enq.cgi --##
diff -r wl-enq-102/readme.txt wl-enq-109/readme.txt
30d29
<     +-- KCatch.pm(644) ※Copyright(c) Kawasaki Yuusuke
Only in wl-enq-102/we_lib: KCatch.pm
diff -r wl-enq-102/we_lib/we_lib.pl wl-enq-109/we_lib/we_lib.pl
400c400
< 	my($i)=1;
---
> 	my($i)=$st->{defo_sel}?1:0;
401a402
> 	print qq(<option value="" selected>▼選択してください) unless $i;
430c431
< 	デフォルト選択番号:<input type=text name=Fdefo_sel value="$st->{defo_sel}" size=3>　(例)上から2番目なら2を記入<br>　
---
> 	デフォルト選択番号:<input type=text name=Fdefo_sel value="$st->{defo_sel}" size=3>　<br>　 (例)上から2番目なら2を記入。未記入の場合には「▼選択してください」(未選択状態の意味)がデフォルトの選択になります。<br>　
473a475,487
> #フォーム入力値をチェック(select専用)
> sub check{
> 	my($st)=@_;
> 	my($error);
> 	#必須/任意
> 	if($st->{kinyu_fl}){
> 		if(!$main::FORM{"f$st->{id}"}){
> 			$error="<b>$st->{title}</b> は必ず選択してください";
> 		}
> 	}
> 	return $error;
> }
> 
769a784,807
> }
> 
> #フォーム入力値をチェック(checkbox専用)
> sub check{
> 	local(@tempsel, $tempselmax, $i, $flag=0);
> 	my($st)=@_;
> 	my($error);
> 	#必須/任意
> 	@tempsel = split(/<1>/, $st->{sel});
> 	$tempselmax = @tempsel;
> 	if($st->{kinyu_fl}){
> 	# 各項目チェックする。
> 	for ($i = 1; $i <= $tempselmax; $i++) {
> 		if($main::FORM{"f$st->{id}_$i"}){
> 			$flag = 1; # 何か選択されていた。
> 		}
> 	}
> 	# どれもチェックされていなかった場合エラー。
> 	if (!$flag) {
> 		$st->{title}=~s/&lt;br&gt;/<br>/g;
> 		$error="<b>$st->{title}</b> は必ず１つ以上チェックしてください";
> 	}
> 	}
> 	return $error;
diff -r wl-enq-102/we_template/kanri_admin.html wl-enq-109/we_template/kanri_admin.html
182c182
< 	<li>集計結果をE-Mailで送信：
---
> 	<li>集計結果をE-Mailで送信：（CGIからメール送信ができないサーバの場合には「する」を選択しないでください）<br>
187c187
< 	<li>ロック方法：
---
> 	<li>ロック方法：（通常はディレクトリロックを選択してください）<br>
190,199c190,204
< eval{symlink("","");};
< if($@){print qq(<input type=radio name="Flock_method" value="0" checked>ディレクトリロック);}
< else{
< 	my($lock_method_0,$lock_method_1); if($EST{lock_method}){$lock_method_1=" checkbox";}else{$lock_method_0=" checked";}
< print qq(<input type=radio name="Flock_method" value="0"$lock_method_0>ディレクトリロック | <input type=radio name="Flock_method" value="1"$lock_method_1>symlinkロック);
< }
< $@="";
< eval{crypt("test","we");};
< if($@){print qq(<input type=hidden name="Fcrypt" value="0">);}
< else{print qq(<input type=hidden name="Fcrypt" value="1">);}
---
> 
> my($lock_method_0,$lock_method_1); if($EST{lock_method}){$lock_method_1=" checkbox";}else{$lock_method_0=" checked";}
> print qq(
> <input type=radio name="Flock_method" value="0"$lock_method_0>ディレクトリロック | 
> <input type=radio name="Flock_method" value="1"$lock_method_1>symlinkロック
> <br><br>
> );
> 
> my($crypt_0,$crypt_1); $EST{crypt}?$crypt_1=" checked":$crypt_0=" checked";
> print qq(
> <li>crypt関数の使用：（通常は「使用可能\」を選択してください）
> <br>※サーバの仕様でCGIエラーが出る場合には「使用できない」を選択してください<br>
> <input type=radio name="Fcrypt" value="1"$crypt_1>使用可能\　｜
> <input type=radio name="Fcrypt" value="0"$crypt_0>使用できない
> );
200a206
> 
204c210
< 	<li>デバッグモード：
---
> 	<li>デバッグモード：（通常はOFFにしておいてください）<br>