Ticket #6231: allocine.pl.6231.patch

/usr/share/mythtv/mythvideo/scripts/allocine.pl

@@ -123 +123 @@
 
    # parse title and year
    my $title = parseBetween($response, "<title>", "</title>");
-   my $original_title = parseBetween($response, "<h4>Titre original : <i>","</i></h4></div>");
+   # remove the "- Allocin.*" suffix
+   $title =~ s{\s*-\s*AlloCin.*}{};
+   my $original_title = parseBetween($response, ">Titre original : <i>","</i></h");
    $original_title = removeTag($original_title);
    if (defined $opt_originaltitle){
       if ($original_title  ne  ""){
@@ -133 +135 @@
    
    #print "titre = $title\n";
    $title = removeTag($title);
-   my $year = parseBetween($response,"<h4>Année de production : ","</h4>");
+   my $year = parseBetween($response,">Année de production : ","</h");
 
    # parse director 
-   my $director = parseBetween($response,"<h4>Réalisé par ","</h4>");
+   my $director = parseBetween($response,">Réalisé par ","</h");
    $director = removeTag($director);
 
    # parse writer 
@@ -182 +184 @@
    
 
    # parse movie length
-   my $runtime = parseBetween($response,"Durée : ",".&nbsp;</h4>");
+   my $runtime = parseBetween($response,"Durée : ",".&nbsp;</h");
    my $heure;
    my $minutes;
    ($heure,$minutes)=($runtime=~/[^\d]*(\d+)[^\d]*(\d*)/);
@@ -198 +200 @@
 
    # parse cast 
 
-   my $cast = parseBetween($response, "<h4>Avec ","</h4>");
+   my $cast = parseBetween($response, ">Avec ","</h");
    $cast = removeTag($cast);
+   $cast =~ s{\s*Plus...}{ ...};
    if (defined $opt_casting){
       my $responsecasting = get "http://www.allocine.fr/film/casting_gen_cfilm=" . $movieid . ".html";
       my $fullcast = parseBetween($responsecasting, "Acteur(s)", "<table");
@@ -219 +222 @@
    
 
    #genres
-   my $genres = parseBetween($response,"<h4>Genre : ","</h4>");
+   my $genres = parseBetween($response,">Genre : ","</h");
    $genres = removeTag($genres);
    
    #countries
-   my $countries = parseBetween($response,"<h4>Film ",".&nbsp;</h4>");
+   my $countries = parseBetween($response,">Film ",".&nbsp;</h");
    $countries = removeTag($countries);
 
    # output fields (these field names must match what MythVideo is looking for)
@@ -375 +378 @@
            #
            # don't try to invent if it doesn't exist
            #
-           return if $response =~ /Pas de résultats/;
+           return if $response =~ /Pas de résultats|Recherche web sur AlloCiné/;
         
            # extract possible matches
            #    possible matches are grouped in several catagories: