Changeset 258

Timestamp:

11/14/06 21:19:25 (7 years ago)

Author:

lincoln

Message:

fix bug in ninemsn caching

Files:

• grabbers/ninemsn (modified) (1 diff)

grabbers/ninemsn

@@ -684 +684 @@
                         # not in cache, go fetch additional details if we can
                         &fetch_one_prog($cache_key, $prog->{url}, $prog_count, $stats{programmes});
-
-                        # if we got additional details, add them now
-                        if (defined $data_cache->{$cache_key}) {
-                                foreach my $key (keys %{($data_cache->{$cache_key})}) {
-                                        $prog->{$key} = $data_cache->{$cache_key}->{$key};
-                                }
+                        $stats{added_to_cache}++;
+                        &write_cache if ((($stats{added_to_cache} % 5) == 0) && (!defined $opt->{no_cache}));
+                } else {
+                        $stats{used_existing_cache_entry}++;
+                }
+
+                # if we got additional details, add them now
+                if (defined $data_cache->{$cache_key}) {
+                        foreach my $key (keys %{($data_cache->{$cache_key})}) {
+                                $prog->{$key} = $data_cache->{$cache_key}->{$key};
                         }
-
-                        $added_to_cache++;
-                        &write_cache if ((($added_to_cache % 5) == 0) && (!defined $opt->{no_cache}));
                 }
-
 
                 # if we now have a length field, use that as a more accurate