Changeset 948

Timestamp:

10/14/07 06:27:39 (6 years ago)

Author:

paul

Message:

acctv_website: put length back

Location:

trunk

Files:

• grabbers/acctv_website (modified) (4 diffs)
• status (modified) (1 diff)

trunk/grabbers/acctv_website

@@ -23 +23 @@
 my %stats;
 my $o;
-Shepherd::Common::program_begin(\$o, "acctv_website", "0.02", \%stats);
+Shepherd::Common::program_begin(\$o, "acctv_website", "0.03", \%stats);
 
 my ($channels, $opt_channels, $gaps) = Shepherd::Common::read_channels($o, ("ACC"));
@@ -232 +232 @@
                         $prog->{$_} = $details_cache->{$cache_key}->{$_};
                 }
-                if (defined $prog->{length}) {
-                        $prog->{stop} = $prog->{start} + $prog->{length};
-                        delete $prog->{length};
-                }
+                $prog->{stop} = $prog->{start} + $prog->{length} if (defined $prog->{length});
                 $stats{cached_used}++;
                 return $prog;
@@ -289 +286 @@
                 if ($header eq 'Length') {
                         if ($content !~ /^(\d+) /) { # length
-                                Shepherd::Common::log("skipped detail length : " . $td->as_HTML()) if $o->{debug};
+                                Shepherd::Common::log("skipped detail length : " . $td->as_HTML());
                                 $td = shift @tds || last;
                                 $header = $td->as_trimmed_text();
+                                $header =~ s/[^\x20-\x7f\x0a]//g; # remove  
                                 next;
                         }
                         my $length = ($1 < 3 ? ($1*60*60) : ($1*60));
                         $prog->{length} = $length;
+                        $prog->{stop} = $prog->{start} + $length;
                         Shepherd::Common::log("set length     : $length") if ($o->{debug});
                 } elsif ($header eq 'Genre') {
@@ -328 +327 @@
         }
 
-        if (defined $prog->{length}) {
-                $prog->{stop} = $prog->{start} + $prog->{length};
-                delete $prog->{length};
-        }
-
         return $prog;
 }

trunk/status

@@ -16 +16 @@
 grabber         selectv_website     0.02
 grabber         citysearch          2.0.3
-grabber         acctv_website       0.02
+grabber         acctv_website       0.03
 reconciler      reconciler_mk2      0.35
 postprocessor   imdb_augment_data   0.35