cvs commit: www/scripts lfs2rss.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Tue Mar 9 14:17:18 PST 2004


lizardo     04/03/09 15:17:18

  Modified:    scripts  lfs2rss.pl
  Log:
  scripts/lfs2rss.pl: Fixed item URLs on news feeds.
  
  Revision  Changes    Path
  1.7       +5 -3      www/scripts/lfs2rss.pl
  
  Index: lfs2rss.pl
  ===================================================================
  RCS file: /home/cvsroot/www/scripts/lfs2rss.pl,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- lfs2rss.pl	19 Nov 2003 02:02:14 -0000	1.6
  +++ lfs2rss.pl	9 Mar 2004 22:17:18 -0000	1.7
  @@ -1,7 +1,9 @@
   #!/usr/bin/perl -w
   # Author: Rob Park <rbpark at ualberta.ca>
   # License: GNU General Public License
  -# Modified by Anderson Lizardo <andersonlizardo at yahoo.com.br>
  +
  +# Modified by Anderson Lizardo <lizardo at linuxfromscratch.org>
  +# 2004-03-09: fixed news item URL creation
   
   use XML::RSS;
   use Getopt::Long;
  @@ -49,7 +51,7 @@
   while (<HTML>)
   {
   	# figure out what page we're working on
  -	m/<body\s+class="(.+)">/
  +	m/<body.*class="(.+)">/
   		&& ($channel{link} .= "$1/$args{'news-file'}");
   
   	# extract the title of the page
  @@ -130,7 +132,7 @@
   
   =head1 VERSION
   
  -$Id: lfs2rss.pl,v 1.6 2003/11/19 02:02:14 lizardo Exp $
  +$Id: lfs2rss.pl,v 1.7 2004/03/09 22:17:18 lizardo Exp $
   
   =head1 REPORTING BUGS
   
  
  
  



More information about the website mailing list