From 2ec9e089f43ea6aa8ed864be0a11fd438e220533 Mon Sep 17 00:00:00 2001
From: franck cuny <franck.cuny@rtgi.fr>
Date: Fri, 26 Dec 2008 21:24:13 +0100
Subject: lifestream script, template, and configuration file

---
 lifestream.pl | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 lifestream.pl

(limited to 'lifestream.pl')

diff --git a/lifestream.pl b/lifestream.pl
new file mode 100644
index 0000000..891e945
--- /dev/null
+++ b/lifestream.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+use strict;
+use feature 'say';
+
+use XML::Feed;
+use YAML::Syck;
+use URI;
+use Template;
+
+my $feeds = LoadFile( shift );
+
+my $hash_entries;
+foreach ( @$feeds ) {
+    my $feed = XML::Feed->parse( URI->new( $_->{ url } ) );
+    for my $e ( $feed->entries ) {
+        my $date = $e->issued->strftime( '%Y.%m.%d' );
+        push @{ $hash_entries->{ $date } },
+            {
+            source     => $_->{ source },
+            date       => $e->issued->hms,
+            title      => $e->title,
+            link       => $e->link,
+            source_url => $_->{ source_url },
+            };
+    }
+}
+
+my @dates = keys %$hash_entries;
+my @sorted_dates = sort { $a cmp $b } @dates;
+
+my $hash_templates;
+foreach my $date ( reverse @sorted_dates ) {
+    my @actions = sort { $b->{ date } cmp $a->{ date } }
+        @{ $hash_entries->{ $date } };
+    push @{ $hash_templates->{ entries } },
+        {
+        date    => $date,
+        actions => \@actions
+        };
+}
+
+my $template = Template->new;
+$template->process( 'lifestream.tt', $hash_templates, \my $content )
+    or die $!;
+open my $fh, '>:utf8', 'public/index.html';
+print $fh $content;
+close $fh;
-- 
cgit 1.4.1