Changeset 492

Timestamp:

02/04/07 20:43:11 (6 years ago)

Author:

lincoln

Message:

explicitly say why a given grabber was chosen

Files:

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

applications/shepherd

@@ -2 +2 @@
 
 my $progname = 'shepherd';
-my $version = '0.4.42';
+my $version = '0.4.43';
 
 # tv_grab_au
@@ -1807 +1807 @@
     &analyze_plugin_data("",1,$progname);    
 
-    while (my $grabber = choose_grabber())
-    {
+    my ($grabber, $reason_chosen);
+    while (my ($grabber, $reason_chosen) = choose_grabber())
+    {
+        last if (!defined $grabber);
+
         $data_satisfies_policy = 0;
         $data_found_all = 0;
         $used_grabbers++;
 
-        &log("\nSHEPHERD: Using grabber: ($used_grabbers) $grabber\n");
+        &log("\nSHEPHERD: Using grabber: ($used_grabbers) $grabber ($reason_chosen)\n");
 
         my $iteration = query_iteration($grabber);
@@ -2059 +2062 @@
             if ($components->{$g} and $components->{$g}->{type} eq 'grabber')
             {
-                return select_grabber($g, $gscore);
+                return(select_grabber($g, $gscore), "--grabwith policy");
             }
             &log("Not a grabber: \"$g\".\n");
@@ -2078 +2081 @@
             {
                 &log("Need to build title translation list for transitional grabber $grabber.\n");
-                return select_grabber($grabber, $gscore) if ($gscore->{$grabber});
+                return(select_grabber($grabber, $gscore), "transitional for title translation") if ($gscore->{$grabber});
                 &log("WARNING: Can't run $grabber to build title translation list!\n");
             }
@@ -2095 +2098 @@
             if ($r >= $c and $r < ($c + $gscore->{$grabber}))
             {
-                return select_grabber($grabber, $gscore);
+                return(select_grabber($grabber, $gscore), "--randomize weighted policy");
             }
             $c += $gscore->{$grabber};
@@ -2112 +2115 @@
         $c++;
     }
-    return select_grabber($candidates[0], $gscore) unless (@candidates > 1);
+    return(select_grabber($candidates[0], $gscore),
+        "highest scoring of ".scalar(@sorted)." choices") unless (@candidates > 1);
 
     &log(1, "Multiple grabbers with best score: @candidates.\n");
-    return select_grabber($candidates[int(rand(scalar(@candidates)))], $gscore);
+    return(select_grabber($candidates[int(rand(scalar(@candidates)))], $gscore),
+        "equal highest scoring of ".scalar(@sorted)." choices, winner between ".scalar(@candidates)." peers");
 }
 

status

@@ -1 @@
-application     shepherd            0.4.42
+application     shepherd            0.4.43
 grabber         yahoo7widget        1.78
 grabber         rex                 3.4.1