[MKDoc-commit] Don't try and fetch RSS feeds for mkdoc sites that no-longer exist

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
Don't try and fetch RSS feeds for mkdoc sites that no-longer exist

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/tools/cron:
        030..rss_troubleshooter.pl
        031..rss_routine.pl

-------------- next part --------------
Index: 031..rss_routine.pl
===================================================================
RCS file: /var/spool/cvs/mkd/tools/cron/031..rss_routine.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -Ltools/cron/031..rss_routine.pl -Ltools/cron/031..rss_routine.pl -u -r1.1.2.4 -r1.1.2.5
--- tools/cron/031..rss_routine.pl
+++ tools/cron/031..rss_routine.pl
@@ -47,6 +47,9 @@
 sub process_directory
 {
     $ENV{SITE_DIR} = shift;
+    opendir (DIR, "$ENV{SITE_DIR}") || return;
+    closedir DIR;
+
     print "$ENV{SITE_DIR}\n";
     local $Cache = cache_object();
     foreach my $key ($Cache->get_keys()) {
Index: 030..rss_troubleshooter.pl
===================================================================
RCS file: /var/spool/cvs/mkd/tools/cron/030..rss_troubleshooter.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -Ltools/cron/030..rss_troubleshooter.pl -Ltools/cron/030..rss_troubleshooter.pl -u -r1.1.2.6 -r1.1.2.7
--- tools/cron/030..rss_troubleshooter.pl
+++ tools/cron/030..rss_troubleshooter.pl
@@ -50,6 +50,9 @@
 sub process_directory
 {
     $ENV{SITE_DIR} = shift;
+    opendir (DIR, "$ENV{SITE_DIR}") || return;
+    closedir DIR;
+
     print "$ENV{SITE_DIR}\n";
     local $Cache = cache_object();
     foreach my $key ($Cache->get_keys()) {