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 c90b61ac6a1acf7795602af1558ff0e0290a62ad	/git/fefe-gopher/commit/c90b61ac6a1acf7795602af1558ff0e0290a62ad.gph	codevoid.de	70
1parent 3c36629b925ebdbdc68695110bba454bf68a9467	/git/fefe-gopher/commit/3c36629b925ebdbdc68695110bba454bf68a9467.gph	codevoid.de	70
hAuthor: Stefan Hagen <sh+git[at]codevoid[dot]de>	URL:mailto:sh+git[at]codevoid[dot]de	codevoid.de	70
iDate:   Thu,  7 Jun 2018 18:44:12 +0200	Err	codevoid.de	70
i	Err	codevoid.de	70
iFix ^t design for real. Skip empty link sections	Err	codevoid.de	70
i	Err	codevoid.de	70
iDiffstat:	Err	codevoid.de	70
i  M fefe.dcgi                           |      20 +++++++++++++++-----	Err	codevoid.de	70
i	Err	codevoid.de	70
i1 file changed, 15 insertions(+), 5 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@@ -53,6 +53,7 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i 	Err	codevoid.de	70
i         # Encode to proper utf8	Err	codevoid.de	70
i         my $description  = encode("UTF-8", $item->findvalue('description'));	Err	codevoid.de	70
i+        $description =~ s|<a href="/|<a href="https://blog.fefe.de/|ig;	Err	codevoid.de	70
i 	Err	codevoid.de	70
i         # Search for links	Err	codevoid.de	70
i         my $LX = new HTML::LinkExtractor();	Err	codevoid.de	70
it@@ -76,6 +77,10 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i         my $links = "";	Err	codevoid.de	70
i         foreach my $link ($LX->links) {	Err	codevoid.de	70
i             foreach my $linkitem (@$link) {	Err	codevoid.de	70
i+	Err	codevoid.de	70
i+                # skip empty links (image links for example)	Err	codevoid.de	70
i+                if(!$linkitem->{_TEXT}) { next; }	Err	codevoid.de	70
i+	Err	codevoid.de	70
i                 $c++;	Err	codevoid.de	70
i                 $description_clean =~ s/(\Q$linkitem->{_TEXT}\E)/$1\[$c]/gi;	Err	codevoid.de	70
i 	Err	codevoid.de	70
it@@ -91,15 +96,20 @@ foreach my $channel ($root->findnodes('channel')) {	Err	codevoid.de	70
i         # Wrap to 80 character width	Err	codevoid.de	70
i         $description_clean = wrap("","",$description_clean)."\n";	Err	codevoid.de	70
i 	Err	codevoid.de	70
i-        # fix geomyidae ^t design	Err	codevoid.de	70
i-        $description_clean =~ s/^t/&&/g;	Err	codevoid.de	70
i-	Err	codevoid.de	70
i         # nobody needs more that one newline.	Err	codevoid.de	70
i         $description_clean =~ s/\n\n(\n)*/\n\n/g;	Err	codevoid.de	70
i 	Err	codevoid.de	70
i+        # fix geomyidae ^t design	Err	codevoid.de	70
i+        $description_clean =~ s/\t/    /g;	Err	codevoid.de	70
i+        $description_clean =~ s/\nt/\ntt/g;	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 $description_clean;	Err	codevoid.de	70
i+        # print links if there were any.	Err	codevoid.de	70
i+        if($links) {	Err	codevoid.de	70
i+            print "\nLinks:\n", $links;	Err	codevoid.de	70
i+        }	Err	codevoid.de	70
i+        print "\n***********************************************************************\n\n";	Err	codevoid.de	70
i     }	Err	codevoid.de	70
i }	Err	codevoid.de	70
i print "[1|<- go back|/|codevoid.de|70]";	Err	codevoid.de	70
.