### つっこみログ更新時刻取得
sub tsukkomi_update_list {
	my @LIST;
	if (!opendir(DIR, "./tsukkomi")) { return 0; }
	foreach my $fname ( readdir(DIR) ) {
		next unless $fname =~ /^tukkomi_/;
		my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime((stat("./tsukkomi/$fname"))[9]);
		$year += 1900;
		$month += 1;
		my $dnt = sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year, $month, $mday, $hour, $min, $sec);
		push(@LIST, "$dnt|$fname");
	}
	closedir(DIR);
	return 0 if $#LIST == -1;
	
	@LIST = sort { $b cmp $a; } @LIST;
	
	my $cont;
	$cont = "<dl><font size=\"$ini{'latestarticle_fontsize'}\">\n\t<dt>◆つっこみ更新時刻\n\t\t<ul>\n";
	foreach my $listnb (0..4) {
		last if $LIST[$listnb] eq '';
		my ($dnt, $alt) = split(/\|/, $LIST[$listnb]);
		
		# 内容ひっくりかえし
		open(FL, "./tsukkomi/$alt"); my @TKN_TMP = <FL>; close(FL);
		@TKN_TMP = reverse @TKN_TMP;
		my $tsukkomi_namelist;
		foreach (@TKN_TMP) {
			my $nm = (split(/<>/, $_))[0];
			$tsukkomi_namelist .= "└ $nm<br>";
		}
		$alt =~ /()/; $alt =~ /(\d\d\d\d\d\d\d\d)/;
		my $target = $1;
		$target =~ /(\d\d\d\d)(\d\d)(\d\d)/;
		my $target_dnt = "$1/$2/$3";
		$cont .= "\t\t<li><a href=\"sakura.cgi?ct=1&target=$target\">$target_dnt の日記</a><br>$tsukkomi_namelist\n";
	}
	$cont .= "\t\t</ul>\n</dl></font>\n";
	
	return $cont;
}