Ticket #5633: imdb.pl.patchv4

File imdb.pl.patchv4, 1.4 KB (added by Ash Bostock <abostock@…>, 3 years ago)

Hopefully the final patch. As well as previous fix for impawards, this also adds support for grabbing posters from MoTechPosters?.

Line 
1Index: imdb.pl
2===================================================================
3--- imdb.pl     (revision 17758)
4+++ imdb.pl     (working copy)
5@@ -279,11 +279,8 @@
6 
7    # look for references to impawards.com posters - they are high quality
8    my $site = "http://www.impawards.com";
9-   my $impsite = parseBetween($response, "<a href=\"".$site, "\">".$site);
10+   my $impsite = parseBetween($response, "<a href=\"".$site, "\">");
11 
12-   # jersey girl fix
13-   $impsite = parseBetween($response, "<a href=\"http://impawards.com","\">http://impawards.com") if ($impsite eq "");
14-
15    if ($impsite) {
16       $impsite = $site . $impsite;
17 
18@@ -316,6 +313,21 @@
19       }
20    }
21 
22+   # try looking on MoTechPosters
23+   if ($uri eq "" && $response =~ m/<a href="([^"]*)">([^"]*?)motechposters/i) {
24+      if ($1 ne "") {
25+         if (defined $opt_d) { print "# found MoTechPosters poster page: $1 \n"; }
26+         my $cinres = get $1;
27+         if (defined $opt_d) { printf("# got %i bytes\n", length($cinres)); }
28+         if (defined $opt_r) { printf("%s", $cinres); }
29+
30+         if ($cinres =~ m/<img src="([^"]*?$movieid[^"]*?)"/i) {
31+            if (defined $opt_d) { print "# MoTechPosters url retreived\n"; }
32+            $uri = "http://posters.motechnet.com".$1;
33+         }
34+      }
35+   }
36+
37    # try looking on nexbase
38    if ($uri eq "" && $response =~ m/<a href="([^"]*)">([^"]*?)nexbase/i) {
39       if ($1 ne "") {