[MKDoc-commit] Don't try and fetch RSS feeds for mkdoc sites that
no-longer exist
bruno at mkdoc.demon.co.uk
bruno at mkdoc.demon.co.uk
Fri Nov 26 14:04:54 GMT 2004
Log Message:
-----------
Don't try and fetch RSS feeds for mkdoc sites that no-longer exist
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.2
retrieving revision 1.3
diff -Ltools/cron/031..rss_routine.pl -Ltools/cron/031..rss_routine.pl -u -r1.2 -r1.3
--- 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.2
retrieving revision 1.3
diff -Ltools/cron/030..rss_troubleshooter.pl -Ltools/cron/030..rss_troubleshooter.pl -u -r1.2 -r1.3
--- 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()) {
More information about the MKDoc-commit
mailing list