Browse Source

add feed generation

master
Brennen Bearnes 7 years ago
parent
commit
ad6607e72c
1 changed files with 47 additions and 0 deletions
  1. +47
    -0
      git-feed.pl

+ 47
- 0
git-feed.pl View File

@ -0,0 +1,47 @@
#!/usr/bin/env perl
# TODO: this really just ought to be a general-purpose utility
use warnings;
use strict;
use 5.10.0;
use XML::Atom::SimpleFeed;
use HTML::Entities;
my $page_url = "http://tilde.club/~brennen/";
my $feed_url = "http://tilde.club/~brennen/feed.xml";
my $log = `git log -10 --pretty=format:"%H _ %ai _ %s"`;
my $feed = XML::Atom::SimpleFeed->new(
title => "Brennen's tilde.club page",
link => $page_url,
link => { rel => 'self', href => $feed_url, },
author => 'Brennen Bearnes',
id => $page_url,
generator => 'XML::Atom::SimpleFeed',
# updated => iso_date(Wala::get_mtime($month_file)),
);
while ($log =~ m/^([a-z0-9]+) _ (.*) _ (.*)$/gm) {
my $hash = $1;
my $full_commit = `git show $hash`;
my $formatted_commit = '<pre>' . encode_entities($full_commit) . '</pre>';
my $date = $2;
my $subj = $3;
$feed->add_entry(
title => $subj,
link => $page_url,
id => $hash,
content => $formatted_commit,
updated => $date,
);
}
print $feed->as_string;
sub iso_date {
my ($time) = @_;
return strftime("%Y-%m-%dT%H:%M:%SZ", localtime($time));
}

Loading…
Cancel
Save