#!/usr/bin/perl

#==========================================================
# ■■■■■ Detabase Factory Main File
#
# CoolandCool http://www.coolandcool.net/
# しょういち    webmaster@coolandcool.net
#==========================================================

require 'setup.cgi';		# setup.cgiファイルを同じフォルダに。

&decode;
$pass = $in{"pass"}; $page = $in{'page'}; $mode = $in{'mode'};
$tpl_name = "$in{'tpl'}.html";		# テンプレートファイル
$key = $in{"key"};					# 検索キーワード
$search_title = $in{"key"};			# 検索キーワード
$search_label = $in{"label"};		# 検索項目
$s_type = $in{'type'}; 				# 検索タイプ
$view   = $in{'view'};				# 表示の並び順

$sort_item = $in{'sort_item'};
$sort_mode = $in{'sort_mode'};

if ( $_v ) { $key = $_v; $search_label = "0"; }
$label2 = $in{'label2'}; $type2 = $in{'type2'}; $many2 = $in{'many2'};
$label3 = $in{'label3'}; $key3  = $in{'key3'};  $type3 = $in{'type3'};
$key4 = $in{'key4'};



# メイン処理_________________________________________________________

if ( $mode eq "mail" ) { &search; &mail_form; }
elsif ( $mode eq "mail_send" ) { &mail_send; }
elsif ( $mode eq "mail_cancel" ) { &mail_cancel; }

if ( !$in{"hor"} ) { $max_hor = 1 ; } else { $max_hor = $in{"hor"}; }
if ( $in{'max'} ) { $view_max = $in{'max'}; }
if ( !$in{'width'} ) { $table_width = '100%'; } else { $table_width = $in{'width'}; }
if ( !$in{'tpl'} ) { $tpl_name = 'view.html'; }
&read_plate;
&search;
&view;
exit;


# 摘出処理___________________________________________________________
sub search {
&db_read;
&search_run;

@NEW = @DBlines;
$search_many = $#DBlines + 1;
$all_data = $search_many;

if ( $key ne "" ) { # 全件処理ではない場合
	$d_key = $key;
	@NEW = ();
	$search_many = "0"; $s_a = "0"; $s_b = "0"; $s_c = "0"; $s_d = "\0"; # ヒット件数クリア
	
	if ( !$s_type ) { $s_type = "or"; } 	# タイプがない場合はOR検索で
	
	&jcode::convert(*key,'euc');
	if ( $s_type ne "eq" ) { $key =~ s/　/ /g; $key =~ s/\t/ /g; }
	@pairs = split(/\s+/,$key);
	&ctrl_read; &db_read;
	
	foreach ( 0 .. $#DBlines ) {
		$flag = 0; $target = $DBlines[$_];
		if ( $search_label ne "" ) { # 項目絞り処理
				($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30],$item[31],$item[32]) = split(/<>/,$DBlines[$_]);
			$target = $item[$search_label];
		}
		
		&jcode::convert(*target, 'euc');
		if ( $s_type ne "eq" ) { $target =~ s/　//g; $target =~ s/ //g; }
		
		if ( $s_type ne "eq" ) {
			foreach $pair (@pairs){
				if ( index ($target, $pair) != -1 ) {
					$flag = 1;
					if ( $s_type eq 'or' ) { last; }
				} else {
					if ( $s_type eq 'and' ) { $flag = 0; last; }
				}
			}
			
			if ( $flag eq '1' ) {
				push(@NEW,$DBlines[$_]);
				$search_many++; $s_a++;
			}
		
		} else {
			if ( $key eq $target ) { push(@NEW,$DBlines[$_]); $search_many++; $s_a++; }
		}
	} # foreach
}

if ( $label2 ne "" ) { # 大なり小なり絞り込み
	$search_many = "0";
	foreach ( 0 .. $#NEW ) {
		($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30],$item[31],$item[32]) = split(/<>/,$NEW[$_]);
		$target = $item[$label2];
		if ( $type2 eq "1" ) { if ( $target >= $many2 ) { push(@RNEW,$NEW[$_]); $search_many++; $s_b++; } }
		elsif ( $type2 eq "2" ) { if ( $target <= $many2 ) { push(@RNEW,$NEW[$_]); $search_many++; $s_b++; } }
		elsif ( $type2 eq "3" ) { if ( $target > $many2 ) { push(@RNEW,$NEW[$_]); $search_many++; $s_b++; } }
		else { if ( $target < $many2 ) { push(@RNEW,$NEW[$_]); $search_many++; $s_b++; } }
		}
	@NEW = @RNEW;
	}

if ( $key3 ne "" ) { # 第二検索
	$d_key3 = $key3; @pairs = (); @RNEW = (); $search_many = "0";
	&jcode::convert(*key3,'euc');
	$key3 =~ s/　/ /g; $key3 =~ s/\t/ /g;
	@pairs = split(/\s+/,$key3);
	&ctrl_read; &db_read;
	if ( !$type3 ) { $type3  = "or"; } 	# タイプがない場合はOR検索で
	
	foreach ( 0 .. $#NEW ) {
	$flag = 0; $target = $NEW[$_];
	if ( $label3 ) { # 項目絞り処理
		($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30],$item[31],$item[32]) = split(/<>/,$NEW[$_]);
		$target = $item[$label3];
		}
	$target =~ s/　//g; $target =~ s/ //g; # 全角・半角スペース削除
	&jcode::convert(*target, 'euc');
		foreach $pair (@pairs){
			if ( index ($target, $pair) != -1 ) {
#			if ( $target =~ /$pair/i ) {
				$flag = 1;
				if ( $type3 eq 'or' ) { last; }
				} else {
				if ( $type3 eq 'and' ) { $flag = 0; last; }
				}
			}
		if ( $flag eq '1' ) {
			push(@RNEW,$NEW[$_]);
			$search_many++; $s_c++;
			}
		}
	@NEW = @RNEW;
	}

if ( $key4 ne "" ) { # 指定時間内記事絞り込み
	@RNEW = (); $search_many = "0"; $nowtime = time;
	foreach ( 0 .. $#NEW ) {
		($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30],$item[31],$item[32]) = split(/<>/,$NEW[$_]);
		if ( ( $nowtime - $item[0] ) < 60*60*$key4 ) { push(@RNEW,$NEW[$_]); $search_many++; $s_d++; }
		}
	@NEW = @RNEW;
	}


if ( $view eq "rvs" ) { @NEW = reverse(@NEW); }
if ( !$rvskey ) { &sort_rvs; }
if ( $sort_mode ) {
	if ( $sort_mode eq "1" ) { @NEW = sort{(split(/<>/,$a))[$sort_item] cmp (split(/<>/,$b))[$sort_item]}@NEW; }
	elsif ( $sort_mode eq "2" )  { @NEW = sort{(split(/<>/,$b))[$sort_item] cmp (split(/<>/,$a))[$sort_item]}@NEW; }
	elsif ( $sort_mode eq "3" )  { @NEW = sort{(split(/<>/,$a))[$sort_item] <=> (split(/<>/,$b))[$sort_item]}@NEW; }
	elsif ( $sort_mode eq "4" )  { @NEW = sort{(split(/<>/,$b))[$sort_item] <=> (split(/<>/,$a))[$sort_item]}@NEW; }
}


}


# メール送信フォーム_________________________________________________
sub mail_form {
if ( $pass ne $master_pass ) { &error("パスワードが異なります。"); }
$mail_label = $in{"mail_label"};
$mail_file = time;

$title = "メール一斉送信";
&head;

$i = 0;	$m=0; $n=$#NEW + 1;

print "<table width=500 border=0 cellspacing=0 cellpadding=2 align=center><tr bgcolor=\"#FF0000\"><td><p align=\"center\"><font color=#FFFFFF><b>送信取り消し</b></font></p></td></tr></table><p align=center>送信を取り消す場合は、必ずこの取り消しボタンを押してください。</p>";
print "<form method=\"post\" action=\"profile.cgi\"><input type=hidden name=mode value =\"mail_cancel\"><input type=hidden name=mail_file value =\"$mail_file\">";
print "<center><input type=submit value=\"送信取り消し\"></center><BR><BR>";
print "</form>";

print '<form method="post" action="profile.cgi">';
print "<input type=hidden name=mode value =\"mail_send\">";
print "<input type=hidden name=mail_file value =\"$mail_file\">";

print "<table width=500 border=0 cellspacing=0 cellpadding=2 align=center><tr bgcolor=\"#666666\"><td><p align=\"center\"><font color=#FFFFFF>送信者一覧</font></p></td></tr></table><p align=center>* チェックを外した人には送信されません。</p><table border=1 cellpadding=4 width=90% align=center>";
foreach ( 0 .. $n ) {
	($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30]) = split(/<>/,$NEW[$_]);
	if ( $item[$mail_label] ) { push (@NEW_mail,"$item[$mail_label]\n"); $f = "<input type=checkbox name=\"mail_sw$m\" value=\"on\" checked>"; $m++; } else { $item[$mail_label] = "メール登録無し"; $f = "-"; }

	if ( $_ % 2 eq 0 && $item[0] ) {
		print "<tr><td width=5%>$f</td><td width=20%>$item[1]</td><td width=25%>$item[$mail_label]</td>\n"; }
	elsif ( $_ % 2 eq 0 ) { print "</table>"; last; }
	elsif ( $item[0] ) {
		print "<td width=5%>$f</td><td width=20%>$item[1]</td><td width=25%>$item[$mail_label]</td></tr>\n";
		}
	else { print "<td colspan=3><br></td></tr></table>"; last; }

	$i++; if ( $i >= 10 ) { print "</table>\n<table border=1 cellpadding=4 width=90% align=center>"; $i = 0;}
	}

open(LOG,">$tmp_dir/$mail_file.cgi") || &error("一時ファイル$tmp_dir/$mail_file.cgiに書き込めません。<br>$tmp_dirフォルダのパーミッションを確認してください。");
eval 'flock(LOG,2);';
print LOG @NEW_mail;
eval 'flock(LOG,8);';
close(LOG);

print '
<br><br>
<table width="500" border="0" cellspacing="0" cellpadding="2" align=center>
<tr bgcolor="#666666"><td><p align="center"><font color=#FFFFFF>送信メール</font></p></td></tr></table><BR>
  <table border="1" cellspacing="0" cellpadding="4" align="center" width="500">
    <tr> 
      <td align="right">追加送信先（CC）：</td>
      <td> 
        <input type="text" name="mail_cc" size="30">
      </td>
    </tr>
    <tr> 
      <td align="right">タイトル：</td>
      <td> 
        <input type="text" name="mail_title" size="40">
      </td>
    </tr>
    <tr align="right"> 
      <td colspan="2"> 
        <textarea name="mail_body" rows="8" cols="60"></textarea>
      </td>
    </tr>
    <tr> 
      <td align="right">送信者メールアドレス：</td>
      <td> 
        <input type="text" name="mail_from" size="30">
      </td>
    </tr>
    <tr> 
      <td colspan="2">
        <p><font size="2">＊ 不正なメールアドレスが送信先に含まれている場合、全てのメールが正常に送信できないことがあります。<br>
          ＊ 送信者には確認のために同じ内容のメールが送信されます。</font></p>
        <p align="center"> 
          <input type="submit" value=" 送信 ">
        </p>
</td>
    </tr>
  </table>
  </form>
';
&copy;
exit;
}


# メール送信処理_____________________________________________________
sub mail_send {

$mail_file = $in{"mail_file"};
$mail_body = $in{"mail_body"};
$mail_subject = $in{"mail_title"};
$mail_from = $in{"mail_from"};
$mail_cc = $in{"mail_cc"};

open(LOG,"$tmp_dir/$mail_file.cgi") || &error("メール送信データファイル$tmp_dir/$mail_file.cgiが開けません。");
@mails = <LOG>;
close(LOG);

foreach ( 0 .. $#mails ) {
	if ( $in{"mail_sw$_"} ) { chop($mails[$_]); $mailto="$mailto$mails[$_], "; }
	}

unlink("$tmp_dir/$mail_file.cgi");

&jcode'convert(*mail_subject,'jis');
&jcode'convert(*mail_body,'jis');

if (open(MAIL,"| $sendmail -t")) {
	print MAIL "X-Mailer: $ver\n";
	print MAIL "Errors-To: $mail_master\n";
	print MAIL "To: $mail_from\n";
	if ( $mail_cc ) { print MAIL "Cc: $mail_cc\n"; }
	print MAIL "Bcc: $mailto\n";
	print MAIL "From: $mail_from\n";
	print MAIL "Subject: $mail_subject\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "Content-type: text/plain\n\n";
	print MAIL "$mail_body";
	close(MAIL);
	}

$move_to = "system.cgi?mode=admin";
&move_to;
}


# メールキャンセル処理_____________________________________________________
sub mail_cancel {
$mail_file = $in{"mail_file"};
unlink("$tmp_dir/$mail_file.cgi");
$move_to = "system.cgi?mode=admin";
&move_to;
}


# 表示処理___________________________________________________________
sub view {

# ヘッダ表示処理
&ctrl_read;
$dammy = "";

foreach ( 1 .. $#lines ) {
	( $label[$_],$label_input[$_],$label_value[$_],$label_tag[$_],$label_list[$_],$label_need[$_] ) = split(/<>/,$lines[$_]);
	}

# タイトルメッセージ処理
if ( $view eq "rvs" ) { $view_t = "を新着順に\表\示"; } else { $view_t = "を登録順\表\示"; }
$add_mssg = "全データー（$all_data件）中、";

if ( $s_type eq "all" || ( $key eq "" && $label2 eq ""  && $key3 eq ""  && $key4 eq ""  ) ) { $title = "<b>[全件]</b>（$search_many件）"; }
if ( $d_key ne "" ) {
	if ( $search_label eq "" ) { $label_name = "<b>全項目</b>"; }
	else { ( $label_name, $dammy ) = split(/<>/,$lines[$search_label]); }
	$title = "$add_mssg<b>[$label_name]</b> に<b>「$search_title」</b>を含むもの（$s_a件）";
	}

if ( $mode eq "ev" ) { $title = "修正情報\表\示"; $view_t = ""; $_mssg = "このデーターの単独\表\示URLは<br><a href=\"" . $master_url . "profile.cgi\?_v=$key\">" . $master_url . "profile.cgi\?_v=$key</a><br>です。更新したり紹介する際にお使い下さい。"; }
elsif ( $_v ) { $title = "登録番号 $_v を\表\示"; $view_t = ""; }
elsif ( $mode eq "delete" ) { $title = "抹消されました。"; $view_t = ""; }
elsif ( $mode eq "new" ) { $title = "登録完了しました。"; $view_t = ""; $_mssg = "このデーターの単独\表\示URLは<br><a href=\"" . $master_url . "profile.cgi\?_v=$key\">" . $master_url . "profile.cgi\?_v=$key</a><br>です。更新する際にお使い下さい。"; }

$dammy = "";
if ( $key3 ne "" ) {
	if ( $label3 eq "" ) { $label_name = "全項目"; } else { ( $label_name,$dammy ) = split(/<>/,$lines[$label3]); }
	if ( $title ne "" ) { $dammy = "且つ<br>"; } else { $title = "$add_mssg"; }
	$title = "$title $dammy <b>[$label_name]</b> に<b>「$d_key3」</b>を含むもの（$s_c件）";
	}

$dammy = "";
$m1 = $label[$label2];
if ( $label2 ne "" ) {
	if ( $title ne "" ) { $dammy = "且つ<br>"; } else { $title = "$add_mssg"; }
	if ( $type2 eq "1" ) {  $title = "$title $dammy <b>[$m1]</b> が <b>$many2以上</b>（$s_b件）"; }
	elsif ( $type2 eq "2" ) { $title = "$title $dammy <b>[$m1]</b> が <b>$many2以下</b>（$s_b件）"; }
	elsif ( $type2 eq "3" ) { $title = "$title $dammy <b>[$m1]</b> が <b>$many2より大きい</b>（$s_b件）"; }
	else { $title = "$title $dammy <b>[$m1]</b> が <b>$many2未満</b>（$s_b件）"; }
	}

$dammy = "";
if ( $key4 ne "" ) {
	if ( $title ne "" ) { $dammy = "のうち<br>"; } else { $title = "$add_mssg"; }
	$title = "$title $dammy <b>$key4 時間以内の新着</b>（$s_d件）"; }

$title = "$title $view_t";

# データー表示処理
$end_data = $search_many;			# 表示する全体の記事数
if ( !$page ) { $page = '0'; }			# このページの最初の記事番号
$page_end = $page + ($view_max * $max_hor);	# このページの最後の記事番号

if ( $page_end >= $end_data ) { $page_end = $end_data; }	# このページの最後の記事番号が表示する記事数よりも多い場合は、このページの最後の記事番号を調整する。

$next_line = $page_end;					# 次のページの記事番号
$back_line = $page - ( $view_max * $max_hor );		# 前のページの記事番号
if ( $back_line < 0 ) { $back_line = "0"; }		# 前のページの記事番号調整
$nowtime = time;

$all_page_num = ceil($end_data/$view_max);
if ( $in{"hor"} ne "" ) { $all_page_num = ceil($all_page_num / $in{"hor"}); }
if ( $in{"hor"} ne "" ) { $now_page_num = int($page/$view_max / $in{"hor"}) + 1; }
else { $now_page_num = int($page/$view_max) + 1; }

if ( $all_page_num == 0 ) { $now_page_num = "0"; }
$page_num = "$now_page_num/$all_page_num";

$head =~ s/■copy■/$copy/i;
$head =~ s/■title■/$title/i;
$head =~ s/■mssg■/$_mssg/i;
$head =~ s/■css■/$css/i;
$head =~ s/■page■/$page_num/i;

print "Content-type: text/html\n\n";
print "$head";
print <<EOM;
<script language="JavaScript">
<!--
function view_img(img,type) {
	var Win1=window.open(\'\',\'_blank\',type);
	if (navigator.appVersion.charAt(0) >= 3 ) { Win1.focus() };
	Win1.document.clear();
	Win1.document.write("<html><head></head><title>Sub Window</title><head>");
	Win1.document.write("<body bgcolor=#ffffff><form><center><img src="+img+"><BR><BR><input type=button value=\'閉じる\' onClick=\'window.close()\'></center></form></body></html>");
	Win1.document.close();
	}
//-->
</script>
EOM

&jump;

$i = $page;	# 記事スタート番号
$view_times = ( $page_end - $page ) / $max_hor ; # 表示行数
$view_times = ( $view_times == int($view_times) ? $view_times : int($view_times + 1) );	# 表示行数
$width = 100/$max_hor;	# 表示幅

if ( ( $page_end - $page ) / $max_hor < $view_max ) { $e_view = $view_max; $view_max = $view_times; }	# 表示行数調整

foreach ( 1 .. $view_max ) { # 処理開始（１ページの表示行数）

print "<table border=0 width=\"$table_width\" align=center><tr>";

	foreach ( 1 .. $max_hor ) { # １行の表示列数
	$art = $article; # 変換準備

# ヒット強調表示ルーチン
#	foreach $pair (@pairs){
#	$NEW[$i] =~ s/$pair/\<font color=\"#FF0000\"\>\<b\>$pair\<\/b\>\<\/font\>/ig;
#	}

	($item[0],$item[1],$item[2],$item[3],$item[4],$item[5],$item[6],$item[7],$item[8],$item[9],$item[10],$item[11],$item[12],$item[13],$item[14],$item[15],$item[16],$item[17],$item[18],$item[19],$item[20],$item[21],$item[22],$item[23],$item[24],$item[25],$item[26],$item[27],$item[28],$item[29],$item[30],$item[31],$item[32]) = split(/<>/,$NEW[$i]); # 項目用意
		print "<td width=\"$width\%\" valign=top>";
		
		if ( $item[0] ne "" ) {	# 置き換え処理開始
		
		$edit = "<form method=post action=system.cgi><input type=\"hidden\" name=\"number\" value=\"$item[0]\"><input type=\"hidden\" name=\"mode\" value=\"edit\"><input name=\"pass\" type=\"password\" value=\"\" size=\"8\"><input type=\"submit\" value=\"編集\"></form>\n";	# 編集用フォーム
		
			$m = 0;
			foreach ( 1 .. $label_many ) {
				&make_link($item[$m]);
				if ( $item[$m] eq "" ) { $item[$m] = "&nbsp;"; }
				if ( $pass ne $master_pass && $label_value[$m] eq "pass" ) { $item[$m] = "--" }
				$art =~ s/■item$m■/$item[$m]/ig;
				$art =~ s/■label$m■/$label[$m]/ig;
				$m++;
				}
			$art =~ s/■edit■/$edit/i;
			$url = "$master_url" . "profile.cgi\?_v=$item[0]";
			$art =~ s/■url■/$url/ig;
			if ( ( $nowtime - $item[0] ) < 60*60*$ch_time ) { $art =~ s/■new■/$new/i; } else { $art =~ s/■new■//i; }
			print $art;
			}
		print "</td>";
		$i++;
		}
	print "</tr></table>";
	print "$hr";
	}

if ( !$search_many ) { print "<p align=center><B>該当データーなし</B></p>"; }

$view_max = $e_view; # 待避した値を戻してやる。

&jump;

# フッダ表示処理
$hoot =~ s/■page■/$page_num/i;
$hoot =~ s/■title■/$title/i;
$hoot =~ s/■copy■/$copy/i;
$hoot =~ s/■mssg■/$_mssg/i;
print "$hoot";
exit;
}