diff options
author | franck cuny <franck.cuny@gmail.com> | 2008-12-27 13:13:16 +0100 |
---|---|---|
committer | franck cuny <franck.cuny@gmail.com> | 2008-12-27 13:13:16 +0100 |
commit | d41147eebd9613d912d28499fd3fdc40c21c7064 (patch) | |
tree | 2e6b73a371e5ee973552cad8f954f2e6418d133c /lifestream.pl | |
parent | update config and license (diff) | |
parent | update code template and config (diff) | |
download | lifestream-d41147eebd9613d912d28499fd3fdc40c21c7064.tar.gz |
fix
Diffstat (limited to 'lifestream.pl')
-rw-r--r-- | lifestream.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lifestream.pl b/lifestream.pl index 891e945..9423cc5 100644 --- a/lifestream.pl +++ b/lifestream.pl @@ -7,10 +7,10 @@ use YAML::Syck; use URI; use Template; -my $feeds = LoadFile( shift ); +my $config = LoadFile( shift ); my $hash_entries; -foreach ( @$feeds ) { +foreach ( @{$config->{actions}} ) { my $feed = XML::Feed->parse( URI->new( $_->{ url } ) ); for my $e ( $feed->entries ) { my $date = $e->issued->strftime( '%Y.%m.%d' ); @@ -29,6 +29,12 @@ my @dates = keys %$hash_entries; my @sorted_dates = sort { $a cmp $b } @dates; my $hash_templates; +for my $type ( 'profiles', 'actions' ) { + foreach my $profile ( @{ $config->{ $type } } ) { + push @{ $hash_templates->{ profiles } }, $profile; + } +} + foreach my $date ( reverse @sorted_dates ) { my @actions = sort { $b->{ date } cmp $a->{ date } } @{ $hash_entries->{ $date } }; |