www/server/source/planetrss planetrss.pl

[Ineiev]

CVSROOT:        /web/www
Module name:    www
Changes by:     Ineiev <ineiev> 17/10/05 02:30:05

Modified files:
        server/source/planetrss: planetrss.pl 

Log message:
        Improve i18n.

CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/server/source/planetrss/planetrss.pl?cvsroot=www&r1=1.26&r2=1.27

Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- planetrss.pl        9 Mar 2017 16:44:39 -0000       1.26
+++ planetrss.pl        5 Oct 2017 06:30:05 -0000       1.27
@@ -29,13 +29,15 @@
 # Provides argument handling.
 use Getopt::Long;
 
-my $Version = "1.14";
+my $Version = "1.15";
 my $default_lines = 3;
 my $default_length = 200;
 # We couldn't make this script extract passages that would be suitable
 # for homepage from Remotecontrol feeds.
 my $default_exclude_pattern = '^GNU Remotecontrol: Newsletter';
-my $head = "<!-- Autogenerated by planetrss.pl ".$Version." -->\n";
+my $head = "<!-- Autogenerated by planetrss.pl ".$Version." -->";
+
+$head .= '<!--#set var="a_close" value="</a>" -->'."\n";
 
 # Number of feeds to output.
 my $FeedLines = $default_lines;
@@ -137,7 +139,7 @@
   {
     print "PlanetRSS ".$Version."
 Copyright (C) 2011 Shailesh Ghadge
-Copyright (C) 2013, 2014, 2015 Free Software Foundation, Inc.
+Copyright (C) 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
 
 This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -170,8 +172,7 @@
     my $url   = $feed->get ('url');
     my $title = $feed->get ('title');
     my $desc  = $feed->get ('description');
-    my $tail  = "...\n".$gnun_split."<a href='".$url."'>"
-                .$gnun_split."more".$gnun_split."</a>";
+    my $tail  = "...\n";
     my $d0;
 
     if ($title =~ /$exclude_pattern/)
@@ -274,6 +275,11 @@
         $tail =~ s/.// if $desc =~ /[!?]$/;
       }
 
-    print "<p><a href='".$url."'>\n".$gnun_split.$title.$gnun_split
-          ."</a>".$gnun_split.$head.$desc.$tail."</p>\n";
+    print "<p>".'<!--#set var="link"
+value="<a href='."'".$url."'".'>" --><!--#echo
+encoding="none" var="link" -->'."\n".$gnun_split.$title.$gnun_split
+          .'<!--#echo encoding="none"
+var="a_close" -->'.$gnun_split
+          ."<!-- TRANSLATORS: \n".$url." -->"
+          .$head.$desc.$tail."</p>\n";
   }