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