maff
/
BlogAlba
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use time::hires

This commit is contained in:
Matthew Connelly 2015-03-11 22:28:35 +00:00
parent 803d5d08f1
commit 265d93b277
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
blogalba
View File

@ -13,6 +13,7 @@ use YAML;
use POSIX qw/strftime/;
use Date::Parse qw/str2time/; #Required for converting the date field in posts to something strftime can work with
use Time::HiRes;
use XML::RSS;
use Unicode::Normalize;
@ -139,7 +140,7 @@ sub generate_feed {
}
sub do_cache {
return if $lastcache > (time - 3600);
$lastcache = time;
$lastcache = time;my $st=Time::HiRes::gettimeofday();
undef @posts;undef @pages;
opendir POSTS, "$basedir/posts/" or die "Couldn't open posts directory $basedir/posts/";
while(readdir POSTS) {
@ -163,7 +164,7 @@ sub do_cache {
generate_feed;
%defparams = (
INDEX => 0, NAV => [@nav], url => $blog->{url}, recent => [@posts[0 .. ($#posts > ($blog->{config}->{rss_posts}-1)? ($blog->{config}->{rss_posts}-1) : $#posts)]],
gentime => timefmt($lastcache, '%H:%M %e/%-m/%y %Z'), genworktime => (time - $lastcache), host => $HOST,
gentime => timefmt($lastcache, '%H:%M %e/%-m/%y %Z'), genworktime => Time::HiRes::tv_interval($lastcache), host => $HOST,
about => $blog->{about}, author => $blog->{author}, name => $blog->{name}, tagline => $blog->{tagline}, keywords => $blog->{keywords},
robots => $blog->{config}->{indexable}? '<meta name="ROBOTS" content="INDEX, FOLLOW" />' : '<meta name="ROBOTS" content="NOINDEX, NOFOLLOW" />',
);