it* fefes blog on gopher	Err	codevoid.de	70
i	Err	codevoid.de	70
hgit clone git://git.codevoid.de/fefe-gopher	URL:git://git.codevoid.de/fefe-gopher	codevoid.de	70
1Log	/git/fefe-gopher/log.gph	codevoid.de	70
1Files	/git/fefe-gopher/files.gph	codevoid.de	70
1Refs	/git/fefe-gopher/refs.gph	codevoid.de	70
1LICENSE	/git/fefe-gopher/file/LICENSE.gph	codevoid.de	70
i---	Err	codevoid.de	70
1commit c376a2704d93bbbc6104f211fdf1ce0961b52286	/git/fefe-gopher/commit/c376a2704d93bbbc6104f211fdf1ce0961b52286.gph	codevoid.de	70
1parent 1f3177c6fbe58e3f4ef62b99a7f7828d91129538	/git/fefe-gopher/commit/1f3177c6fbe58e3f4ef62b99a7f7828d91129538.gph	codevoid.de	70
hAuthor: Stefan Hagen <git[at]codevoid[dot]de>	URL:mailto:git[at]codevoid[dot]de	codevoid.de	70
iDate:   Mon, 14 May 2018 15:45:05 +0200	Err	codevoid.de	70
i	Err	codevoid.de	70
iReduced width to 72ch and clearer quotes	Err	codevoid.de	70
i	Err	codevoid.de	70
iDiffstat:	Err	codevoid.de	70
i  M fefe.dcgi                           |      19 ++++++++++---------	Err	codevoid.de	70
i	Err	codevoid.de	70
i1 file changed, 10 insertions(+), 9 deletions(-)	Err	codevoid.de	70
i---	Err	codevoid.de	70
1diff --git a/fefe.dcgi b/fefe.dcgi	/git/fefe-gopher/file/fefe.dcgi.gph	codevoid.de	70
it@@ -1,19 +1,19 @@	Err	codevoid.de	70
i #!/usr/local/bin/perl	Err	codevoid.de	70
i 	Err	codevoid.de	70
i # LICENSE: WTFPL	Err	codevoid.de	70
i-# THE CODE IS PROVIDED "AS IS". DO WITH IT WHAT YOU WANT	Err	codevoid.de	70
i+# THE CODE IS PROVIDED "AS IS". DO WITH IT WHAT YOU WANT.	Err	codevoid.de	70
i # Copyright 2018 Stefan Hagen <sh dot vimcode dot de>	Err	codevoid.de	70
i 	Err	codevoid.de	70
i use strict;	Err	codevoid.de	70
i use warnings;	Err	codevoid.de	70
i 	Err	codevoid.de	70
i-use Encode;	Err	codevoid.de	70
i use XML::LibXML qw( );	Err	codevoid.de	70
i use LWP::UserAgent;	Err	codevoid.de	70
i use HTML::LinkExtractor;	Err	codevoid.de	70
i use HTML::Restrict;	Err	codevoid.de	70
i use Text::Wrap;	Err	codevoid.de	70
i-$Text::Wrap::columns=80;	Err	codevoid.de	70
i+$Text::Wrap::columns=72;	Err	codevoid.de	70
i+use Encode;	Err	codevoid.de	70
i 	Err	codevoid.de	70
i print '	Err	codevoid.de	70
i   ___       __              ___  _            	Err	codevoid.de	70
it@@ -21,9 +21,9 @@ print '	Err	codevoid.de	70
i  | _|/ -_)|  _|/ -_)(_-<   | _ \| |/ _ \/ _` |	Err	codevoid.de	70
i  |_| \___||_|  \___|/__/   |___/|_|\___/\__, |	Err	codevoid.de	70
i  On Gopher (inofficial)                 |___/ 	Err	codevoid.de	70
i--------------------------------------------------------------------------------	Err	codevoid.de	70
i+-----------------------------------------------------------------------	Err	codevoid.de	70
i [h| Visit Fefes Blog on the Internet|URL:https://blog.fefe.de|codevoid.de|70]	Err	codevoid.de	70
i--------------------------------------------------------------------------------	Err	codevoid.de	70
i+-----------------------------------------------------------------------	Err	codevoid.de	70
i 	Err	codevoid.de	70
i 	Err	codevoid.de	70
i ';	Err	codevoid.de	70
it@@ -62,8 +62,8 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i         # Replace some HTML elements	Err	codevoid.de	70
i         my $HR = HTML::Restrict->new();	Err	codevoid.de	70
i         $description =~ s/<p>/\n\n/g;	Err	codevoid.de	70
i-        $description =~ s/<blockquote>/\n\n    /g;	Err	codevoid.de	70
i-        $description =~ s/<\/blockquote>/\n\n/g;	Err	codevoid.de	70
i+        $description =~ s/<blockquote>/\n\n--- QUOTE ---\n/g;	Err	codevoid.de	70
i+        $description =~ s/<\/blockquote>/\n---- END ----\n\n/g;	Err	codevoid.de	70
i 	Err	codevoid.de	70
i         # Strip remaining html	Err	codevoid.de	70
i         my $description_clean = $HR->process($description);	Err	codevoid.de	70
it@@ -81,7 +81,7 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i 	Err	codevoid.de	70
i                 # shorten links	Err	codevoid.de	70
i                 my $short = $linkitem->{href};	Err	codevoid.de	70
i-                if(length($short) > 70) { $short = substr($short,0,70)." ..."; }	Err	codevoid.de	70
i+                if(length($short) > 62) { $short = substr($short,0,62)." ..."; }	Err	codevoid.de	70
i 	Err	codevoid.de	70
i                 # add link to output scalar	Err	codevoid.de	70
i                 $links .= sprintf("[h|[%i]: %s|URL:%s|codevoid.de|70]\n", $c, $short, $linkitem->{href});	Err	codevoid.de	70
it@@ -99,10 +99,11 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i 	Err	codevoid.de	70
i         # print!	Err	codevoid.de	70
i         print $description_clean, "\nLinks:\n", $links, "\n";	Err	codevoid.de	70
i-        print "*******************************************************************************\n\n";	Err	codevoid.de	70
i+        print "***********************************************************************\n\n";	Err	codevoid.de	70
i     }	Err	codevoid.de	70
i }	Err	codevoid.de	70
i 	Err	codevoid.de	70
i+	Err	codevoid.de	70
i # TODO:	Err	codevoid.de	70
i # * consolidate regex and call the regex parser only twice (before parsing => strip / replace html,	Err	codevoid.de	70
i #   after parsing => format output)	Err	codevoid.de	70
.