Ticket #3972: imdb-pl-diff.txt

File imdb-pl-diff.txt, 817 bytes (added by patrick@…, 17 years ago)

svn diff for imdb.pl

Line 
1Index: 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