cvs commit: www lfs2rss.pl

lizardo at linuxfromscratch.org lizardo at linuxfromscratch.org
Sun Sep 21 18:05:53 PDT 2003


lizardo     03/09/21 19:05:53

  Modified:    .        lfs2rss.pl
  Log:
  lfs2rss.pl: Fixed incorrect URL parsing.
  
  Revision  Changes    Path
  1.5       +3 -2      www/lfs2rss.pl
  
  Index: lfs2rss.pl
  ===================================================================
  RCS file: /home/cvsroot/www/lfs2rss.pl,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- lfs2rss.pl	8 Sep 2003 18:52:53 -0000	1.4
  +++ lfs2rss.pl	22 Sep 2003 01:05:53 -0000	1.5
  @@ -1,6 +1,7 @@
   #!/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>
   
   use XML::RSS;
   use Getopt::Long;
  @@ -74,7 +75,7 @@
   		$item{description} = <HTML>;
   		$item{description} = <HTML>; 
   		$item{description} =~ s/^.*<p>(.+)<\/p>.*$/sanitize($1)/e;
  -		$item{description} =~ s/(href|src)="((?!http|ftp|mailto).+)"/$1="$cwdir$2"/g;
  +		$item{description} =~ s/(href|src)="((?!http|ftp|mailto)[^"]+)"/$1="$cwdir$2"/g;
   		chomp $item{description};
   
   		# add the newly parsed news item to the list of news items
  @@ -129,7 +130,7 @@
   
   =head1 VERSION
   
  -$Id: lfs2rss.pl,v 1.4 2003/09/08 18:52:53 gerard Exp $
  +$Id: lfs2rss.pl,v 1.5 2003/09/22 01:05:53 lizardo Exp $
   
   =head1 REPORTING BUGS
   
  
  
  



More information about the website mailing list