#! /usr/local/bin/perl # This program will automatically cache any page listed in the pagelist.txt file # This script is meant to be run with a cronjob on a periodic basis. It generates HTML, Javascript, and RSS feeds from other scripts. use SOAP::Lite; use CGI qw(:standard); use XML::RSS; use LWP::Simple qw(getstore $ua); $ua->timeout(10); my $feed_directory = "/usr/home/mshea/public_html/mikeshea/newsfeeds"; # fetch the page list open (PAGELIST, "$feed_directory/pagelist.txt"); @pagelist = ; close PAGELIST; # build our feed index page $index_source = "

Mike's Newsfeed Index

This list includes newsfeeds in HTML, RSS, and javascript format for use on any website. Please do not fetch feeds more than once every 30 minutes for high traffic sites. I will sever the feed to your site if you are a high traffic site and are not caching the feed locally. Contact mike@mikeshea.net for more information. You can view all newsfeeds on one page.

"; #open (INDEX, "> $feed_directory/feedlist.html"); #print INDEX $index_source; #close INDEX; $full_newsfeed_source = $full_newsfeed_source."\n\n"; #open (LISTALL, "> $feed_directory/allfeeds.html"); #print LISTALL $full_newsfeed_source; #close LISTALL; exit(0);