diff --git a/smhnRSS.pl b/smhnRSS.pl index d67671e..b8032e9 100644 --- a/smhnRSS.pl +++ b/smhnRSS.pl @@ -28,10 +28,12 @@ use HTML::Entities; # https://metacpan.org/pod/HTML::Entities # server file folders # my $rssFilePath = "/home/USER_FOLDER/public_html/feed.xml"; # my $htmlFilePath = "/home/USER_FOLDER/public_html/index.html"; +# my $errorFilePath = "/home/USER_FOLDER/public_html/feed.log"; # local file folders my $rssFilePath = "feed.xml"; my $htmlFilePath = "index.html"; +my $errorFilePath = "feed.log"; ################################### # RSS Configurations @@ -63,6 +65,9 @@ my %list; # Make the list of URLS while parsing DATA my $listHTML = "
\n"; +################################### +# Write the error file +################################### + +open(FH, '>', $errorFilePath) or die $!; +print FH $listURLError; +close(FH); + ################################### # Make an RSS Feed! ################################### @@ -204,6 +222,9 @@ my $printDate = formatDate($rss2->{'channel'}{'pubDate'}); # header for a direct HTML post my $html_header = "Status: 200\nContent-type: text/html\n\n"; + + + ################################### # Make the HTML Page ################################### @@ -335,6 +356,7 @@ sub formatDate { __DATA__ https://ecatherine.com/feed/ +https://lynnehansen.zenfolio.com/blog.rss https://redlagoe.com/feed/ https://diebooth.wordpress.com/feed/ https://kelliowen.com/feed/ @@ -362,6 +384,5 @@ http://robertfordauthor.com/feed/ https://tinyfrights.com/feed/ https://weightlessbooks.com/feed/ https://www.crystallakepub.com/feed/ -https://lynnehansen.zenfolio.com/blog.rss https://www.bevvincent.com/feed/ http://liviallewellyn.com/feed/ \ No newline at end of file