Changeset 454

Timestamp:

01/10/07 23:31:27 (6 years ago)

Author:

max

Message:

Per-region grabber support

Files:

• applications/shepherd (modified) (3 diffs)
• status (modified) (1 diff)

applications/shepherd

@@ -2 +2 @@
 
 my $progname = 'shepherd';
-my $version = '0.4.35';
+my $version = '0.4.36';
 
 # tv_grab_au
@@ -2101 +2101 @@
         }
 
-        if ($grabber =~ /\[cache\]/)
+        if (!supports_region($grabber))
+        {
+            $hits = 0;
+        }
+        elsif ($grabber =~ /\[cache\]/)
         {
             $hits = find_cache_hits($grabber, $key);
@@ -2223 +2227 @@
 }
 
+# Returns 1 if the grabber supports our set region, else 0
+sub supports_region
+{
+    my ($grabber) = @_;
+
+    my $rsupport = query_config($grabber, 'regions');
+    return 1 unless ($rsupport);    # Empty string means full support
+
+    my $match = ($rsupport =~ /\b$region\b/);
+    my $exceptions = ($rsupport =~/^-/);
+    return ($match != $exceptions);
+}
+
 # Return 0 if the grabber can't provide data for this day,
 # 1 if it can reliably, and 0.5 if it can unreliably.

status

@@ -1 @@
-application     shepherd            0.4.35
+application     shepherd            0.4.36
 grabber         yahoo7widget        1.76
 grabber         rex                 3.3.9-r1