diff options
| author | franck cuny <franck.cuny@rtgi.fr> | 2008-12-27 13:09:50 +0100 |
|---|---|---|
| committer | franck cuny <franck.cuny@rtgi.fr> | 2008-12-27 13:09:50 +0100 |
| commit | b68bcebfa0837648bad3442ab387c89eb985fa90 (patch) | |
| tree | 4f3f65803d36e49474e01ce09619c382067b7252 /lifestream.pl | |
| parent | add ignore rules (diff) | |
| download | lifestream-b68bcebfa0837648bad3442ab387c89eb985fa90.tar.gz | |
update code template and config
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 } }; |
