| 1 | Index: imdb.pl
|
|---|
| 2 | ===================================================================
|
|---|
| 3 | --- imdb.pl (revision 14496)
|
|---|
| 4 | +++ imdb.pl (working copy)
|
|---|
| 5 | @@ -150,6 +150,11 @@
|
|---|
| 6 | }
|
|---|
| 7 | my $writer = join(",", ($data =~ m/$name_link_pat/g));
|
|---|
| 8 |
|
|---|
| 9 | + # parse release date
|
|---|
| 10 | + my $releasedate = parseBetween($response, ">Release Date:</h5> ", "<a ");
|
|---|
| 11 | + $releasedate = trim($releasedate);
|
|---|
| 12 | + $releasedate =~s/\(.+\)//;
|
|---|
| 13 | +
|
|---|
| 14 | # parse plot
|
|---|
| 15 | my $plot = parseBetween($response, ">Plot Outline:</h5> ", "</div>");
|
|---|
| 16 | if (!$plot) {
|
|---|
| 17 | @@ -221,6 +226,7 @@
|
|---|
| 18 | # output fields (these field names must match what MythVideo is looking for)
|
|---|
| 19 | print "Title:$title\n";
|
|---|
| 20 | print "Year:$year\n";
|
|---|
| 21 | + print "ReleaseDate:$releasedate\n";
|
|---|
| 22 | print "Director:$director\n";
|
|---|
| 23 | print "Plot:$plot\n";
|
|---|
| 24 | print "UserRating:$userrating\n";
|
|---|
| 25 |
|
|---|
