| 1 | --- imdb.pl.orig 2007-06-10 15:45:06.000000000 -0400
|
|---|
| 2 | +++ imdb.pl 2007-06-27 03:19:17.000000000 -0400
|
|---|
| 3 | @@ -31,6 +31,7 @@
|
|---|
| 4 | use HTML::Entities;
|
|---|
| 5 | use URI::Escape;
|
|---|
| 6 |
|
|---|
| 7 | +my @countries = qw(USA UK Canada Japan);
|
|---|
| 8 |
|
|---|
| 9 | use vars qw($opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P);
|
|---|
| 10 | use Getopt::Std;
|
|---|
| 11 | @@ -185,9 +186,12 @@
|
|---|
| 12 | }
|
|---|
| 13 |
|
|---|
| 14 | # parse movie length
|
|---|
| 15 | - my $runtime = trim(parseBetween($response, ">Runtime:</h5>", " min"));
|
|---|
| 16 | - unless ($runtime =~ /^-?\d/) {
|
|---|
| 17 | - $runtime = trim(parseBetween($response, "USA:", " min"));
|
|---|
| 18 | + my $rawruntime = trim(parseBetween($response, ">Runtime:</h5>", "</div>"));
|
|---|
| 19 | + my $runtime = trim(parseBetween($rawruntime, "", " min"));
|
|---|
| 20 | + for my $country (@countries)
|
|---|
| 21 | + {
|
|---|
| 22 | + last if ($runtime =~ /^-?\d/) ;
|
|---|
| 23 | + $runtime = trim(parseBetween($rawruntime, "$country:", " min"));
|
|---|
| 24 | }
|
|---|
| 25 |
|
|---|
| 26 | # parse cast
|
|---|
