Ticket #5633: imdb.pl.patchv4

File imdb.pl.patchv4, 1.4 KB (added by Ash Bostock <abostock@…>, 17 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 "") {