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 c200079891e3277da48e952a1c7decd219c8aa6d
parent 01d0eb250880b32d366fbfa861c1e452094f6a0a
Author: René Wagner <rwagner@rw-net.de>
Date:   Fri, 27 Nov 2020 20:33:16 +0100

more rendering adjustments

Diffstat:
Morrg.pl | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/orrg.pl b/orrg.pl @@ -74,13 +74,13 @@ sub create_response my $hs = HTML::Strip->new(emit_spaces => 0, auto_reset => 1); foreach my $it ($feed->get_item()) { - push @body, $it->description ne '' ? '### '. $it->title : $it->title; + push @body, ($it->description ne '' || $it->pubDate ne '')? '### '. $it->title : $it->title; if ($it->pubDate ne '') { my $dt = DateTime::Format::ISO8601->parse_datetime($it->pubDate); push @body, 'published '. strftime('%Y-%m-%dT%H:%M:%SZ', gmtime($dt->epoch)); + push @body, ''; } if ($it->description ne '') { - push @body, ''; my $desc = $it->description; chomp $desc; $desc =~ s/\<li\>/* /ig;