[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
www/server/source/planetrss planetrss.pl
From: |
Pavel Kharitonov |
Subject: |
www/server/source/planetrss planetrss.pl |
Date: |
Sat, 17 May 2014 09:51:44 +0000 |
CVSROOT: /web/www
Module name: www
Changes by: Pavel Kharitonov <ineiev> 14/05/17 09:51:44
Modified files:
server/source/planetrss: planetrss.pl
Log message:
Split paragraphs for easier translation.
CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/server/source/planetrss/planetrss.pl?cvsroot=www&r1=1.20&r2=1.21
Patches:
Index: planetrss.pl
===================================================================
RCS file: /web/www/www/server/source/planetrss/planetrss.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- planetrss.pl 23 Jan 2014 06:38:22 -0000 1.20
+++ planetrss.pl 17 May 2014 09:51:43 -0000 1.21
@@ -31,7 +31,7 @@
# Provides argument handling.
use Getopt::Long;
-my $Version = "1.7";
+my $Version = "1.8";
my $default_lines = 3;
my $default_length = 200;
my $head = "<!-- Autogenerated by planetrss.pl ".$Version." -->\n";
@@ -150,6 +150,7 @@
}
my $PGparser = new XML::RSS::Parser::Lite;
+my $gnun_split = "<span class=\"gnun-split\"></span>";
$PGparser->parse ($feeds);
@@ -161,7 +162,8 @@
my $url = $feed->get ('url');
my $title = $feed->get ('title');
my $desc = $feed->get ('description');
- my $tail = "...\n<a href='".$url."'>more</a>";
+ my $tail = "...\n".$gnun_split."<a href='".$url."'>"
+ .$gnun_split."more".$gnun_split."</a>";
my $d0;
$head = ":\n";
@@ -255,5 +257,6 @@
$tail =~ s/.// if $desc =~ /[!?]$/;
}
- print "<p><a href='".$url."'>\n".$title ."</a>".$head.$desc.$tail."</p>\n";
+ print "<p><a href='".$url."'>\n".$gnun_split.$title.$gnun_split
+ ."</a>".$gnun_split.$head.$desc.$tail."</p>\n";
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- www/server/source/planetrss planetrss.pl,
Pavel Kharitonov <=