commit 7eaf663655cd395a0c3b925142b7f07901a3cca4
parent 8d1d84dc5de30083cf64f405572ba62fe8d1da0a
Author: René Wagner <rwagner@rw-net.de>
Date: Wed, 25 Nov 2020 21:52:40 +0100
tabify
again...
Diffstat:
M | orrg.pl | | | 28 | ++++++++++++++-------------- |
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/orrg.pl b/orrg.pl
@@ -38,13 +38,13 @@ our %RC = (
if (!defined($ENV{'SERVER_PROTOCOL'}) || $ENV{'SERVER_PROTOCOL'} ne 'GEMINI')
{
- write_response('CGI_ERROR', '', undef);
+ write_response('CGI_ERROR', '', undef);
}
my $query = lc(uri_unescape($ENV{'QUERY_STRING'}));
if ($query eq '' || $query !~ /^https\:\/\//) {
- write_response('INPUT', 'Paste the URI of the rss feed you want to read:', undef);
+ write_response('INPUT', 'Paste the URI of the rss feed you want to read:', undef);
}
write_response('SUCCESS', 'text/gemini', create_response($query));
@@ -52,7 +52,7 @@ exit;
sub create_response
{
- my ( $qs ) = @_;
+ my ( $qs ) = @_;
my @body = ();
my $feed = XML::FeedPP->new($qs, utf8_flag => 1);
@@ -62,7 +62,7 @@ sub create_response
return @body;
}
- push @body, '# '. $feed->title;
+ push @body, '# '. $feed->title;
push @body, 'fetched '. strftime('%Y-%m-%dT%H:%M:%SZ', gmtime());
$feed->description eq '' or push @body, ('', $feed->description);
$feed->image eq '' or push @body, '=> '. $feed->image .' feed image';
@@ -73,23 +73,23 @@ sub create_response
push @body, '### '. $it->title;
$it->pubDate eq '' or push @body, 'published '. $it->pubDate;
push @body, '';
- $it->description eq '' or push @body, $it->description;
+ $it->description eq '' or push @body, $it->description;
$it->link eq '' or push @body, ('=> '.$it->link.' open entry in browser', '');
}
-
- return @body;
+
+ return @body;
}
sub write_response
{
- my ($returncode, $meta, @content) = @_;
-
+ my ($returncode, $meta, @content) = @_;
+
if (!defined($RC{$returncode})) { die "Unknown response code!"; }
- printf("%d %s\r\n", $RC{$returncode}, ($meta eq '') ? $returncode : $meta);
- foreach (@content) {
- print("$_\r\n");
- }
+ printf("%d %s\r\n", $RC{$returncode}, ($meta eq '') ? $returncode : $meta);
+ foreach (@content) {
+ print("$_\r\n");
+ }
- exit;
+ exit;
}