# Blosxom Plugin: naganen
# Author: ogane
# Version: 0
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/

package naganen;

# --- Configurable Variables -----------

# --- Plug-in package variables --------

use CGI qw/:standard/;

sub start {
	return 1;
}

sub filter {
	if (param('date')) {
		my($pkg, $files_ref,
		$sec, $min, $hour, $day, $month, $date,
		$year, $wday, $yday, $isdst) = @_;
	
		foreach ( keys( %$files_ref )) {
			($sec, $min, $hour, $day, $month,
			$year, $wday, $yday, $isdst) = localtime($files_ref->{$_});
			$month += 1;

			$date = sprintf("%02d%02d", $month, $day);

			param('date') =~ /$date/ or delete $files_ref->{$_};
		}
	}
	1;

}

1;