Changeset 52 for shepherd

Timestamp:

10/09/06 14:52:09 (7 years ago)

Author:

max

Message:

Retrieves grabber config files.

Files:

• shepherd (modified) (4 diffs)

shepherd

@@ -3 +3 @@
 # "Shepherd"
 
-my $version = '0.2.8';
+my $version = '0.2.9';
 
 # A wrapper for various Aussie TV guide data grabbers
@@ -23 +23 @@
 # 0.2.7   : Changed online file structure
 # 0.2.8   : Integrated reconciler
+# 0.2.9   : Grabber config support
 
 BEGIN { *CORE::GLOBAL::die = \&my_die; }
@@ -1241 +1242 @@
     return unless (fetch_file($rfile, $newfile));
     
-    # Make it executable
+    # Fetch grabber config file
+    $rfile .= ".conf";
+    my $config = fetch_file($rfile);
+    return unless ($config);
+
+    eval $config;
+
+    # Make component executable
     system('chmod u+x ' . $newfile);
 
@@ -1267 +1275 @@
     $components->{$proggy}->{ver} = $latestversion;
     $components->{$proggy}->{ready} = $result;
+    $components->{$proggy}->{config} = $config;
     $components->{$proggy}->{laststatus} = sprintf "updated to %s on %s", $latestversion, (strftime "%a%d%b%y",localtime(time));