Ticket #3670: patch_newlist.2.txt

File patch_newlist.2.txt, 2.2 KB (added by aprotim@…, 18 years ago)

Minor (pointless fix) just in case somebody uncomments the approximate matches section

Line 
1--- imdb.pl.orig 2007-06-10 15:45:06.000000000 -0400
2+++ imdb.pl 2007-06-27 04:52:01.000000000 -0400
3@@ -429,16 +433,16 @@
4 # possible matches are grouped in several catagories:
5 # exact, partial, and approximate
6 my $popular_results = parseBetween($response, "<b>Popular Titles</b>",
7- "</ol>");
8+ "</table>");
9 my $exact_matches = parseBetween($response, "<b>Titles (Exact Matches)</b>",
10- "</ol>");
11+ "</table>");
12 my $partial_matches = parseBetween($response, "<b>Titles (Partial Matches)</b>",
13- "</ol>");
14-# my $approx_matches = parseBetween($response, "<b>Approximate Matches</b>",
15-# "</ol>");
16+ "</table>");
17+# my $approx_matches = parseBetween($response, "<b>Titles (Approx Matches)</b>",
18+# "</table>");
19 # parse movie list from matches
20- my $beg = "<li>";
21- my $end = "</li>";
22+ my $beg = "<tr>";
23+ my $end = "</tr>";
24 my $count = 0;
25 my @movies;
26
27@@ -468,29 +472,18 @@
28 my $type = "";
29 my $movienum = "";
30
31- my $link_end = "</a>";
32- $fl_end = index($entry, $link_end);
33- $fl_end += length($link_end);
34- my $lhs = substr($entry, 0, $fl_end);
35- my $rhs = substr($entry, $fl_end);
36-
37- if ($lhs =~ m/<a href="\/title\/tt(\d+)\/.*\">(.+)<\/a>/i) {
38+ if ($entry =~ m/<a href="\/title\/tt(\d+)\/.*\">(.+)<\/a> \((\d+)\)(?: \((.+)\))?/i) {
39 $movienum = $1;
40 $title = $2;
41+ $year = $3;
42+ $type = $4 if ($4);
43 } else {
44 if (defined $opt_d) {
45- print("Unrecognized entry format\n");
46+ print("Unrecognized entry format ($entry)\n");
47 }
48 next;
49 }
50
51- if ($rhs =~ m/\((\d+)\) \((.+)\)/) {
52- $year = $1;
53- $type = $2;
54- } elsif ($rhs =~ m/\((\d+)\)/) {
55- $year = $1;
56- }
57-
58 my $skip = 0;
59
60 # fix broken 'tv=no' option