orrg

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

some cosmetics

Diffstat:
M
orrg.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', '');
 	}