orrg

Unnamed repository; edit this file 'description' to name the repository.
git clone git://code.clttr.info/orrg.git
Log | Files | Refs | README | LICENSE

commit 9bdd8978ec1177627a2182317b202bce243f17ca
parent b687e40056a5ab549f4cd0d2be68db4e1fc05e74
Author: René Wagner <rwagner@rw-net.de>
Date:   Wed, 25 Nov 2020 20:28:15 +0100

some cosmetics

Diffstat:
Morrg.pl | 12+++++-------
1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/orrg.pl b/orrg.pl @@ -7,6 +7,7 @@ use strict; no warnings 'experimental'; use URI::Escape; use XML::FeedPP; +use POSIX qw(strftime); use v5.10; # enable UTF-8 mode for everything use utf8; @@ -63,19 +64,16 @@ sub create_response push @body, '# '. $feed->title; push @body, ('', $feed->description); - push @body, ('=> '.$feed->link.' link to the feed', ''); + push @body, ('=> '.$feed->link.' open website', ''); push @body, ('## recent feed items', ''); foreach my $it ($feed->get_item()) { + push @body, '### '. $it->title; + push @body, 'published '. $it->pubDate; + push @body, ''; if ( $it->get('description') ne '') { - push @body, '## '. $it->title; - push @body, ''; push @body, $it->description; } - else { - push @body, $it->title; - } - push @body, ('=> '.$it->link.' open entry in browser', ''); }