package entries_index_lastupdate;

use strict;
use vars qw($last_update);

# 最終更新日を取得
sub start {
	1;
}

sub head {
	my ($pkg, $currentdir, $head_ref) = @_;
	my @s;
	my @t;

	$last_update = "*not found*" if (!(-e $blosxom::entries_index_datafile));
	@s = stat($blosxom::entries_index_datafile);
	@t = localtime($s[9]);

	$t[5] += 1900;	# year
	$t[4]++;	# month

	$last_update = sprintf("%4d/%02d/%02d %02d:%02d", $t[5], $t[4], $t[3], $t[2], $t[1]);
	1;
}

1;

__END__