Pārlūkot izejas kodu

Provide an option to fully ignore some folders

Zachary Kotlarek 11 gadi atpakaļ
vecāks
revīzija
3ffaca6bd8
1 mainītis faili ar 8 papildinājumiem un 0 dzēšanām
  1. 8 0
      rss.pl

+ 8 - 0
rss.pl

@@ -34,6 +34,14 @@ my %have     = ();
 my @need     = ();
 my $hs       = HTML::Strip->new();
 
+# Skip if there is a season_done file
+if (-e $OUT_DIR . '/season_done') {
+	if ($DEBUG) {
+		print STDERR 'Podcast disabled: ' . $SERIES . "\n";
+	}
+	exit(0);
+}
+
 # Fetch and analyize the feed
 my $feed = undef();
 {