cvs commit: www lfs2rss.pl manage_news.pl

gerard at linuxfromscratch.org gerard at linuxfromscratch.org
Mon Sep 8 11:52:53 PDT 2003


gerard      03/09/08 12:52:53

  Modified:    .        lfs2rss.pl manage_news.pl
  Log:
  comment out verbose info not needed
  
  Revision  Changes    Path
  1.4       +3 -3      www/lfs2rss.pl
  
  Index: lfs2rss.pl
  ===================================================================
  RCS file: /home/cvsroot/www/lfs2rss.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- lfs2rss.pl	5 Sep 2003 07:42:59 -0000	1.3
  +++ lfs2rss.pl	8 Sep 2003 18:52:53 -0000	1.4
  @@ -41,7 +41,7 @@
   }
   
   # open the HTML file and tell the user what's going on.
  -print "Opening $args{'news-file'} for parsing...\n";
  +#print "Opening $args{'news-file'} for parsing...\n";
   open HTML, "<$args{'news-file'}";
   
   # parse the HTML file
  @@ -92,7 +92,7 @@
   }
   
   # save the RSS to a file and tell the user what's going on.
  -print "Saving RSS feed to $args{'rss-file'}...\n";
  +#print "Saving RSS feed to $args{'rss-file'}...\n";
   $RSS->save($args{'rss-file'});
   
   __END__
  @@ -129,7 +129,7 @@
   
   =head1 VERSION
   
  -$Id: lfs2rss.pl,v 1.3 2003/09/05 07:42:59 jeroen Exp $
  +$Id: lfs2rss.pl,v 1.4 2003/09/08 18:52:53 gerard Exp $
   
   =head1 REPORTING BUGS
   
  
  
  
  1.6       +3 -3      www/manage_news.pl
  
  Index: manage_news.pl
  ===================================================================
  RCS file: /home/cvsroot/www/manage_news.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- manage_news.pl	5 Sep 2003 23:44:16 -0000	1.5
  +++ manage_news.pl	8 Sep 2003 18:52:53 -0000	1.6
  @@ -17,7 +17,7 @@
   # along with this program; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
   
  -# $Id: manage_news.pl,v 1.5 2003/09/05 23:44:16 lizardo Exp $
  +# $Id: manage_news.pl,v 1.6 2003/09/08 18:52:53 gerard Exp $
   
   use warnings;
   use strict;
  @@ -187,9 +187,9 @@
   }
   
   print STDERR "Errors: " . $parser->results->errors . "\n";
  -print "- " . $_ foreach ($parser->results->errors);
  +#print "- " . $_ foreach ($parser->results->errors);
   
  -print STDERR "Warnings: " . $parser->results->warnings . "\n";
  +#print STDERR "Warnings: " . $parser->results->warnings . "\n";
   print "- " . $_ foreach ($parser->results->warnings);
   
   ##########################
  
  
  



More information about the website mailing list