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 | |
---|