#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ−ＢＯＡＲＤライブラリ（とほほ改ver1.0.2）
#┠──────────────────────────────────────
#┃過去ログ関係の関数が含まれています。
#┃過去ログ作成にあたっては直接ファイルにアクセスしています。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package LOG;

require './lib/mji.pl';

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   インデックス表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub index {
	-e "$CNF::place{'log'}{'path'}/info.dat"
		or &::error(\'過去ログがないか、過去ログ情報ファイルが壊れています。');
	&BASE::init('log');
	print <<"__HTML__";
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
 <tr>
  <td valign="middle" align="center">
   <table border="0" cellspacing="0" cellpadding="0">
	<tr>
	 <table width="500" border="0">
	  <tr>
	   <td colspan="2" align="center">
		<font size="5" style="font-family: Arial; font-size: 180%">
		 <b>LOG INDEX</b>
		</font>
	   </td>
	  </tr>
__HTML__
	-e "$CNF::place{'log'}{'path'}/index.dat"
		&& !open(NDX, "<$CNF::place{'log'}{'path'}/index.dat")
		&& &::error(\'過去ログデータファイルを開けませんでした。');
	while (<NDX>) {
		/^([^\t]+)\t([^\t]+)$/;
		my($old, $new) = (&COMMON::date('yy/m/d(dddd)', $1),
						  &COMMON::date('yy/m/d(dddd)', $2));
		print <<"__HTML__";
	  <tr>
	   <td width="50%" align="center" nowrap>
		<a href="$CNF::place{'log'}{'url'}/topic_$..htm">
		 <b>$old &nbsp;〜&nbsp; $new&nbsp;&nbsp;</b>
		</a>
	   </td>
__HTML__
		$_ = <NDX>;
		if (/^([^\t]+)\t([^\t]+)$/) {
			($old, $new) = (&COMMON::date('yy/m/d(dddd)', $1),
							&COMMON::date('yy/m/d(dddd)', $2));
			print <<"__HTML__";
	   <td width="50%" align="center" nowrap>
		<a href="$CNF::place{'log'}{'url'}/topic_$..htm">
		 <b>&nbsp;&nbsp;$old &nbsp;〜&nbsp; $new</b>
		</a>
	   </td>
	  </tr>
__HTML__
		}
		else {
			print <<"__HTML__";
	   <td width="50%" align="center" nowrap>&nbsp;</td>
	  </tr>
__HTML__
		}
	}
	$.++;
	print <<"__HTML__";
	  <tr>
	   <td colspan="2" align="center">
		<br>
		<a href="$CNF::place{'log'}{'url'}/topic_$..htm">
		 <b>【&nbsp;&nbsp;最&nbsp;&nbsp;&nbsp;新&nbsp;&nbsp;】</b>
		</a>
	   </td>
	  </tr>
	  <tr>
	   <td colspan="2" align="center">
		<br>
		<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}"></b>
		 <b>通常モードに戻る</a>
		</a>
	   </td>
	  </tr>
	 </table>
	</tr>
   </table>
  </td>
 </tr>
</table>

</body>

</html>

__HTML__
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   検索
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub search {
	local *word = shift; my $way = shift; my $number = shift;
	my $offset = shift;
	my $exist = 10; my $count;
	while ($count != $number) {
		$offset++; my $name = "tree_" . $offset . ".htm";
		if (!-e "$CNF::place{'log'}{'path'}/$name") { --$exist ? next : last;}
		$exist = 10; open(LOG, "<$CNF::place{'log'}{'path'}/$name") or next;
		while (<LOG>) { /^　────/ && last;}
		my @word_tmp = @word; $way or (my %word_tmp = map(($_, ''), @word));
		my($line, $flag);
		MAIN: while ($line = <LOG>) {
			if ($way) {
				$flag = 0;
				foreach (@word_tmp) {
					if (index($line, $_) != -1) { $flag = 1; last MAIN;}
				}
			}
			else {
				foreach (keys %word_tmp) {
					(index($line, $_) != -1) && delete $word_tmp{$_};
				}
				if (!keys %word_tmp) { $flag = 1; last MAIN;}
			}
		}
		if (!$flag) { close(LOG); next;}
		&DESIGN::log_name($name); seek(LOG, 0, 0);
		while ($line = <LOG>) {
			if ($flag) {
				if ($line =~ /^　<a href="(#\d+)">(.*)<\/a>$/) {
					&DESIGN::log_tree($name . $1, $2); $flag = 0;
				}
			}
			else {
				$line =~ /^　((?:　)+[^<]+)<a href="(#\d+)">(.*)<\/a>$/
					or last;
				&DESIGN::log_tree($name . $2, $1 . $3);
			}
		}
		print ${&DESIGN::line}; $count++; close(LOG);
	}
	return($count, $offset);
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub info {
	my %info;
	if (!-e "$CNF::place{'log'}{'path'}/info.dat") {
		$info{'tre'}{'no'} = $info{'tpc'}{'no'} = $info{'tpc'}{'count'}
			= $info{'tpc'}{'new'}{'time'} = $info{'tpc'}{'old'}{'time'}
			= $info{'size'} = 0;
	}
	else {
		open(NFO, "<$CNF::place{'log'}{'path'}/info.dat") or return(0);
		($info{'tre'}{'no'}, $info{'tpc'}{'no'}, $info{'tpc'}{'count'},
		 $info{'tpc'}{'new'}{'time'}, $info{'tpc'}{'old'}{'time'})
			= split(/\t/, <NFO>, 7);
		close(NFO);
		$info{'size'} = &COMMON::dir_size("$CNF::place{'log'}{'path'}");
	}
	return(\%info);
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   作成（慎重＆少し手抜き＆高負荷？）
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub make {
	local *tree = shift; local *msg = shift;
	my %icon = qw(L 　　┗ T 　　┣ _ 　　　 I 　　┃); my $r_tree;
	local @temp; (my $r_info = &info) or return(0); local *info = $r_info;
	foreach $r_tree (@tree) {
		$info{'tre'}{'no'}++;
		open(LTR, ">$CNF::place{'log'}{'path'}/tree_$info{'tre'}{'no'}.tmp")
			or return(0);
		push(@temp, "$CNF::place{'log'}{'path'}/tree_$info{'tre'}{'no'}.htm");
		select(LTR); 
#とほほ修正開始
		foreach (@{$r_tree}) {
			local *MSG = $msg{${$_}{'no'}};
			&head('tre'); last;
			}
#とほほ修正終了
		my $prev = $info{'tre'}{'no'} - 1;
		my $next = $info{'tre'}{'no'} + 1;
		print '<pre>', '　' x 32, 'Ｐａｇｅ';
		printf('%8.8s', $info{'tre'}{'no'});
		my $topic_index = $info{'tpc'}{'no'} + !($info{'tpc'}{'count'} % 100);
		print "\n", '━' x 40, "\n", '　　　',
			  qq|<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">|,
			  qq|通常モードに戻る</a>　　┃　　|,
			  qq|<a href="topic_$topic_index.htm">ＩＮＤＥＸ</a>　　┃　　|,
			  ($prev ? qq|<a href="tree_$prev.htm">≪前へ</a>| : '　　　'),
			  qq|　　│　　<a href="tree_$next.htm">次へ≫</a>　　　|, "\n",
			  '━' x 40, "\n";
		foreach (@{$r_tree}) {
			local *MSG = $_; my $branch;
			if ($MSG{'branch'}) {
				$branch = join('', map($icon{$_}, split(//, $MSG{'branch'})));
			}
			else {
				&make_sub($_) or return(0); select(LTR); 
				$MSG{'subject'} = '▼' . $MSG{'subject'};
			}
			print '　', qq|$branch<a href="#$MSG{'no'}"><b>$MSG{'subject'}|,
				  qq|</b>  $MSG{'name'} $MSG{'date'}</a>\n|;
		}
		foreach (@{$r_tree}) {
			local *MSG = $msg{${$_}{'no'}};
			$MSG{'email'} = ($MSG{'email'} && !$MSG{'mail_mode'})
							? qq| &lt;<a href="mailto:$MSG{'email'}">|
							. qq|$MSG{'email'}</a>&gt;| : '';
			&EMOJI::convert(\$MSG{'body'}, 1); $MSG{'body'} =~ s/$/<br>/gm;
			$MSG{'agent'} = ($CNF::view{'agent'}{'mode'})
							? qq| &lt;$MSG{'agent'}＠$MSG{'host'}&gt;| : '';
			print "\n", '　', '─' x 39,
				  qq|<a name="$MSG{'no'}">\n　■題名 ： |,
				  qq|$MSG{'subject'}\n　■名前 ： $MSG{'name'}$MSG{'email'}\n|,
				  qq|　■日付 ： $MSG{'date'}\n|,
				  ($MSG{'web'} ? qq|　■Ｗｅｂ ： <a href="$MSG{'web'}" |
							   . qq|target="_top">$MSG{'web'}</a>\n|
							   : ''),
				  '　', '-' x 73, qq|\n<table border="0" cellspacing="0" |,
				  qq|cellpadding="0" width="700"><tr><td width="5">|,
				  '&nbsp;' x 3, qq|</td><td>$MSG{'body'}<BR>
				  $MSG{'agent'}</td></tr></table>|,
				  qq|</a>\n|;
		}
		print '━' x 40, "\n", '　　　',
			  qq|<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">|,
			  qq|通常モードに戻る</a>　　┃　　|,
			  qq|<a href="topic_$topic_index.htm">ＩＮＤＥＸ</a>　　┃　　|,
			  ($prev ? qq|<a href="tree_$prev.htm">≪前へ</a>| : '　　　'),
			  qq|　　│　　<a href="tree_$next.htm">次へ≫</a>　　　|, "\n",
			  '━' x 40, "\n", '　' x 32, 'Ｐａｇｅ';
		printf('%8.8s', $info{'tre'}{'no'});
		print "\n\n</pre>\n\n</body>\n\n</html>\n"; close(LTR);
		open(NFO, ">$CNF::place{'log'}{'path'}/info.tmp") or return(0);
		push(@temp, "$CNF::place{'log'}{'path'}/info.dat"); select(NFO);
		print "$info{'tre'}{'no'}\t$info{'tpc'}{'no'}\t",
			  "$info{'tpc'}{'count'}\t$info{'tpc'}{'new'}{'time'}\t",
			  "$info{'tpc'}{'old'}{'time'}";
		close(NFO); select(STDOUT);
		foreach (@temp) {
			my $tmp = substr($_, 0, -3) . 'tmp';
			rename($tmp, $_) or rename($tmp, $_) or exit;
		}
		undef @temp;
	}
	return(1);

	sub make_sub {
		local *MSG = shift;
		if (($info{'tpc'}{'count'} == 100)
		 || (!-e "$CNF::place{'log'}{'path'}/topic_$info{'tpc'}{'no'}.htm")) {
			$info{'tpc'}{'no'}++;
			$info{'tpc'}{'count'} = $info{'tpc'}{'old'}{'time'}
				= $info{'tpc'}{'new'}{'time'} = 0;
			open(LTP, ">$CNF::place{'log'}{'path'}/topic_$info{'tpc'}{'no'}"
					. ".tmp") or return(0);
			select(LTP); &head('tpc'); my $prev = $info{'tpc'}{'no'} - 1;
			my $next = $info{'tpc'}{'no'} + 1;
			print '<pre>', '　' x 32, 'Ｐａｇｅ';
			printf('%8.8s', $info{'tpc'}{'no'});
			print "\n", '━' x 40, "\n", '　　　',
				  qq|<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">|,
				  qq|通常モードに戻る</a>　　┃　　<a href="|,
				  qq|$CNF::place{'this'}{'url'}?cmd=log;id=$::FORM{'id'}">|,
				  qq|ＩＮＤＥＸ</a>　　┃　　|,
				  ($prev ? qq|<a href="topic_$prev.htm">≪前へ</a>|
						 : '　　　'),
				  qq|　　│　　<a href="topic_$next.htm">次へ≫</a>　　　|,
				  "\n", '━' x 40, qq|</pre><pre style="line-height: 1.5">\n|;
		}
		else {
			open(OLD, "<$CNF::place{'log'}{'path'}/topic_$info{'tpc'}{'no'}"
					. ".htm")
				&& open(LTP, ">$CNF::place{'log'}{'path'}/"
						   . "topic_$info{'tpc'}{'no'}.tmp")
				or return(0);
			select(LTP); my $buf; while (read(OLD, $buf, 16384)) { print $buf;}
			close(OLD);
		}
		$info{'tpc'}{'count'}++;
		push(@temp, "$CNF::place{'log'}{'path'}/topic_$info{'tpc'}{'no'}.htm");
		if ($MSG{'date'}) {
			($MSG{'time'} > $info{'tpc'}{'new'}{'time'})
				&& ($info{'tpc'}{'new'}{'time'} = $MSG{'time'});
			if (!$info{'tpc'}{'old'}{'time'}
			 || ($MSG{'time'} < $info{'tpc'}{'old'}{'time'})) {
				$info{'tpc'}{'old'}{'time'} = $MSG{'time'};
			}
		}
		print qq|　・<a href="tree_$info{'tre'}{'no'}.htm">|,
			  qq|<b>$MSG{'subject'}</b>　 $MSG{'name'} $MSG{'date'}|,
			  qq| [$MSG{'reply'}]</a>\n|;
		if ($info{'tpc'}{'count'} == 100) {
			my $prev = $info{'tpc'}{'no'} - 1;
			my $next = $info{'tpc'}{'no'} + 1;
			print qq|</pre><pre>\n|, '━' x 40, "\n", '　　　',
				  qq|<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'id'}">|,
				  qq|通常モードに戻る</a>　　┃　　<a href="|,
				  qq|$CNF::place{'this'}{'url'}?cmd=log;id=$::FORM{'id'}">|,
				  qq|ＩＮＤＥＸ</a>　　┃　　|,
				  ($prev ? qq|<a href="topic_$prev.htm">≪前へ</a>|
						 : '　　　'),
				  qq|　　│　　<a href="topic_$next.htm">次へ≫</a>　　　|,
				  "\n", '━' x 40, "\n", '　' x 32, 'Ｐａｇｅ';
			printf('%8.8s', $info{'tpc'}{'no'});
			print "\n\n</pre>\n\n</body>\n\n</html>\n"; close(LTP);
			if (-e "$CNF::place{'log'}{'path'}/index.dat") {
				open(OLD, "<$CNF::place{'log'}{'path'}/index.dat")
					&& open(NDX, ">$CNF::place{'log'}{'path'}/index.tmp")
					or return(0);
				select(NDX); my $buf;
				while (read(OLD, $buf, 16384)) { print $buf;}
				close(OLD);
			}
			else {
				open(NDX, ">$CNF::place{'log'}{'path'}/index.tmp")
					or return(0);
				select(NDX);
			}
			push(@temp, "$CNF::place{'log'}{'path'}/index.dat");
			print "$info{'tpc'}{'old'}{'time'}\t$info{'tpc'}{'new'}{'time'}\n";
			close(NDX);
		}
		else { close(LTP);}
		return(1);
	}
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub head {
	my $mode = shift;

	print <<"__HTML__";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">

<head>
 <meta http-equiv="content-style-type" content="text/css">
 <style>
  a 	  { text-decoration: none;				  }
  a:hover { color: navy;						  }
  h1	  { margin: 0; padding: 0;				  }
  pre	  { font-size: 90%; margin: 0; padding: 0;}
  td	  { font-size: 90%; line-height: 130%;	  }
 </style>
<!--とほほ修正--><title>$CNF::base{'title'} - $CNF::menu{'title'}{'log'}「$MSG{'subject'}」</title>
</head>

<body bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000"
	  alink="#ff0000">

<!--とほほ修正--><h1>$CNF::menu{'title'}{'log'}</h1>
__HTML__
}

1;

# $Id: log.pl,v 1.1.1.3 2002/04/04 08:15:00 N.Hirai Exp $;