1 | Index: 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 "") {
|
---|