wakautils.pl - Формат времени

809a810,817
> 	elsif($style eq "hanabira")
> 	{
> 		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
>                                             localtime($time);
> 		return sprintf("%02d %s %04d (%s) %02d:%02d",
> 		$mday, $months[$mon], $year+1900, $days[$wday], $hour, $min);
> 	}
>