www/server/source/planetrss planetrss.pl

[Pavel Kharitonov]

CVSROOT:        /web/www
Module name:    www
Changes by:     Pavel Kharitonov <ineiev>       14/08/11 05:33:56

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

Log message:
        Strip <tbody> with tables; tweak &amp;[lg]t; translation.

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

Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- planetrss.pl        17 May 2014 09:51:43 -0000      1.21
+++ planetrss.pl        11 Aug 2014 05:33:55 -0000      1.22
@@ -31,7 +31,7 @@
 # Provides argument handling.
 use Getopt::Long;
 
-my $Version = "1.8";
+my $Version = "1.9";
 my $default_lines = 3;
 my $default_length = 200;
 my $head = "<!-- Autogenerated by planetrss.pl ".$Version." -->\n";
@@ -191,6 +191,7 @@
     if ($table != 1)
       {
         $desc = strip_tag ($desc, "table");
+        $desc = strip_tag ($desc, "tbody");
         $desc = strip_tag ($desc, "t[hrd]");
       }
     if ($textarea != 1)
@@ -205,7 +206,7 @@
         $desc = strip_tag ($desc, "li", " * ");
       }
     $desc =~ s/&lt;/</gi; $desc =~ s/&gt;/>/gi;
-    $desc =~ s/&amp;lt;/</gi; $desc =~ s/&amp;gt;/>/gi;
+    $desc =~ s/&amp;lt;/&lt;/gi; $desc =~ s/&amp;gt;/&gt;/gi;
     $desc =~ s/&quot;/"/gi;
     $desc =~ s/(&amp;)amp;/$1/gi;
     $desc =~ s/\s\s+/ /g;