Contenu | Rechercher | Menus

Annonce

Ubuntu 16.04 LTS
Commandez vos DVD et clés USB Ubuntu-fr !

Pour en savoir un peu plus sur l'équipe du forum.

Appel à contributeurs pour la doc.

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

#1 Le 06/10/2015, à 13:59

Varkolak

Suivi des plugins de GCstar

Bonjour à toutes et à tous,

certains d'entre vous connaissent probablement le gestionnaire de collections GCstar, dont le principal intérêt est la possibilité de récupérer des informations sur divers sites web via des plugins en perl. Malheureusement, ces derniers ne sont plus mis à jour, et le site du logiciel semble à l'abandon (pas de nouvelle version, forum verrouillé...). Quelqu'un saurait-il qui contacter afin de proposer des versions à jour de certains plugins (Amazon, Chapitre, Fnac), susceptibles d'être intégrés au logiciel ?

Hors ligne

#2 Le 06/10/2015, à 18:06

sergeG75018

Re : Suivi des plugins de GCstar

Bonjour.
Je suppose que tu as essayé de contacter le "mainteneur", tu as un email sur
http://www.gcstar.org/about.en.php#active

Sinon, c'est bien dommage que les MàJ soit arrêtée car c'est un excellent logiciel que j'utilise encore.


Ironie, sarcasme ou cynisme? Je ne sais plus

Hors ligne

#3 Le 08/10/2015, à 00:04

Varkolak

Re : Suivi des plugins de GCstar

Bonsoir,
et merci pour ta réponse. J'ai envoyé un message au mainteneur, mais pas de retour pour l'instant; peut-être plus tard ...
La vraie question qui se pose est de savoir si une gestion centralisée des MàJ plugins existe toujours, car les sites servant de sources de données évoluent assez souvent.
Dans le cas contraire, il est tout de même possible de copier manuellement de nouveaux scripts de récupération des infos sur les sites, GCstar est donc loin d'être obsolète.

Hors ligne

#4 Le 15/10/2015, à 23:48

Varkolak

Re : Suivi des plugins de GCstar

Bonsoir à tous,

devant l'absence de réponse du mainteneur du site de GCstar, il semble que les MàJ de plugins centralisées ne soient plus à l'ordre du jour.

Pour les personnes intéressées, je vous propose une version fonctionnelle pour le site de la Fnac, à sauvegarder sous le nom GCFnac.pm, puis à copier dans /usr/share/gcstar/lib/GCPlugins/GCbooks/ .

package GCPlugins::GCbooks::GCFnac;

###################################################
#
#  Copyright 2005-2006 Tian
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginFnac;

    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use URI::Escape;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {

	    # Détection début d'un nouvel ouvrage de la liste
            if ($attr->{class} eq 'js-minifa-title')
            {
		# Le prochain bloc de texte est le titre
                $self->{isTitle} = 1 ;
		# Créer la nouvelle entrée
                $self->{itemIdx}++;
		# Récupération de la page concernant l'ouvrage seul
                $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
                return;
            }

	    # Détection éditeur + date
            elsif ($tagname eq 'vark')
            {
		# Le bloc de texte après le suivant contient l'éditeur et la date
                $self->{isPublisher} = 1 ;
            }
    
        }
        else
        {
	    # Détection éditeur
	    if ($tagname eq 'varkeditor')
	    {
		$self->{isPublisher} = 3 ;
	    }
	    # Détection ISBN
	    elsif ($tagname eq 'varkISBN')
	    {
		$self->{isISBN} = 3 ;
	    }
	    # Détection pages
	    elsif ($tagname eq 'varkpages')
	    {
		$self->{isPage} = 3 ;
	    }
	    # Détection date
	    elsif ($tagname eq 'varkdate')
	    {
		$self->{isPublication} = 3 ;
	    }
	    # Détection auteurs
	    elsif ($tagname eq 'varkauthors')
	    {
		$self->{isAuthor} = 3 ;
	    }
	    # Détection format
	    elsif ($tagname eq 'varkformat')
	    {
		$self->{isFormat} = 3 ;
	    }
	    # Détection traducteur
	    elsif ($tagname eq 'varktranslator')
	    {
		$self->{isTranslator} = 3 ;
	    }
	    # Détection titre
	    elsif ($tagname eq 'varktitle')
	    {
		$self->{isTitle} = 3 ;
	    }
	    # Capture image
	    elsif ($tagname eq 'varkimage')
	    {
		$self->{curInfo}->{cover} = $attr->{src};
	    }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;

	# Arrêt de l'ajout d'auteurs
	if (($self->{isAuthor} == 3) && ($tagname eq 'li'))
	{
	    $self->{isAuthor} = 0;
	}
    }

    sub text
    {
        my ($self, $origtext) = @_;

        if ($self->{parsingList})
        {
	    # Capture du titre
            if ($self->{isTitle} == 1)
            {
                # Enleve les blancs en debut de chaine
                $origtext =~ s/^\s+//;
                # Enleve les blancs en fin de chaine
                $origtext =~ s/\s+$//g;
                $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                $self->{isTitle} = 0 ;
		# Le texte suivant contient l'auteur
		$self->{isAuthor} = 1 ;
		return;
            }
	    # Capture auteur
            elsif ($self->{isAuthor} == 1)
            {
                # Enleve les blancs en debut de chaine
                $origtext =~ s/^\s+//;
                # Enleve les blancs en fin de chaine
                $origtext =~ s/\s+$//g;
		if ($origtext ne '')
		{
			$self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
                	$self->{isAuthor} = 0 ;
		}
            }
            elsif ($self->{isPublisher} == 1)
            {
		# Passe le texte contenant le type d'ouvrage; le texte suivant contient éditeur et date
                $self->{isPublisher} = 2 ;
		return ;
            }
	    # Capture éditeur et date
            elsif ($self->{isPublisher} == 2)
            {
		my @array = split(/-/,$origtext);
		$array[2] =~ s/^\s+//;
		$array[2] =~ s/\s+$//g;
		$array[3] =~ s/^\s+//;
		$array[3] =~ s/\s+$//g;
                $self->{itemsList}[$self->{itemIdx}]->{edition} = $array[2];
                $self->{itemsList}[$self->{itemIdx}]->{publication} = $array[3];
                $self->{isPublisher} = 0 ;
            }
        }
       	else
        {
            # Enleve les blancs en debut de chaine
            $origtext =~ s/^\s+//;
            # Enleve les blancs en fin de chaine
            $origtext =~ s/\s+$//g;

	    # Capture titre
            if ($self->{isTitle} == 3)
            {
                $self->{curInfo}->{title} = $origtext;
                $self->{isTitle} = 0 ;
            }
	    # Capture auteurs
            elsif (($self->{isAuthor} == 3) && ($origtext ne ','))
            {
                if ($self->{curInfo}->{authors} eq '')
                {
                   $self->{curInfo}->{authors} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{authors} .= ", " . $origtext;
		}
            }
	    # Capture ISBN
            elsif ($self->{isISBN} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{isbn} = $origtext;
                   $self->{isISBN} = 0 ;
		}
            }
	    #Capture éditeur
            elsif ($self->{isPublisher} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{publisher} = $origtext;
                   $self->{isPublisher} = 0 ;
		}
            }
	    # Capture format
            elsif ($self->{isFormat} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{format} = $origtext;
                   $self->{isFormat} = 0 ;
                }
            }
	    # Capture date
            elsif ($self->{isPublication} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{publication} = $origtext;
                   $self->{isPublication} = 0 ;
                }
            }
	    # Capture pages
            elsif ($self->{isPage} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{pages} = $origtext;
                   $self->{isPage} = 0 ;
		}
            }
	    # Capture traducteur
            elsif ($self->{isTranslator} == 3)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{translator} = $origtext;
                   $self->{isTranslator} = 0 ;
                }
            }
	    # Capture description 
            elsif (($self->{isDescription} == 4) && ($origtext ne ''))
            {
		$self->{curInfo}->{description} = $origtext;
                $self->{isDescription} = 0;
            }
	    # Détection description (on saute une zone de texte)
            elsif (($self->{isDescription} == 3) && ($origtext ne ''))
            {
                $self->{isDescription} = 4;
            }
	    # Détection description (elle est située deux zones de texte plus loin)
            elsif ($origtext eq 'Le mot de l\'éditeur')
            {
                $self->{isDescription} = 3;
            }
        }
    } 

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 0,
            edition => 1,
            serie => 0,
        };

        $self->{isUrl} = 0;
        $self->{isTitle} = 0;
        $self->{isAuthor} = 0;
        $self->{isPublisher} = 0;
        $self->{isISBN} = 0;
        $self->{isPublication} = 0;
        $self->{isFormat} = 0;
        $self->{isSerie} = 0;
        $self->{isPage} = 0;
        $self->{isDescription} = 0;
        $self->{isCover} = 0;
        $self->{isTranslator} = 0;

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        if ($self->{parsingList})
        {
	    # Mise en forme pour détecter facilement les éditeur et date
            $html =~ s|<div class='editorialInfo'><strong>|<vark>|gmi;
        }
        else
        {

	    $html =~ s|<span class="Feature-label"><span>Editeur</span></span>|<varkeditor>|omi;
	    $html =~ s|<span class="Feature-label"><span>Date de parution</span></span>|<varkdate>|omi;
	    $html =~ s|<span class="Feature-label"><span>EAN</span></span>|<varkISBN>|omi;
	    $html =~ s|<span class="Feature-label"><span>Nombre de pages</span></span>|<varkpages>|omi;
	    $html =~ s|<span class="Feature-label"><span>Auteur</span></span>|<varkauthors>|omi;
	    $html =~ s|<span class="Feature-label"><span>Format</span></span>|<varkformat>|omi;
	    $html =~ s|<span class="Feature-label"><span>Traduction</span></span>|<varktranslator>|omi;
	    $html =~ s|<h2 class="FAstrate-title"><span class="FAstrate-title-color js-ProductSticky-title">Caractéristiques détaillées</span><span class="FAstrate-subtitle">|<varktitle>|omi;
	    $html =~ s|img class="js-ProductVisuals-imagePreview"|varkimage|omi;

            $html =~ s|<li>|\n* |gi;
            $html =~ s|<br>|\n|gi;
            $html =~ s|<br />|\n|gi;
            $html =~ s|<b>||gi;
            $html =~ s|</b>||gi;
            $html =~ s|<i>||gi;
            $html =~ s|</i>||gi;
            $html =~ s|<p>|\n|gi;
            $html =~ s|</p>||gi;
            $html =~ s|</h4>||gi;
            $html =~ s|\x{92}|'|g;
            $html =~ s|&#146;|'|gi;
            $html =~ s|&#149;|*|gi;
            $html =~ s|&#133;|...|gi;
            $html =~ s|\x{85}|...|gi;
            $html =~ s|\x{8C}|OE|gi;
            $html =~ s|\x{9C}|oe|gi;

        }
        
        return $html;
    }
    
    sub getSearchUrl
    {
        my ($self, $word) = @_;
	
        return "http://www.fnac.com/search/quick.do?filter=-3&text=". $word ."&category=book";
    }
    
    sub getItemUrl
    {
        my ($self, $url) = @_;
		
        return $url if $url;
        return 'http://www.fnac.com/';
    }

    sub getName
    {
        return "Fnac (FR)";
    }
    
    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }

    sub getAuthor
    {
        return 'Varkolak';
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub getSearchFieldsArray
    {
        return ['isbn', 'title', 'author'];
    }
}

1;

Hors ligne

#5 Le 27/10/2015, à 00:09

Varkolak

Re : Suivi des plugins de GCstar

Bonsoir à tous,

je vous propose ce soir un ensemble de 2 modules permettant de récupérer les données de livres sur Amazon.

Le premier se sauvegarde sous le nom GCAmazon.pm dans /usr/share/gcstar/lib/GCPlugins/GCbooks/. Il s'agit d'un module général pour toutes les langues.

package GCPlugins::GCbooks::GCAmazon;

###################################################
#
#  Copyright 2005-2009 Tian
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginAmazon;
    
    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use XML::Simple;
    use LWP::Simple qw($ua);
    use Encode;
    use HTML::Entities;
    use GCUtils;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
	    # Identify beginning of comments
	    if (($self->{isComment} == 0) && ($tagname eq 'varkcomment'))
	    {
	         $self->{isComment} = 1 ;
	    }

	    # Capture URL of book
	    if (($self->{isComment} == 0) && ($self->{isUrl} == 1) && ($tagname eq 'a'))
	    {
                 $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
	         $self->{isUrl} = 0 ;
		 $self->{isTitle} = 1 ;
		 return;
	    }	

	    # Identify beginning of new book (next text is title)
	    if (($self->{isComment} == 0) && ($tagname eq 'li') && ($attr->{id} =~ /result_[0-9]+/ ))
	    {
		 # Create new entry
                 $self->{itemIdx}++;
	         $self->{isUrl} = 1 ;
		 $self->{isAuthor} = 0 ;
		 return ;
	    }

	    # Identify end of authors list
	    if (($self->{isComment} == 0) && ($tagname eq 'varkendauthors') && ($self->{isAuthor} != 0))
	    {
		 $self->{isAuthor} = 0 ;
		 return ;
	    }
        }
        else
        {
	    # Detection of book themes
	    if (($self->{isTheme} == 0) && ($tagname eq 'varkgenre'))
	    {
                $self->{isTheme} = 1 ;
                return ;
	    }		

	    # Detection of book page count
	    if (($self->{isPage} == 0) && ($tagname eq 'varkdata'))
	    {
                $self->{isPage} = 1 ;
                return ;
	    }	

 	    # Detection of authors
	    if ($tagname eq 'varkauthor')
	    {
                $self->{isAuthor} = 1;
                return ;
	    }

	    # Capture of image
	    if (($tagname eq 'img') && ($attr->{class} eq 'a-dynamic-image image-stretch-vertical frontImage'))
	    {
                $attr->{src} =~ /http.+\.jpg/ ;
		$self->{curInfo}->{cover} = $attr->{src};
                $self->{isImage} = 0 ;
                return ;
	    }

	    # Detection of book description
	    if (($self->{isDescription} == 0) && ($tagname eq 'varkdescription'))
	    {
                $self->{isDescription} = 1 ;
                return ;
	    }
	    if (($self->{isDescription} == 1) && ($tagname eq 'div'))
	    {
                $self->{isDescription} = 2 ;
                return ;
	    }

	    # Detection title
	    if (($self->{isTitle} == 0) && ($tagname eq 'varktitle'))
	    {
                $self->{isTitle} = 2 ;
                return ;
	    }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;

        if ($self->{parsingList})
        {
	    # Identify end of comments
	    if (($self->{isComment} == 1) && ($tagname eq 'varkcomment'))
	    {
	         $self->{isComment} = 0 ;
	    } 
        }

        else
        {
	    # Finishing themes analysis
	    if (($self->{isTheme} != 0) && ($tagname eq 'li'))
	    {
                $self->{isTheme} = 0 ;
                return ;
	    }

	    # Finishing description analysis
	    if (($self->{isDescription} != 0) && ($tagname eq 'div'))
	    {
                $self->{isDescription} = 0 ;
                return ;
	    }		    
        }
    }

    sub text
    {
        my ($self, $origtext) = @_;


        if ($self->{parsingList})
        {
	    # Remove blanks before and after string
            $origtext =~ s/^\s+//;
            $origtext =~ s/\s+$//g;

	    # Capture of book title
	    if (($self->{isComment} == 0) && ($self->{isTitle} == 1) && ($origtext ne ''))
	    {
                $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                $self->{isTitle} = 0 ;
                $self->{isPublication} = 1 ;
                return ;
	    }	

	    # Capture of book publication date
	    if (($self->{isComment} == 0) && ($self->{isPublication} == 1) && ($origtext ne ''))
	    {
                $self->{itemsList}[$self->{itemIdx}]->{publication} = $origtext;
                $self->{isAuthor} = 1 ;
                $self->{isPublication} = 0 ;
                return ;
	    }	
   
	    # Avoid a text area before the first author
	    if (($self->{isComment} == 0) && ($self->{isAuthor} == 1) && ($origtext ne ''))
	    {
                $self->{isAuthor} = 2 ;
                return ;
	    }

	    # Capture of authors
	    if (($self->{isComment} == 0) && ($self->{isAuthor} == 2) && ($origtext ne ''))
	    {
                if ($self->{itemsList}[$self->{itemIdx}]->{authors} eq '')
                {
                    $self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
		}
		else
		{
		   $self->{itemsList}[$self->{itemIdx}]->{authors} .= " " . $origtext;
		}
		return;
	    }	

        }
        else
        {
	    # Remove blanks before and after string
            $origtext =~ s/^\s+//;
            $origtext =~ s/\s+$//g;

	    # Capture of title
	    if (($self->{isTitle} == 2) && ($origtext ne ''))
	    {
                $self->{isTitle} = 0 ;
                $self->{curInfo}->{title} = $origtext;
                return ;
	    }

	    # Capture of page number
	    if (($self->{isPage} == 1) && ($origtext =~ /^[0-9]+/))
	    {
                $self->{curInfo}->{pages} = $origtext;
                $self->{isPage} = 0 ;
                return ;
	    }

	    # Capture of editor and publication date
	    if (($self->{isEditor} == 0) && ($origtext eq $self->getTranslation(1)))
	    {

                $self->{isEditor} = 1 ;
                return ;
	    }
	    if (($self->{isEditor} == 1) && ($origtext ne ''))
	    {
		my @array = split('\(',$origtext);
		$array[1] =~ s/\)//g;
		$array[0] =~ s/^\s+//;
		$array[0] =~ s/\s+$//g;
		$array[1] =~ s/^\s+//;
		$array[1] =~ s/\s+$//g;
                $self->{curInfo}->{publisher} = $array[0];
		$self->{curInfo}->{publication} = $array[1];
                $self->{isEditor} = 0 ;
                return ;
	    }

	    # Capture of language
	    if (($self->{isLanguage} == 0) && ($origtext eq $self->getTranslation(2)))
	    {
                $self->{isLanguage} = 1 ;
                return ;
	    }
	    if (($self->{isLanguage} == 1) && ($origtext ne ''))
	    {
                $self->{curInfo}->{language} = $origtext;
                $self->{isLanguage} = 0 ;
                return ;
	    }

	    # Capture of ISBN
	    if (($self->{isISBN} == 0) && ($origtext eq $self->getTranslation(3)))
	    {
                $self->{isISBN} =1 ;
                return ;
	    }
	    if (($self->{isISBN} == 1) && ($origtext ne ''))
	    {
		$origtext =~ s|-||gi;
                $self->{curInfo}->{isbn} = $origtext;
		$self->{isISBN} = 0 ;
                return ;
	    }

	    # Capture of book dimensions
	    if (($self->{isSize} == 0) && ($origtext eq $self->getTranslation(4)))
	    {
                $self->{isSize} = 1 ;
                return ;
	    }
	    if (($self->{isSize} == 1) && ($origtext ne ''))
	    {
                $self->{curInfo}->{format} = $origtext;
                $self->{isSize} = 0 ;
                return ;
	    }


	    # Detection of themes
	    if (($origtext eq '>') && ($self->{isTheme} == 1))
	    {
                $self->{isTheme} = 2 ;
                return ;
	    }

	    # Capture of themes
	    if (($self->{isTheme} == 2) && ($origtext ne ''))
            {
                if ($self->{curInfo}->{genre} eq '')
                {
                   $self->{curInfo}->{genre} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{genre} .= ", " . $origtext;
		}
		$self->{isTheme} = 1 ;
		return;
            }

	    # Capture of authors
	    if (($self->{isAuthor} == 1) && ($origtext ne '') && ($origtext =~ /^(?:(?!Ajax).)*$/))
            {
                if ($self->{curInfo}->{authors} eq '')
                {
                   $self->{curInfo}->{authors} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{authors} .= ", " . $origtext;
		}
		$self->{isAuthor} = 0 ;
		return;
            }

	    # Capture of description
	    if (($self->{isDescription} == 2) && ($origtext ne ''))
	    {
                if ($self->{curInfo}->{description} eq '')
                {
                   $self->{curInfo}->{description} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{description} .= $origtext;
		}
                return ;
	    }
        }
    }


 
    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 0,
            edition => 0,
        };

        $self->{isComment} = 0;
	$self->{isUrl} = 0;
	$self->{isTitle} = 0;
	$self->{isPublication} = 0;
	$self->{isAuthor} = 0;
        $self->{isPage} = 0;
        $self->{isEditor} = 0;
        $self->{isISBN} = 0;
        $self->{isDescription} = 0;
	$self->{isLanguage} = 0 ;
	$self->{isTheme} = 0 ;

        return $self;
    }
    
    sub getItemUrl
    {
	my ($self, $url) = @_;	
        return $url;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

	if ($self->{parsingList})
        {
	    # Analysis of results must be disabled during comments
            $html =~ s|<!--|<varkcomment>|gi;
            $html =~ s|-->|</varkcomment>|gi;
	    # Remove other commercial offers
	    $html =~ s|END SPONSORED LINKS SCRIPT.*||s;
	    # End of authors listing detection 
	    $html =~ s|<h3 class="a-size-small a-color-null s-inline  a-text-normal">|<varkendauthors>|gi;
	    $html =~ s|<div class="a-row a-spacing-mini">|<varkendauthors>|gi;
        }
        else
        {
	    # Beginning of book data : pages, editor, publication date, ISBN, dimensions
	    $html =~ s|<td class="bucket">|<varkdata>|gi;
	    # Beginning of book image
	    $html =~ s|<div class="a-column a-span3 a-spacing-micro imageThumb thumb">|<varkimage>|;
	    # Beginning and end of book description
	    $html =~ s|<script id="bookDesc_override_CSS" type="text/undefined">|<varkdescription>|;
	    #$html =~ s|<div id="bookDesc_outer_postBodyPS" style="overflow: hidden; z-index: 1; height: 0px; display: block;">|</varkdescription>|;
	    # Beginning of book title
	    $html =~ s|<div id="booksTitle" class="feature" data-feature-name="booksTitle">|<varktitle>|gi;
	    # Beginning of book themes
	    $html =~ s|<ul class="zg_hrsr">|<varkgenre>|gi;
	    # Beginning of authors
	    $html =~ s|<span class="author notFaded" data-width="">|<varkauthor>|gi;

	    $html =~ s|<BR>||gi;
	    $html =~ s|<I>||gi;
	    $html =~ s|</I>||gi;
            $html =~ s|\x{8C}|OE|gi;
            $html =~ s|\x{9C}|oe|gi;
            $html =~ s|&#146;|'|gi;

	}
        return $html;
    }

    sub getSearchUrl
    {
		my ($self, $word) = @_;
		return 'http://' . $self->baseWWWamazonUrl . '/s/ref=nb_sb_noss_1?url=search-alias=stripbooks&field-keywords=' . "$word";
    }
    
    sub baseWWWamazonUrl
    {   
		return "www.amazon.com";    
    }    

    sub getName
    {
        return "Amazon (US)";
    }
    
    sub getAuthor
    {
        return 'Varkolak';
    }
    
    sub getLang
    {
        return 'EN';
    }

    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }
    
    sub getSearchFieldsArray
    {
        return ['title', 'authors', 'isbn'];
    }

    # Used to get the local translation of editor, language, ISBN, product dimension, series 
    sub getTranslation
    {
         my $param = $_[1];

	 if ($param == 1)
	 {
		return 'Publisher:';
	 }
	 elsif ($param == 2)
	 {
		return 'Language:';
	 }
	 elsif ($param == 3)
	 {
		return 'ISBN-13:';
	 }
	 elsif ($param == 4)
	 {
		return 'Product Dimensions:';
	 }
	 elsif ($param == 5)
	 {
		return 'Series:';
	 }
    }

}
1;

Le second, GCAmazonFR.pm va aussi dans /usr/share/gcstar/lib/GCPlugins/GCbooks/, et permet de s'adapter aux spécificités du site français. Pour d'autres langues, il suffit de changer l'adresse www.amazon.fr par celle de la langue voulue, et de traduire les chaines de la partie intitulée getTranslation (remplacer 'Langue' par 'Language', par exemple).

package GCPlugins::GCbooks::GCAmazonFR;

###################################################
#
#  Copyright 2005-2009 Tian
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCAmazon;

{
    package GCPlugins::GCbooks::GCPluginAmazonFR;
    
    use base qw(GCPlugins::GCbooks::GCPluginAmazon);

    sub baseWWWamazonUrl
    {
		return "www.amazon.fr";    
    }
    
    sub getName
    {
        return "Amazon (FR)";
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub getTranslation
    {
         my $param = $_[1];

	 if ($param == 1)
	 {
		return 'Editeur :';
	 }
	 elsif ($param == 2)
	 {
		return 'Langue :';
	 }
	 elsif ($param == 3)
	 {
		return 'ISBN-13:';
	 }
	 elsif ($param == 4)
	 {
		return 'Dimensions du produit:';
	 }
	 elsif ($param == 5)
	 {
		return 'Collection :';
	 }
    }


}

1;

Hors ligne

#6 Le 17/12/2015, à 17:56

Astier

Re : Suivi des plugins de GCstar

Merci beaucoup pour ces deux scripts Amazon ! Je désespérais un peu et craignais de ne plus pouvoir utiliser GCstar...

Je me suis permis d'ailleurs de mettre à jour la documentation http://doc.ubuntu-fr.org/gcstar

Merci encore et en espérant que les mises à jour se poursuivent !

Hors ligne

#7 Le 17/12/2015, à 18:09

Astier

Re : Suivi des plugins de GCstar

Par contre, chez moi, le script Amazon ne renvoie ni l'éditeur ni la date de publication.

Et je dois avouer que je ne comprends pas comme cela à première vue par quel bout prendre ce code et surtout le tester...

Est-ce que tu rencontres ce même problème ? Pourrais-tu expliquer comment réaliser le test (par exemple, comment tester en ligne de commande pour voir ce que le script renvoie..) ?

Merci !

Hors ligne

#8 Le 14/01/2016, à 16:25

Varkolak

Re : Suivi des plugins de GCstar

Bonjour Astier,

et désolé pour la réponse tardive, ainsi que le pavé qui va suivre.


Concernant les problèmes avec la date, quelques essais récents n'ont pas généré de problème chez moi avec ce même module; cependant, les sites ne stockent pas toujours les données de manière rigoureuse et reproductible, il peut donc y avoir des exceptions avec certains livres.

Dans un premier temps, il faudrait tester un des livres sur lesquels l'éditeur n'apparaît pas, et faire une recherche manuelle sur le site Amazon.fr : plus précisément, vérifier que la rubrique 'Editeur' dans la partie 'Détails sur le produit' est bien remplie. A partir de là, deux cas sont possibles :

- la rubrique est absente ou vide pour cet ouvrage : tout va bien, le module ne peut pas récupérer des données inexistantes...
- la rubrique est bien renseignée : il doit s'agir d'une mise en forme différente de celle qu'attend le module (à savoir : une chaîne de caractères pour l'éditeur, puis une date entre parenthèses), une modification du plugin s'impose.


Concernant le fonctionnement du module, il est vrai que la quasi-absence de documentation sur les rouages de GCstar rend la compréhension difficile, d'autant que le plugin Amazon est probablement l'un des plus complexes. Je vais donc essayer d'être clair et schématique. A la base, GCstar fonctionne en scannant le code source des pages web pour retrouver les informations voulues; une chose très importante à retenir: l'analyse se fait dans l'ordre de la page, et par blocs, qui sont les balises ouvrantes, le texte sans balise, et les balises fermantes. Ainsi, une page comprenant <titre> Mon livre </titre> sera analysée par les blocs de texte : 'titre', puis 'Mon livre', puis 'titre'.

La structure des modules est la suivante :

use GCPlugins::...
Déclare qu'il s'agit d'un module, ainsi que le type de modèle utilisé (livres, films etc...), et contient toutes les fonctions nécessaires

   sub new ...
   Constructeur, fonction qui va créer chaque instance de livre particulier, avec les champs à enregistrer (authors par exemple), et les variables temporaires internes (isComment par exemple)

   sub preProcess...
   Optionnel, permet de faire un prétraitement de la page, en substituant ou en supprimant certaines chaînes de caractères inutiles qui peuvent ralentir l'analyse de la page

   sub start
   Fonction d'analyse des balises ouvrantes; quand Gcstar rencontre une balise ouvrante (<...>), il va appliquer les opérations contenues dans cette fonction sur le texte contenu dans la balise. Le cas le plus simple serait pour une page web où le titre du livre serait signalé par une balise <titre>; dans cette configuration, on va changer une variable (isTitle =1 par exemple) pour signaler que le texte suivant la balise est bien le titre du livre.

  sub text
  Fonction d'analyse du texte hors balises: même principe, mais appliqué uniquement au texte non encadré par < et >. Dans le cadre de l'exemple précédent, on va mettre une condition disant que si isTitle est à 1 (donc que la balise précédente est <titre>), il faut enregistrer le texte du titre dans le champ "titre".

   sub end
   Fonction d'analyse des balises fermantes (</>) : toujours pareil. Selon le même exemple simple, on va remettre la variable isTitle à 0, pour que la prochaine zone de texte ne soit pas considérée comme appartenant au champ titre du livre.

Les autres fonctions sont secondaires pour comprendre le fonctionnement général, et assez explicites (voir http://wiki.gcstar.org/fr/websites_plugins en cas de besoin). Il y a quand même un détail important à retenir sur les fonctions start, end, et text : elles ont toutes une structure if ($self -> {parsingList})  .... else. Ceci est lié au fonctionnement de GCstar. En effet, le logiciel analyse en fait 2 pages successivement pour chaque demande : en premier la page de résultats de recherche du site (ce qui va permettre de générer une liste d'ouvrages à choisir qui correspondent à la recherche), puis la page spécifique à un ouvrage précis une fois celui-ci sélectionné dans la liste. Comme ces deux pages n'ont pas la même structure de code, les opérations après if ($self -> {parsingList}) s'appliquent à la page résultat liste de livres, celles après else à la page concernant le livre sélectionné uniquement.


Concernant les tests de modules, il me semble avoir vu une possibilité en ligne de commande sur leur site, mais elle demande d'installer pas mal de logiciels annexes. Pour ma part, je préfère simplement tester directement dans GCstar; il est possible d'ajouter quelques lignes de code dans le module pour écrire le contenu de certaines variables dans un fichier afin d'avoir un suivi lors des tests (fonctions perl open pour ouvrir le fichier, print pour y écrire et close pour le fermer)...


Merci pour le retour sur le fonctionnement du module.

Hors ligne

#9 Le 27/01/2016, à 19:08

kerenoc

Re : Suivi des plugins de GCstar

Bonjour,

Heureux d'avoir découvert ce fil de discussion sur GCstar. J'ai fait évoluer aussi quelques plugins en 2015 mais ne peux pas les publier sur le forum officiel car il n'accepte plus les nouvelles inscriptions. Ubuntu-fr.org m'offre donc la possibilité de les mettre à disposition.

Comme Varkolak j'ai mis à jour le plugin GCbooks/GCFnac.pm (fonctions supplémentaires : récupération du no ISBN et du nom des traducteurs).

package GCPlugins::GCbooks::GCFnac;

###################################################
#
#  Copyright 2005-2006 Tian
#  Copyright 2015-2016 Kerenoc01 on Google Mail
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginFnac;

    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use URI::Escape;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
            if (($tagname eq 'div') && ($attr->{class} eq "Article-itemInfo"))
	    {
		$self->{isTitle} = 1;
		$self->{isPublisher} = 0;
	    }	
            elsif (($self->{isTitle} eq 1) && ($tagname eq 'a') && ($attr->{class} eq " js-minifa-title"))
	    {
                $self->{itemIdx}++;
                $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
		$self->{isTitle} = 2;
	    }
            elsif (($tagname eq 'p') && ($attr->{class} eq "Article-descSub"))
	    {
		$self->{isAuthor} = 1;
	    }
            elsif (($self->{isAuthor} eq 1) && ($tagname eq 'a'))
	    {
		$self->{isAuthor} = 2;
	    }
	    elsif ($self->{isAuthor} && $tagname eq 'div')
	    {
		$self->{isAuthor} = 0;
	    }
            elsif (($tagname eq 'div') && ($attr->{class} eq "editorialInfo"))
	    {
		$self->{isAnalyse} = 1;
	    }
        }
        else
        {
            if (($tagname eq 'h1') && ($attr->{class} eq 'ProductSummary-title'))
            {
                $self->{isTitle} = 1 ;
            }
            elsif (($self->{isTitle} eq 1) && ($tagname eq 'span') && ($attr->{itemprop} eq 'name'))
            {
                $self->{isTitle} = 2 ;
            }
            elsif (($tagname eq 'div') && ($attr->{class} eq 'ProductSummary-subTitle'))
            {
                $self->{isAuthor} = 1 ;
            }
            elsif (($self->{isAuthor} eq 1) && ($tagname eq 'a'))
            {
                $self->{isAuthor} = 2 ;
            }
            elsif (($tagname eq 'a') && ($attr->{class} eq 'expandimg') && ($self->{bigPics}))
            {
                $self->{curInfo}->{cover} = $attr->{href} ;
            }
            elsif (($tagname eq 'img') && ($attr->{class} eq 'js-ProductVisuals-imagePreview') && ((!$self->{bigPics}) || ($self->{curInfo}->{cover} eq '')))
            {
                $self->{curInfo}->{cover} = $attr->{src} ;
            }
            elsif ($tagname eq 'section' && $attr->{id} eq 'ficheResume')
            {
                $self->{isDescription} = 1 ;
            }
            elsif ($tagname eq 'div' && $attr->{class} eq 'productStrateTop')
            {
                $self->{isDescription} = 1 ;
            }
            elsif ($self->{isDescription} eq 1 && $tagname eq 'div' && $attr->{class} eq 'whiteContent')
            {
                $self->{isDescription} = 2 ;
            }
            elsif (($tagname eq 'ul') && ($attr->{class} =~ m/Feature-list/))
            {
                $self->{isAnalyse} = 1 ;
		$self->{isDescription} = 0;
            }
            elsif (($tagname eq 'span') && ($attr->{class} =~ m/Feature-label/))
            {
                $self->{isAnalyse} = 2 ;
            }
            elsif (($self->{isAnalyse} eq 1) && ($attr->{class} =~ m/Feature-desc/))
            {
		$self->{isPublisher} = 2 if ($self->{isPublisher});
		$self->{isPublication} = 2 if ($self->{isPublication});
		$self->{isSerie} = 2 if $self->{isSerie}; 
		$self->{isISBN} = 2 if $self->{isISBN}; 
		$self->{isPage} = 2 if $self->{isPage}; 
            }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;

	if ($self->{isAnalyse} && $tagname eq 'div')
	{
	    $self->{isAnalyse} = 0;
	}
	elsif ($self->{isAuthor} && $tagname eq 'div')
	{
	    $self->{isAuthor} = 0;
	}
	elsif ($self->{isAnalyse} eq 2 && $tagname eq 'strong')
	{
	    $self->{isAnalyse} = 1;
	}
	elsif ($self->{isDescription} eq 2 && $tagname eq 'div')
	{
	    # parfois des descriptions en double : resume + le mot de l'editeur
	    # meme contenu avec une orthographe et une mise en page différente!
	    $self->{isDescription} = 0;
	}
    }

    sub text
    {
        my ($self, $origtext) = @_;

        if ($self->{parsingList})
        {
            if ($self->{isTitle} eq 2)
            {
                # Enleve les blancs en debut de chaine
                $origtext =~ s/^\s+//;
                # Enleve les blancs en fin de chaine
                $origtext =~ s/\s+$//g;

                if (($self->{itemsList}[$self->{itemIdx}]->{title} eq '') && ($origtext ne ''))
                {
                   $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                }
                elsif ($origtext ne '')
                {
                   $self->{itemsList}[$self->{itemIdx}]->{title} .= ' - ';
                   $self->{itemsList}[$self->{itemIdx}]->{title} .= $origtext;
                }
                $self->{isTitle} = 0 ;
            }
            elsif ($self->{isAnalyse} > 0)
	    {
		my @listInfo = split(/\n/, $origtext);
		my $nbInfos = scalar @listInfo ;
		if ($nbInfos eq 1)
		{
		    return;
		}
		else
		{
		    my $publication = $listInfo[$nbInfos-1];
		    $publication =~ s/^[-\s]+//;
		    $publication =~ s/\s+$//g;
		    $self->{itemsList}[$self->{itemIdx}]->{publication} = $publication;
		    my $edition = $listInfo[$nbInfos-2];
		    $edition =~ s/^[-\s]+//;
		    $edition =~ s/\s+$//g;
		    $self->{itemsList}[$self->{itemIdx}]->{edition} = $edition;
		}
	    }
            elsif ($self->{isAuthor} eq 2)
            {
                $origtext =~ s/^\s+//;
                $origtext =~ s/\s+$//g;

                if (($self->{itemsList}[$self->{itemIdx}]->{authors} eq '') && ($origtext ne ''))
                {
                   $self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
                }
                elsif ($origtext ne '')
                {
                   $self->{itemsList}[$self->{itemIdx}]->{authors} .= ', ';
                   $self->{itemsList}[$self->{itemIdx}]->{authors} .= $origtext;
                }
		$self->{isAuthor} = 1;
            }
        }
       	else
        {
            # Enleve les blancs en debut de chaine
            $origtext =~ s/^\s+//;
            # Enleve les blancs en fin de chaine
            $origtext =~ s/\s+$//g;
            if ($self->{isTitle} eq '2')
            {
                $self->{curInfo}->{title} = $origtext;
                $self->{isTitle} = 0 ;
            }
            elsif ($self->{isAnalyse} eq 2)
            {
                $self->{isISBN} = 1 if ($origtext =~ m/ISBN/i);
                $self->{isPublisher} = 1 if ($origtext =~ m/Editeur/i);
                $self->{isFormat} = 1 if ($origtext =~ m/Format/i);
                $self->{isSerie} = 1 if ($origtext =~ m/Collection/i);
                $self->{isPublication} = 1 if ($origtext =~ m/Date de parution/i);
                $self->{isPage} = 1 if ($origtext =~ m/pages/i);
                $self->{isTranslator} = 1 if ($origtext =~ m/Traduction/i);

                $self->{isAnalyse} = 1 ;
            }
            elsif ($self->{isAuthor} eq 2)
            {
                # Enleve les virgules
                $origtext =~ s/,//;
                if ($origtext ne '')
                {
		    $self->{author} = $origtext;
                }
		$self->{isAuthor} = 1;
            }
	    elsif ($self->{isAuthor} eq 1)
	    {
		if ($origtext =~ m/\(Traduct/)
		{
		    $self->{curInfo}->{translator} = $origtext;
		}
		elsif ($origtext =~ m/^\(/)
		{
		    $self->{curInfo}->{authors} .= $self->{author};
		    $self->{curInfo}->{authors} .= ", ";
		}
	    }
            elsif ($self->{isISBN} eq 2)
            {
                $self->{curInfo}->{isbn} = $origtext;
                $self->{isISBN} = 0 ;
            }
            elsif ($self->{isPublisher} eq 2)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{publisher} = $origtext;
                   $self->{isPublisher} = 0 ;
                }
            }
            elsif ($self->{isFormat} eq 2)
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{format} = $origtext;
                   $self->{isFormat} = 0 ;
                }
            }
            elsif ($self->{isSerie} eq 2)
            {
                if ($origtext ne '')
                {
		    $self->{curInfo}->{serie} = $origtext;
		    $self->{isSerie} = 0 ;
                }
            }
            elsif ($self->{isPublication} eq 2)
            {
		$self->{curInfo}->{publication} = $self->decodeDate($origtext) 
		    if (!$self->{curInfo}->{publication});
		$self->{isPublication} = 0 ;
            }
            elsif (($self->{isPage} eq 2))
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{pages} = $origtext;
                   $self->{isPage} = 0 ;
                }
            }
            elsif ($self->{isTranslator})
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{translator} = $origtext;
                   $self->{isTranslator} = 0 ;
                }
            }
            elsif ($self->{isDescription} eq 2)
            {
		$origtext .= "\n";
                $self->{curInfo}->{description} .= $origtext;
            }
        }
    } 

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 0,
            edition => 1,
            serie => 0,
        };

        $self->{isTitle} = 0;
        $self->{isAuthor} = 0;
        $self->{isPublisher} = 0;
        $self->{isISBN} = 0;
        $self->{isPublication} = 0;
        $self->{isFormat} = 0;
        $self->{isSerie} = 0;
        $self->{isPage} = 0;
        $self->{isDescription} = 0;
        $self->{isTranslator} = 0;

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        if ($self->{parsingList})
        {
            $html =~ s|</a><br>|</a><tpfpublicationtpf>|gmi;
        }
        else
        {
            # Le descriptif pouvant contenir des balises html je le repere maintenant
            my $found = index($html,"<strong>Mot de l'");
            if ( $found >= 0 )
            {
               my $html2 = substr($html, $found +length('<strong>Mot de l\''),length($html)- $found -length('<strong>Mot de l\''));
               my $found2 = index($html2,"<h4 ");
               my $html3 = $html2;
               if ( $found2 >= 0 )
               {
                  $html3 = substr($html2, $found2 +length('<h4 '),length($html2)- $found2 -length('<h4 '));
                  $html2 = substr($html2, 0, $found2);
               }

               $found2 = index($html2,"</strong>");
               if ( $found2 >= 0 )
               {
                  $html2 = substr($html2, $found2 +length('</strong>'),length($html2)- $found2 -length('</strong>'));
               }

               $html2 =~ s|<li>|\n* |gi;
               $html2 =~ s|<br>|\n|gi;
               $html2 =~ s|<br />|\n|gi;
               $html2 =~ s|<b>||gi;
               $html2 =~ s|</b>||gi;
               $html2 =~ s|<i>||gi;
               $html2 =~ s|</i>||gi;
               $html2 =~ s|<p>|\n|gi;
               $html2 =~ s|</p>||gi;
               $html2 =~ s|</h4>||gi;
               $html2 =~ s|\x{92}|'|g;
               $html2 =~ s|&#146;|'|gi;
               $html2 =~ s|&#149;|*|gi;
               $html2 =~ s|&#133;|...|gi;
               $html2 =~ s|\x{85}|...|gi;
               $html2 =~ s|\x{8C}|OE|gi;
               $html2 =~ s|\x{9C}|oe|gi;

            }

        }
        
        return $html;
    }
    
    sub getSearchUrl
    {
        my ($self, $word) = @_;
	
        return "http://www3.fnac.com/search/quick.do?filter=-3&text=". $word ."&category=book";
    }
    
    sub getItemUrl
    {
        my ($self, $url) = @_;
		
        return $url if $url;
        return 'http://www.fnac.com/';
    }

    sub getName
    {
        return "Fnac (FR)";
    }
    
    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }

    sub getAuthor
    {
        return 'TPF - Kerenoc';
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub getSearchFieldsArray
    { 
        return ['isbn', 'title'];
    }

    sub decodeDate
    {
	my ($self, $date) = @_;
	
	# date déjà dans le bon format
	return $date if ($date =~ m|/|);

	# date à convertir au format jour/mois/année

	my @dateItems = split(/\s/, $date);
	my @listeMois = ("janvier","février","mars","avril","mai","juin",
			 "juillet","août","septmbre","octobre","novembre","décembre");
	my $mois = 0;
	
	while ($mois < (scalar @listeMois) && $dateItems[(scalar @dateItems)-2] ne $listeMois[$mois])
	{
	    $mois++;
	}
	return "01/".sprintf("%02d",$mois)."/".$dateItems[1];
    }
}


1;

J'ai aussi refait fonctionner le plugin GCbooks/Chapitre.com.

package GCPlugins::GCbooks::GCChapitre;

###################################################
#
#  Copyright 2005-2006 Tian
#  Copyright 2015-2016 Kereno01 on Google Mail
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginChapitre;

    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use URI::Escape;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
            if (($tagname eq 'a') && ( $attr->{id} =~ m/_searchProductDisplay_hlProductTitle/))
            {
                $self->{itemIdx}++;
                $self->{itemsList}[$self->{itemIdx}]->{url} = "http://www.chapitre.com" . $attr->{href};
                $self->{isTitle} = 1 ;
            }
            elsif ($tagname eq 'em')
            {
                $self->{isAuthor} = 1 ;
            }
	    elsif (($tagname eq 'span') && ( $attr->{class} eq 'editeur'))
	    {
		$self->{isPublisher} = 1;
	    }
	    elsif (($tagname eq 'span') && ( $attr->{class} eq 'dateParution'))
	    {
		$self->{isPublication} = 1;
	    }
        }
        else
        {
            if (($tagname eq 'div') && ($attr->{class} eq 'clear'))
            {
                $self->{isDescription} = 0 ;
            }
            elsif (($tagname eq 'h1') && ( $attr->{class} eq 'ProductSummary-title'))
            {
                $self->{isTitle} = 1 ;
            }
            elsif (($tagname eq 'h1') && ( $attr->{class} eq 'product-title'))
            {
                $self->{isTitle} = 1 ;
            }
            elsif (($tagname eq 'div') && ( $attr->{id} eq 'ctl00_PHCenter_ProductFile1_ProductTitle1_pnlTranslator'))
            {
                $self->{isTranslator} = 1 ;
            }
            elsif (($tagname eq 'tpftraducteurtpf') && ( $self->{isTranslator} eq 1))
            {
                $self->{isTranslator} = 2 ;
            }
            elsif (($tagname eq 'img') && ( $attr->{itemprop} eq 'image') && ( index($attr->{src},"http://images.chapitre.com/indispo") eq -1 ))
            {
                $self->{curInfo}->{cover} = $attr->{src} if ($self->{curInfo}->{cover} eq "");
            }
            elsif (($tagname eq 'div') && ($attr->{itemprop} eq 'description'))
            {
                $self->{isDescription} = 1 ;
            }
            elsif (($tagname eq 'tpfdescriptiontpf') && ($self->{isDescription} eq 1))
            {
                $self->{isDescription} = 2 ;
            }
            elsif (($tagname eq 'span') && ($self->{isDescription} eq 1))
            {
                $self->{isDescription} = 2 ;
            }
            elsif (($tagname eq 'a') && ( $attr->{href} =~ m|/CHAPITRE/fr/search/Default.aspx\?collection=|i))
            {
                $self->{isCollection} = 1 ;
            }
            elsif (($tagname eq 'a') && ( $attr->{href} =~ m|/CHAPITRE/fr/search/Default.aspx\?editeur=|i))
            {
                $self->{isPublisher} = 1 ;
            }
            elsif (($tagname eq 'a') && ( $attr->{href} =~ m|/CHAPITRE/fr/t/|i))
            {
                $self->{isGenre} = 1 ;
            }
            elsif (0 eq 1 && ($tagname eq 'a') && ( $attr->{href} =~ m|/CHAPITRE/fr/p/|i) && ( $attr->{id} =~ m|ctl00_PHCenter_productTop_|i))
            {
                $self->{isAuthor} = 1 ;
            }
            elsif (($tagname eq 'span') && ( $attr->{id} =~ m|ctl00_PHCenter_productBottom_productDetail_rpDetails_|i))
            {
                $self->{isAnalyse} = 1 ;
            }
        }
    }

    sub end
    {
		my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;
    }

    sub text
    {
        my ($self, $origtext) = @_;

        if ($self->{parsingList})
        {
            if ($self->{isTitle})
            {
                $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                $self->{isTitle} = 0 ;
            }
            elsif ($self->{isAuthor})
            {
                if ($origtext =~ m/Les outils de recherche/i)
		{
		    # the search failed
		    $self->{isAuthor} = 0;
		    return;
		}
		
                # Enleve les blancs en debut de chaine
                $origtext =~ s/^\s+//;
                # Enleve les blancs en fin de chaine
                $origtext =~ s/\s+$//g;
                if ($self->{itemsList}[$self->{itemIdx}]->{authors} eq '')
                {
                   $self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
                }
                else
                {
                   $self->{itemsList}[$self->{itemIdx}]->{authors} .= ', ';
                   $self->{itemsList}[$self->{itemIdx}]->{authors} .= $origtext;
                }
                $self->{isAuthor} = 0 ;
            }
            elsif ($self->{isAnalyse})
            {
                $self->{isPublisher} = 1 if ($origtext =~ m/Editeur :/i);
                $self->{isSerie} = 1 if ($origtext =~ m/Collection :/i);
                $self->{isPublication} = 1 if ($origtext =~ m/Date :/i);
                $self->{isAnalyse} = 0 ;
            }
            elsif ($self->{isPublisher})
            {
		$origtext =~ s/Editeur : //;
		$origtext =~ s/\.$//;
                my @array = split(/\n/,$origtext);
                $self->{itemsList}[$self->{itemIdx}]->{edition} = $array[0];
                $self->{isPublisher} = 0 ;
            }
            elsif ($self->{isPublication})
            {
		$origtext =~ s/Date de parution ://;
		$origtext =~ s/\.$//;
                my @array = split(/\n/,$origtext);
                $self->{itemsList}[$self->{itemIdx}]->{publication} = $array[0];
                $self->{isPublication} = 0 ;
            }
            elsif ($self->{isSerie})
            {
                my @array = split(/\n/,$origtext);
                $self->{itemsList}[$self->{itemIdx}]->{serie} = $array[0];
                $self->{isSerie} = 0 ;
            }
        }
       	else
        {
            # Enleve les blancs en debut de chaine
            $origtext =~ s/^\s+//;
            # Enleve les blancs en fin de chaine
            $origtext =~ s/\s+$//g;
            if ($self->{isTitle})
            {
                $self->{curInfo}->{title} = $origtext;
                $self->{isTitle} = 0 ;
            }
            elsif ($self->{isAuthor} eq 1)
            {
                if ( $origtext ne '')
                {
                   my @array = split(/;/,$origtext);
                   my $element;
                   foreach $element (@array)
                   {
                      my @nom_prenom = split(/,/,$element);
                      # Enleve les blancs en debut de chaine
                      $nom_prenom[0] =~ s/^\s//;
                      $nom_prenom[1] =~ s/^\s//;
                      # Enleve les blancs en fin de chaine
                      $nom_prenom[0] =~ s/\s+$//;
                      $nom_prenom[1] =~ s/\s+$//;
                      if ($self->{curInfo}->{authors} eq '')
                      {
                         if ($nom_prenom[1] ne '')
                         {
                            $self->{curInfo}->{authors} = $nom_prenom[1] ." " . $nom_prenom[0];
                         }
                         else
                         {
                            $self->{curInfo}->{authors} = $nom_prenom[0];
                         }
                      }
                      else
                      {
                         if ($nom_prenom[1] ne '')
                         {
                            $self->{curInfo}->{authors} .= ", " . $nom_prenom[1] ." " . $nom_prenom[0];
                         }
                         else
                         {
                            $self->{curInfo}->{authors} .= ", " . $nom_prenom[0];
                         }
                      }
                   }
                   $self->{isAuthor} = 0 ;
                }
            }
            elsif ($self->{isTranslator} eq 2)
            {
                $self->{curInfo}->{translator} = $origtext;
                $self->{isTranslator} = 0 ;
            }
            elsif ($self->{isPublisher} eq 1)
            {
                $self->{curInfo}->{publisher} = $origtext;
                $self->{isPublisher} = 0 ;
            }
            elsif ($self->{isDescription} eq 2)
            {
                $self->{curInfo}->{description} = $origtext;
                $self->{isDescription} = 0 ;
            }
            elsif ($self->{isPublication} && $self->{isAnalyse})
            {
                $self->{curInfo}->{publication} = $origtext;
                $self->{isPublication} = 0 ;
            }
            elsif ($self->{isISBN} && $self->{isAnalyse})
            {
                $self->{curInfo}->{isbn} = $origtext;
                $self->{isISBN} = 0 ;
            }
            elsif ($self->{isPage} && $self->{isAnalyse})
            {
                if ($origtext ne '')
                {
                   $self->{curInfo}->{pages} = $origtext;
                   $self->{isPage} = 0 ;
                }
            }
            elsif ($self->{isCollection})
            {
                $self->{curInfo}->{serie} = $origtext;
                $self->{isCollection} = 0 ;
            }
            elsif ($self->{isGenre})
            {
                $origtext =~ s|/|,|gi;
                $self->{curInfo}->{genre} = $origtext;
                $self->{isGenre} = 0 ;
            }
            elsif ($self->{isLanguage} && $self->{isAnalyse})
            {
                $self->{curInfo}->{language} = $origtext;
                $self->{isLanguage} = 0 ;
                $self->{isAnalyse} = 0 ;
            }
            elsif ($self->{isAnalyse})
            {
                $self->{isPublication} = 1 if ($origtext =~ m/parution/i);
                $self->{isISBN} = 1 if ($origtext =~ m/EAN13/i);
                $self->{isPublisher} = 1 if ($origtext =~ m/Editeur/i);
                $self->{isLanguage} = 1 if ($origtext =~ m/Langue/i);
                $self->{isPage} = 1 if ($origtext =~ m/Nombre de page/i);
                $self->{isAuthor} = 1 if ($origtext =~ m/Auteur/i);

                $self->{isAnalyse} = 0 ;
            }
        }
    } 

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 0,
            edition => 1,
            serie => 1,
        };

        $self->{isTitle} = 0;
        $self->{isAuthor} = 0;
        $self->{isPublisher} = 0;
        $self->{isSerie} = 0;
        $self->{isPublication} = 0;
        $self->{isAnalyse} = 0;
        $self->{isDescription} = 0;
        $self->{isISBN} = 0;
        $self->{isLanguage} = 0;
        $self->{isCollection} = 0;
        $self->{isTranslator} = 0;
        $self->{isGenre} = 0;

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        $self->{isTitle} = 0;
        $self->{isAuthor} = 0;
        $self->{isPublisher} = 0;
        $self->{isSerie} = 0;
        $self->{isPublication} = 0;
        $self->{isAnalyse} = 0;
        $self->{isDescription} = 0;
        $self->{isISBN} = 0;
        $self->{isLanguage} = 0;
        $self->{isCollection} = 0;
        $self->{isTranslator} = 0;
        $self->{isGenre} = 0;

        if ($self->{parsingList})
        {
            $html =~ s|<b>||gi;
            $html =~ s|</b>||gi;
            $html =~ s|</a>,|</a>,<tpfauthortpf>|gi;
            $html =~ s|(auteur)</em>|(auteur)</em><tpfauthortpf>|gi;
        }
        else
        {

            $html =~ s|</strong>|</strong><tpftraducteurtpf>|gi;
            #$html =~ s|</h3>|</h3><tpfdescriptiontpf>|gi;

            $html =~ s|<u>||gi;
            $html =~ s|<li>|\n* |gi;
            $html =~ s|<br>|\n|gi;
            $html =~ s|<br />|\n|gi;
            $html =~ s|<b>||gi;
            $html =~ s|</b>||gi;
            $html =~ s|<i>||gi;
            $html =~ s|</i>||gi;
            $html =~ s|<p>|\n|gi;
            $html =~ s|</p>||gi;
            $html =~ s|\x{92}|'|g;
            $html =~ s|&#146;|'|gi;
            $html =~ s|&#149;|*|gi;
            $html =~ s|&#133;|...|gi;
            $html =~ s|\x{85}|...|gi;
            $html =~ s|\x{8C}|OE|gi;
            $html =~ s|\x{9C}|oe|gi;
	    $html =~ s|\n+|\n|gi;

        }

        return $html;
    }
    
    sub getSearchUrl
    {
	my ($self, $word) = @_;

	# utilisation d'une requête GET à la place d'un POST
        #$word =~ s/\+/ /g;
        #return ('http://www.chapitre.com/CHAPITRE/fr/search/Default.aspx?search=true', ["quicksearch" => "$word"] );
	#return ('http://www.chapitre.com/CHAPITRE/fr/search/Default.aspx?search=true&quicksearch='.$word);
	return "http://www.chapitre.com/CHAPITRE/fr/search/Default.aspx?quicksearch=" . $word . "&optSearch=BOOKS";
    }
    
    sub getItemUrl
    {
		my ($self, $url) = @_;
		
        return $url;
    }

    sub getName
    {
        return "Chapitre.com";
    }
    
    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }

    sub getAuthor
    {
        return 'TPF - Kerenoc';
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub getSearchFieldsArray
    {
        return ['isbn', 'title'];
    }
}

1;

Si quelqu'un a un compte sur le forum officiel de GCstar, il serait peut être utile d'y relayer les mises à jour publiées ici qui permettent au logiciel de continuer à fonctionner.

Hors ligne

#10 Le 27/01/2016, à 19:41

kerenoc

Re : Suivi des plugins de GCstar

En ce qui concerne les plugins sur les films, j'ai mis à jour le plugin GCfilms/GCAllocine.pm.

package GCPlugins::GCfilms::GCAllocine;

###################################################
#
#  Copyright 2005-2010 Christian Jodar
#  Copyright 2015-2016 Kérénoc (kerenoc01 à Google Mail)
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCfilms::GCfilmsCommon;

{

    package GCPlugins::GCfilms::GCPluginAllocine;

    use base qw(GCPlugins::GCfilms::GCfilmsPluginsBase);

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
            if ($self->{insideResults} eq 1)
            {
                if (   ($tagname eq "a")
                    && ($attr->{href} =~ /^\/film\/fichefilm_gen_cfilm=/)
                    && ($self->{isMovie} eq 0))
                {
                    my $url = $attr->{href};
                    $self->{isMovie} = 1;
                    $self->{isInfo}  = 0;
                    $self->{itemIdx}++;
                    $self->{itemsList}[ $self->{itemIdx} ]->{url} = $url;
                }
                elsif (($tagname eq "td") && ($self->{isMovie} eq 1))
                {
                    $self->{isMovie} = 2;
                }
                elsif (($tagname eq "a") && ($self->{isMovie} eq 2))
                {
                    $self->{isMovie} = 3;
                }
                elsif (($tagname eq "br") && ($self->{isMovie} eq 3))
                {
                    $self->{itemsList}[ $self->{itemIdx} ]->{title} =~ s/^\s*//;
                    $self->{itemsList}[ $self->{itemIdx} ]->{title} =~ s/\s*$//;
                    $self->{itemsList}[ $self->{itemIdx} ]->{title} =~ s/\s+/ /g;
                    $self->{isMovie} = 4;
                }
                elsif (($tagname eq "span")
                    && ($attr->{class}   eq "fs11")
                    && ($self->{isMovie} eq 4))
                {
                    $self->{isInfo}  = 1;
                    $self->{isMovie} = 0;
                }
                elsif (($tagname eq "br") && ($self->{isInfo} eq 1))
                {
                    $self->{isInfo} = 2;
                }
                elsif (($tagname eq "br") && ($self->{isInfo} eq 2))
                {
                    $self->{isInfo} = 3;
                }
            }
        }
        else
        {
		if (($tagname eq "span") && ($attr->{class} eq "thumbnail-link"))
            	{
                	$self->{insidePicture} = 1;
            	}
		elsif (($tagname eq "img") && ($self->{insidePicture} eq 1))
		{
                	my $src = $attr->{src};
                	if (!$self->{curInfo}->{image})
                	{
			    $self->{curInfo}->{image} = $src;
			}
			$self->{insidePicture} = 0;
                }
            	elsif ($tagname eq "h1")
        	{
        		$self->{insideTitle} = 1;
        	}
		elsif (($tagname eq "span") && ($self->{insideDate} eq 1))
        	{
        	        $self->{insideDate} = 2;
        	}
		elsif (($tagname eq "span") && ($attr->{itemprop} eq "director"))
            	{
		    $self->{insideDirector} = 1;
            	}
		elsif (($tagname eq "span") && ($attr->{itemprop} eq "duration"))
            	{
		    $self->{insideTime} = 1;
            	}
		elsif (($tagname eq "span") && ($self->{insideDirector} eq 1))
            	{
		    $self->{insideDirector} = 2;
            	}
		elsif (($tagname eq "div") && ($attr->{itemprop} eq "actor") && !$self->{curInfo}->{nextUrl})
		{
		    # recuperation des acteurs uniquement dans la page du casting : nextUrl = 0
		    $self->{insideActor} = 1;
		}
		elsif (($tagname eq "span") && ($attr->{itemprop} eq "name") && ($self->{insideActor} eq 1))
            	{
		    $self->{insideActor} = 2;
		    # item where the actor name is followed by role : name part 
            	}
		elsif (($tagname eq "span") && ($attr->{class} =~ m/col-xs/) && ($self->{insideActor} eq 1))
            	{
		    $self->{insideActor} = 3;
		    # item where the role is followed by actor name : role part
            	}
		elsif (($tagname eq "span") && ($self->{insideGenre} eq 1))
            	{
                	$self->{insideGenre} = 2;
            	}
		elsif (($tagname eq "span") && ($self->{insideCountry} eq 1))
            	{
                	$self->{insideCountry} = 2;
            	}
		elsif (($tagname eq "span") && ($attr->{class} eq "stareval-note") && ($self->{insidePressRating} eq 1))
            	{
            		$self->{insidePressRating} = 2;
            	}
	    	elsif (($tagname eq "div") && ($attr->{class} eq "breaker"))
	    	{
	    		$self->{insidePressRating} = 0;
	    	}
		elsif (($tagname eq "div") && ($attr->{itemprop} eq "description"))
            	{
                	$self->{insideSynopsis} = 1;
            	}
		elsif (($tagname eq "span") && ($self->{insideOriginal} eq 1))
            	{
                	$self->{insideOriginal} = 2;
            	}    

        }
    }

    sub end
    {
        my ($self, $tagname) = @_;
        $self->{inside}->{$tagname}--;

	if ($tagname eq "li")
        {
        	$self->{insideDirector} = 0;
		$self->{insideGenre} = 0;
        }
	elsif ($tagname eq "div") 
        {
           	$self->{insideCountry} = 0;
		$self->{insideSynopsis} = 0;
		$self->{insideGenre} = 0;
        }
	elsif ($tagname eq "th")
        {
           $self->{insideSynopsis} = 0;
        }
	elsif ($tagname eq "table")
        {
            $self->{insideResults} = 0;
        }
	
    }

    sub text
    {
        my ($self, $origtext) = @_;

        if ($self->{parsingList})
        {
            if (($origtext =~ m/(\d+) r..?sultats? trouv..?s? dans les titres de films/) && ($1 > 0))
            {
                $self->{insideResults} = 1;
            }
            if ($self->{isMovie} eq 3)
            {
                $self->{itemsList}[ $self->{itemIdx} ]->{title} .= $origtext;
            }
            if ($self->{isInfo} eq 1)
            {
                if ($origtext =~ /\s*([0-9]{4})/)
                {
                    $self->{itemsList}[ $self->{itemIdx} ]->{date} = $1;
                }
            }
            elsif ($self->{isInfo} eq 2)
            {
                if ($origtext =~ /^\s*de (.*)/)
                {
                    $self->{itemsList}[ $self->{itemIdx} ]->{director} = $1;
                }
            }
            elsif ($self->{isInfo} eq 3)
            {
                if (   ($origtext =~ m/^\s*avec (.*)/)
                    && (!$self->{itemsList}[ $self->{itemIdx} ]->{actors}))
                {
                    $self->{itemsList}[ $self->{itemIdx} ]->{actors} = $1;
                }
                $self->{isInfo} = 0;
            }
        }
        else
        {
	    my ($self, $origtext) = @_;
	    $origtext =~ s/[\r\n]//g;
	    $origtext =~ s/^\s*//;
	    $origtext =~ s/\s*$//;
	    
	    if ($self->{insideTitle} eq 1)	
	    {
	        # two pass plugin : {title} is set in the first pass
		if (! $self->{curInfo}->{title})
		{
		    # loading second web page for casting
		    my $fileCasting = $self->{curInfo}->{$self->{urlField}};
		    $fileCasting =~ s/_gen_cfilm=/-/;
		    $fileCasting =~ s/.html/\/casting/;
		    $self->{curInfo}->{nextUrl} = $fileCasting;
		}
		
		$self->{curInfo}->{title} = $origtext if (! $self->{curInfo}->{title});
		$self->{insideTitle} = 0;
	    }	
	    elsif (($self->{insideDate} eq 2) && (length($origtext) > 1))
	    {
		$self->{curInfo}->{date} = $self->decodeDate($origtext)
		    if !($origtext =~ /inconnu/);
		$self->{insideDate} = 0;
		$self->{insideTime} = 1;
	    }
	    elsif ($self->{insideTime} eq 1)
	    {
		$origtext =~ s/^\s+//;
		$origtext =~ s/\(//;
		$origtext =~ s/min\)//g;
		my $hours = $origtext;
		$hours =~ s/h.*//;
		my $minutes = $origtext;
		$minutes =~ s/.*h *//;
		$self->{curInfo}->{time} = $hours * 60 + $minutes;
		$self->{insideTime} = 0;
	    }
	    elsif (($origtext =~ /^Date de sortie/)
		   && (!$self->{curInfo}->{date}))
	    {
		$self->{insideDate} = 1;
	    }
	    elsif (($origtext =~ /^Date de reprise/)
		   && (!$self->{curInfo}->{date}))
	    {
		$self->{insideDate} = 1;
	    }
	    elsif ($self->{insideTime} eq 1)
	    {
		$origtext =~ /(\d+)h\s*(\d+)m/;
		my $time = ($1*60) + $2;
		$self->{curInfo}->{time} = $time." m.";
		$self->{insideTime} = 0;
	    }
	    elsif ($self->{insideDirector} eq 2)
	    {
		if ($self->{curInfo}->{director})
		{
		    $self->{curInfo}->{director} .= ", ".$origtext;
		}
		else
		{
		    $self->{curInfo}->{director} .= $origtext;
		}
		$self->{insideDirector} = 0;
	    }
	    elsif ($self->{insideGenre} eq 2)
	    {
		$origtext = "," if $origtext =~ m/^,/;
		$self->{curInfo}->{genre} .= $origtext;
	    }
	    elsif ($origtext =~ /^[\s\n]*Genre/)
	    {
		$self->{insideGenre}   = 1;
	    }
	    elsif ($self->{insideCountry} eq 2)
	    {
		$origtext = "," if $origtext =~ m/^,/;
		$self->{curInfo}->{country} .= $origtext;
	    }
	    elsif ($self->{insideActor} > 1)
	    {
		$origtext =~ s/\s*plus\s*//;
		$origtext =~ s/\s*Rôle\s*:\s*//;

		return if ($origtext eq "," || $origtext eq '' );

		if ($self->{insideActor} eq 2)
		{
		    $self->{actor} = $origtext;
		    $self->{insideActor} = 3 if (!$self->{role});
		} 
		elsif ($self->{insideActor} eq 3)
		{
		    $self->{role} = $origtext;
		    $self->{insideActor} = 2 if (!$self->{actor});
		}
		if ($self->{actor} && $self->{role})
		{
                    push @{$self->{curInfo}->{actors}}, [$self->{actor}];
                    push @{$self->{curInfo}->{actors}->[$self->{actorsCounter}]}, $self->{role};
		    $self->{actorsCounter}++;
		    $self->{actor} = "";
		    $self->{role} = "";
		    $self->{insideActor} = 0;
		}
	    }
	    elsif ($origtext =~ /Nationalité/)
	    {
		$self->{insideCountry} = 1;
	    }
	    elsif ($origtext =~ /^Presse$/)
	    {
		$self->{insidePressRating} = 1;
	    }
	    elsif ($self->{insidePressRating} eq 2)
	    {
		$origtext =~ s/,/./;
		$self->{curInfo}->{ratingpress} .= $origtext * 2;
		$self->{insidePressRating} = 0;
	    }
	    elsif ($origtext =~ m/^Interdit aux moins de (\d+) ans/)
	    {
		$self->{curInfo}->{age} = $1;
	    }
	    elsif ($self->{insideSynopsis} eq 1)
	    {
		$self->{curInfo}->{synopsis} .= $origtext;		    
	    }
	    elsif ($self->{insideOriginal} eq 2)
	    {
		$self->{curInfo}->{original} = $origtext;
		$self->{insideOriginal} = 0;
	    }
	    elsif ($origtext =~ /^R..?alis..? par/)
	    {
		$self->{insideDirector} = 1;
	    }
	    elsif ($origtext =~ m/Titre original/)
	    {
		$self->{insideOriginal} = 1;
	    }
        }
    }

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();

        $self->{hasField} = {
            title    => 1,
            date     => 1,
            director => 1,
            actors   => 1,
        };

        $self->{isInfo}        = 0;
        $self->{isMovie}       = 0;
        $self->{insideResults} = 0;
        $self->{curName}       = undef;
        $self->{curUrl}        = undef;
        $self->{actorsCounter} = 0;

        bless($self, $class);
        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;
        
        return $html;
    }

    sub getSearchUrl
    {
        my ($self, $word) = @_;

        # f=3 ?
        # return "http://www.allocine.fr/recherche/?q=$word&f=3&rub=1";
        return "http://www.allocine.fr/recherche/1/?q=$word";
    }

    sub getSearchCharset
    {
        my $self = shift;

        # Need urls to be double character encoded
        return "utf8";
    }

    sub getItemUrl
    {
        my ($self, $url) = @_;

        return "http://www.allocine.fr" . $url;
    }

    sub getName
    {
        return "Allocine.fr";
    }

    sub getAuthor
    {
        return 'Tian - Kerenoc';
    }

    sub getLang
    {
        return 'FR';
    }
    
    sub getCharset
    {
        # return "UTF-8"; # For 1.5.0 Win32
        return "ISO-8859-1"; # For 1.5.0 Win32 with /lib/gcstar/GCPlugins/ ver.1.5.9svn
    }

    sub decodeDate
    {
	my ($self, $date) = @_;
	
	# date déjà dans le bon format
	return $date if ($date =~ m|/|);

	# date à convertir au format jour/mois/année

	my @dateItems = split(/\s/, $date);
	my @listeMois = ("janvier","f.*vrier","mars","avril","mai","juin",
			 "juillet","ao.*t","septembre","octobre","novembre","décembre");
	my $mois = 0;
	my $nbDates = (scalar @dateItems);
	
	while ($mois < (scalar @listeMois) && !($dateItems[$nbDates-2] =~ m/$listeMois[$mois]/))
	{
	    $mois++;
	}
	$mois++;
	return sprintf("%02d/%02d",$dateItems[0],$mois)."/".$dateItems[$nbDates-1] if ($nbDates > 2);
	return sprintf("01/%02d",$mois)."/".$dateItems[1] if ($nbDates eq 2);
	return "";

    }
}

1;

Attention : pour pouvoir obtenir le casting complet il a fallu traiter la récupération de plusieurs pages web pour un film donné et donc modifier aussi le fichier GCPluginsBase.pm (chargement de plusieurs pages tant que l'attribut $self->{curInfo}->{nextUrl} est positionné). En plus de l'option 1 de debug qui sauve les fichiers web et 2 qui utilise les fichiers sauvés, j'ai ajouté une option 3 qui combine les deux pour agir comme un cache et limiter la sollicitation des serveurs en phase de mise au point.

package GCPlugins::GCPluginsBase;

###################################################
#
#  Copyright 2005-2010 Christian Jodar
#  Copyright 2015-2016 Kérénoc (kerenoc01 on Google mail)
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

{
    package GCPluginParser;
    use base qw(HTML::Parser);
    use LWP::Simple qw($ua);
    use HTTP::Cookies::Netscape;
    use URI::Escape;
    use HTML::Entities;
    use Encode;
    use File::Spec;
    

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();

        $ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.5) Gecko/20041111 Firefox/1.0');
        $ua->default_header('Accept-Encoding' => 'x-gzip');
        $ua->default_header('Accept' => 'text/html');
        $self->{ua} = $ua;
        
        $self->{itemIdx} = -1;
        $self->{itemsList} = ();
        
        bless ($self, $class);
        return $self;
    }

    sub getItemsNumber
    {
        my ($self) = @_;

        return $self->{itemIdx} + 1;
    }

    sub getItems
    {
        my ($self) = @_;
        return @{$self->{itemsList}};
    }

    sub load
    {
        my $self = shift;
        
        $self->checkProxy;
        $self->checkCookieJar;
         
        $self->{itemIdx} = -1;
        $self->{isInfo} = 0;
        $self->{itemsList} = ();

        #my $word = uri_escape_utf8($self->{title});
        my $title2 = encode($self->getSearchCharset, $self->{title});
        my $word = uri_escape($title2);
        $word =~ s/%20/+/g;
        
        my $post;
        my $html;
        
        # For multi-pass plugins, the plugin will have set the url to load for 
        # the next pass as nextUrl. If this doesn't exist, we're either on the 
        # first pass, or only using a one-pass plugin, so call getSearchUrl
        # to find the url to retrieve
        if ($self->{nextUrl})
        {
            $html = $self->loadPage($self->{nextUrl});
        }
        else
        {
            $html = $self->loadPage($self->getSearchUrl($word));    
        }

	return if (length $html eq 0);
        $self->{parsingList} = 1;

        $html = $self->preProcess($html);

        decode_entities($html)
            if $self->decodeEntitiesWanted;
        $self->{inside} = undef;

        $self->parse($html);
        
        my @noConversion = @{$self->getNotConverted};
        foreach my $item (@{$self->{itemsList}})
        {
            foreach (keys %{$item})
            {
                next if $_ eq 'url';
                $item->{$_} = $self->convertCharset($item->{$_})
                    if ! GCUtils::inArrayTest($_, @noConversion);
            }
        }

    }
    
    sub loadPage
    {
        my ($self, $url, $post, $noSave) = @_;
        my $debugPhase = $ENV{GCS_DEBUG_PLUGIN_PHASE};
        my $debugFile;


        $debugFile = File::Spec->tmpdir.'/'.GCUtils::getSafeFileName($url)
	       if ($debugPhase > 0);
        $self->{loadedUrl} = $url if ! $noSave;
        my $response;
        my $result;
        if ($debugPhase < 2 || (!(-f $debugFile)))
        {
            if ($post)
            {
                $response = $ua->post($url, $post);
            }
            else
            {
                $response = $ua->get($url);
            }
            
			#UnclePetros 03/07/2011:
            #code to handle correctly 302 response messages
            my $label1 = $response->code;
            if($response->code == '302'){
            	my $location = $response->header("location");
            	$response = $ua->get($location);
            	$self->{loadedUrl} = $location;
            }
            
            eval {
                $result = $response->decoded_content;
            };
            if ($debugPhase == 1 || $debugPhase == 3)
            {
                open DEBUG_FILE, ">$debugFile";
		binmode(DEBUG_FILE, ":utf8");
                close DEBUG_FILE;
            }
        }
        else
        {
            local $/;
            open DEBUG_FILE, "$debugFile";
            $result = <DEBUG_FILE>;
            utf8::decode($result);
        }
        return $result || ($response && $response->content);
    }
    
    sub capWord
    {
        my ($self, $msg) = @_;
        
        use locale;
        
        (my $newmsg = lc $msg) =~ s/(\s|,|^)(\w)(\w)(\w*?)/$1\U$2\E$3$4/gi;
        return $newmsg;
    }

    sub getSearchFieldsArray
    {
        return [''];
    }

    sub getSearchFields
    {
        my ($self, $model) = @_;
        
        my $result = '';
        $result .= $model->getDisplayedLabel($_).', ' foreach (@{$self->getSearchFieldsArray});
        $result =~ s/, $//;
        return $result;
    }

    sub hasField
    {
        my ($self, $field) = @_;
    
        return $self->{hasField}->{$field};
    }

    sub getExtra
    {
        return '';
    }

    # Character set for web page text
    sub getCharset
    {
        my $self = shift;
    
        return "ISO-8859-1";
    }
    
    # Character set for encoding search term, can sometimes be different
    # to the page encoding, but we default to the same as the page set
    sub getSearchCharset
    {
        my $self = shift;
    
        return getCharset;
    }
    
    # For some plugins, we need extra checks to determine if urls match
    # the language the plugin is written for. This allows us to correctly determine
    # if a drag and dropped url is handled by a particular plugin. If these
    # checks are necessary, return 1, and make sure plugin handles the 
    # the testURL function correctly
    sub needsLanguageTest
    {
        return 0;
    }   
    
    # Used to test if a given url is handled by the plugin. Only required if 
    # needsLanguageTest is true.
    sub testURL
    {
        my ($self, $url) = @_;    
        return 1
    }
    
    # Determines whether plugin should be the default plugins gcstar uses.
    # Plugins with this attribute set will appear first in plugin list,
    # and will be highlighted with a star icon. A returned value of 1 
    # means the plugin is preferred if it's language matches the user's language,
    # a returned value of 2 mean's it's preferred regardless of the language.
    sub isPreferred
    {
        return 0;
    }
    
    sub getPreferred
    {
        return isPreferred;
    }
  	     
    sub getNotConverted
    {
        my $self = shift;
        return [];
    }

    sub decodeEntitiesWanted
    {
        return 1;
    }

    sub getDefaultPictureSuffix
    {
        return '';
    }

    sub convertCharset
    {
        my ($self, $value) = @_;

        my $result = $value;
        if (ref($value) eq 'ARRAY')
        {
	    foreach my $line(@{$value})
	    {
		my $i = 0;
		eval {
		    map {$_ = decode($self->getCharset, $_)} @{$line};
		}
	    }
        }
        else
        {
            eval {
                $result = decode($self->getCharset, $result);
            };
        }
        return $result;
    }
    
    sub getItemInfo
    {
        my $self = shift;

        eval {
            $self->init;
        };
        my $idx = $self->{wantedIdx};
        my $url = $self->getItemUrl($self->{itemsList}[$idx]->{url});
	$self->{curInfo} = {};
        $self->loadUrl($url);

	# multi-pass plugins that requires multiple web page to get all info on a single collection item
	# for example : Allmovie (tabs to get casting), Allocine (idem)
	# the plugin can set {nextUrl} to fetch next web page, the information is cumulative in {curInfo}
	while ($self->{curInfo}->{nextUrl})
	{   
	    my $nextUrl = $self->{curInfo}->{nextUrl};
	    $self->{curInfo}->{nextUrl} = 0;
	    $self->loadUrl($nextUrl);
	}
        return $self->{curInfo};
    }
        
    sub changeUrl
    {
        my ($self, $url) = @_;

        return $url;
    }
    
    sub loadUrl
    {
        my ($self, $url) = @_;
        $self->checkProxy;
        $self->checkCookieJar;
        my $realUrl = $self->changeUrl($url);
        my $html = $self->loadPage($realUrl);
        $self->{parsingList} = 0;
        #$html = $self->convertCharset($html);
        
	# $self->{curInfo} = {} if (!$self->{curInfo}->{title});
	# once the urlField is set don't change it (plugins fetching multiple pages for one item)
        $self->{curInfo}->{$self->{urlField}} = $url if (!$self->{curInfo}->{$self->{urlField}});

        $html = $self->preProcess($html);
        decode_entities($html)
            if $self->decodeEntitiesWanted;

        $self->{inside} = undef;
        $self->parse($html);

        my @noConversion = @{$self->getNotConverted};

        foreach (keys %{$self->{curInfo}})
        {
            next if $_ eq $self->{urlField};
            $self->{curInfo}->{$_} = $self->convertCharset($self->{curInfo}->{$_})
                if ! GCUtils::inArrayTest($_, @noConversion);
            if (ref($self->{curInfo}->{$_}) ne 'ARRAY')
            {
                $self->{curInfo}->{$_} =~ s/\|/,/gm;
                $self->{curInfo}->{$_} =~ s/\r//gm;
                $self->{curInfo}->{$_} =~ s/[ \t]*$//gm;
            }
        }
        $self->{curInfo}->{$self->{urlField}} .= $GCModel::linkNameSeparator.$self->getName;
        return $self->{curInfo};
    }

    sub setProxy
    {
		my ($self, $proxy) = @_;
		
		$self->{proxy} = $proxy;
    }
    
    sub checkProxy
    {
        my $self = shift;
        $ua->proxy(['http'], $self->{proxy});
        #$self->{ua}->proxy(['http'], $self->{proxy});
    }
    
    sub setCookieJar
    {
        my ($self, $cookieJar) = @_;
        $self->{cookieJar} = $cookieJar;  
    }

    sub checkCookieJar
    {
        my $self = shift;
        $ua->cookie_jar(HTTP::Cookies::Netscape->new(
          'file' => "$self->{cookieJar}",
          'autosave' => 1,));
    }

    # Used to set the number of passes the plugin requires
    sub getNumberPasses
    {
        # Most plugins only need to search once, so default to one pass
        return 1;
    }
    
    # Returns undef if it doesn't support search using barcode scanner
    sub getEanField
    {
        return undef;
    }
    
}

1;

J'ai aussi modifié GCfilms/GCAmazonFR.pm.

package GCPlugins::GCfilms::GCAmazonFR;

###################################################
#
#  Copyright 2005-2010 Christian Jodar
#  Copyright 2015-2016 Kérénoc (kerenoc01 on Google mail)
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;

use GCPlugins::GCfilms::GCfilmsAmazonCommon;

{
    package GCPlugins::GCfilms::GCPluginAmazonFR;

    use base qw(GCPlugins::GCfilms::GCfilmsAmazonPluginsBase);

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
    
        $self->{inside}->{$tagname}++;

	    if ($self->{parsingEnded})
        {
            if ($self->{itemIdx} < 0)
            {
                $self->{itemIdx} = 0;
                $self->{itemsList}[0]->{url} = $self->{loadedUrl};
            }
            return;
        }

        if ($self->{parsingList})
        {
            if ($tagname eq 'input')
            {
                $self->{beginParsing} = 1
                    if $attr->{src} =~ /go-button-search/;
            }
            return if ! $self->{beginParsing};
            if ($tagname eq 'div' && $attr->{class} eq "s-item-container")
            {
                $self->{isTitle} = 1;
            }
            elsif ($tagname eq 'publication')
            {
                $self->{isPublication} = 1;
            }
            elsif ($tagname eq 'actors')
            {
                $self->{isActors} = 1;
            }            
            if ($tagname eq 'a' && $self->{isTitle})
            {
                my $urlId;
                if ($urlId = $self->isItemUrl($attr->{href}))
                {
                    $self->{isTitle} = 2 if $self->{isTitle} eq '1';
                    return if $self->{alreadyRetrieved}->{$urlId};
                    $self->{alreadyRetrieved}->{$urlId} = 1;
                    $self->{currentRetrieved} = $urlId;
                    my $url = $attr->{href}; 
                    $self->{itemIdx}++;
                    $self->{itemsList}[$self->{itemIdx}]->{url} = $url;
                }
            }
        }
        else
        {
            if (($tagname eq "span") && ($attr->{id} eq "productTitle"))
            {
                $self->{isTitle} = 1;
            }
            elsif (($tagname eq "img") && (!$self->{curInfo}->{image}))
            {
                $self->{curInfo}->{image} = $self->extractImage($attr);
            }
            elsif (($tagname eq 'div') && ($attr->{class} eq 'content'))
            {
                $self->{insideContent} = 1;
            }
            elsif (($tagname eq 'h3'))
            {
                $self->{insideSynopsis} = 1
                    if (!$self->{curInfo}->{synopsis});
            }
            elsif (($tagname eq "span") && ($self->{insideAge}) && ($attr->{class} =~ /medSprite/))
            {
                $attr->{class} =~ s/\s*$//;
                $self->{curInfo}->{age} = 2 if ($attr->{class} =~ m/G$/);
                $self->{curInfo}->{age} = 5 if ($attr->{class} =~ m/PG$/);
                $self->{curInfo}->{age} = 13 if ($attr->{class} =~ m/PG13$/);
                $self->{curInfo}->{age} = 18 if ($attr->{class} =~ m/R$/);
                $self->{insideAge} = 0;
            }
            elsif ($tagname eq "span")
            {
            	$self->{insideNameAndDate} = 1 if $attr->{id} eq "btAsinTitle";
            }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;
        if ($tagname eq "li")
        {
            $self->{insideActors} = 0;
            $self->{insideDirector} = 0;
        }
    }

    sub text
    {
        my ($self, $origtext) = @_;

        return if length($origtext) < 2;
           
        if ($self->{parsingList})
        {
            return if ! $self->{beginParsing};
            if (($self->{inside}->{title})
             && ($origtext !~ /^Amazon.fr/))
            {
                $self->{parsingEnded} = 1;
            }
            if ($origtext =~ m/Distribution:/)
	    {
		$self->{isActors} = 1;
	    }
	    elsif ($self->{isTitle})
            {
                $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                $self->{isTitle} = 0;
                $self->{isPublication} = 1;
                return;
            }
            elsif ($self->{isPublication})
            {
                $origtext =~ m/([0-9]{4})/;
                $self->{itemsList}[$self->{itemIdx}]->{date} = $1;
                $self->{isPublication} = 0;
                return;
            }
            elsif ($self->{isActors})
            {
                $origtext =~ s/^\s*//;
                $origtext =~ s/\s*$//;
                $self->{itemsList}[$self->{itemIdx}]->{actors} = $origtext
                    if ! $self->{itemsList}[$self->{itemIdx}]->{actors};
                $self->{isActors} = 0;
                return;
            }
        }
        else
        {
            $origtext =~ s/\s{2,}//g;

            if ($self->{isTitle})
            {
		$origtext =~ s/\[.*\]//;
                $self->{curInfo}->{title} = $origtext;
                $self->{isTitle} = 0;
            }
            elsif (($self->{insideActors}) && ($origtext !~ /^,/))
            {
                $origtext =~ s/^\s//;
                $origtext =~ s/\s+,/,/;
                if ($self->{actorsCounter} < $GCPlugins::GCfilms::GCfilmsCommon::MAX_ACTORS)
                {
                    push @{$self->{curInfo}->{actors}}, [$origtext];
                    $self->{actorsCounter}++;
                }
            }
            elsif (($self->{insideDirector}) && ($origtext !~ /^,/))
            {
                $origtext =~ s/^\s//;
                $origtext =~ s/,.$//;
                $self->{curInfo}->{director} .= ", "
                    if $self->{curInfo}->{director};
                $self->{curInfo}->{director} .= $origtext;
            }
            elsif ($self->{insideTime})
            {
                $origtext =~ s/^\s//;
                $origtext =~ s/\n//g;
		$origtext =~ s/minutes//;
                $self->{curInfo}->{time} = $origtext;
                $self->{insideTime} = 0;
            }
            elsif ($self->{insideDate})
            {
                $origtext =~ s/^\s//;
                $origtext =~ s/\n//g;
                $origtext =~ s/\-$//;
                $self->{curInfo}->{date} = $self->decodeDate($origtext);
                $self->{insideDate} = 0;
            }
            elsif (($self->{insideSynopsis} eq 1) && ($origtext eq 'Amazon.fr'))
            {
		$self->{insideSynopsis} = 2;
	    }
            elsif ($self->{insideSynopsis} eq 2)
            {
		$self->{curInfo}->{synopsis} .= $origtext;
		$self->{insideSynopsis} = 0;
		
            }
            elsif ($self->{insideAudio})
            {
                $origtext =~ s/^\s*//;
                $self->{curInfo}->{audio} = $origtext;
                $self->{insideAudio} = 0;
            }
            elsif ($self->{insideSubTitle})
            {
                $origtext =~ s/^\s*//;
                $self->{curInfo}->{subt} = $origtext;
                $self->{insideSubTitle} = 0;
            }
            elsif ($self->{inside}->{b})
            {
                $self->{insideActors} = 1 if $origtext =~ /Acteurs\s*:/;
                $self->{insideDirector} = 1 if $origtext =~ /R.alisateurs?\s*:/;
                $self->{insideDate} = 1 if $origtext =~ /Date de sortie/;
                $self->{insideTime} = 1 if $origtext =~ /Dur.e\s*:/;
                $self->{insideAudio} = 1 if $origtext =~ /Audio\s*:/;
                $self->{insideSubTitle} = 1 if $origtext =~ /Sous-titres\s*:/;
            }        
        }
    } 

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            date => 1,
            director => 0,
            actors => 1,
        };

        $self->{suffix} = 'fr';


        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        $html = $self->SUPER::preProcess($html);
        if ($self->{parsingList})
        {
            $self->{isItem} = 0;
            $html =~ s|~(.*?)<span class="bindingBlock">\(<span class="binding">(.*?)</span>( - .*?[0-9]{4})?\)</span>|<actors>$1</actors><format>$2</format><publication>$3</publication>|gsm;

        }
        else
        {
            $html =~ s/(<i>|<\/i>)//gim;
            $html =~ s/<p>/\n/gim;
            $html =~ s|</p>|\n|gim;
            $html =~ s/(<ul>|<\/ul>)/\n/gim;
            $html =~ s/<li>([^<])/- $1/gim;
            $html =~ s|([^>])</li>|$1\n|gim;
            $html =~ s|<br ?/?>|\n|gi;
            $html =~ s|<a href="/gp/imdb/[^"]*">(.*?)</a>|$1|gm;
            $html =~ s/<a href="\/exec\/obidos\/search-handle-url\/index=dvd-fr&field-(?:actor|director|keywords)=[^\/]*">([^<]*)<\/a>/$1/gm;
        }

        $self->{parsingEnded} = 0;
        $self->{alreadyRetrieved} = {};
        $self->{beginParsing} = 1;

        return $html;
    }
    
    sub getName
    {
        return "Amazon (FR)";
    }

    sub getLang
    {
        return 'FR';
    }

    sub getAuthor
    {
        return 'Tian - Kerenoc';
    }

    sub decodeDate
    {
	my ($self, $date) = @_;
	
	# date déjà dans le bon format
	return $date if ($date =~ m|/|);

	# date à convertir au format jour/mois/année
	my @dateItems = split(/\s/, $date);
	my @listeMois = ("janvier","f.*vrier","mars","avril","mai","juin",
			 "juillet","ao.*t","septembre","octobre","novembre","décembre");
	my $mois = 0;
	my $nbDates = (scalar @dateItems);

	while ($mois < (scalar @listeMois) && !($dateItems[$nbDates-2] =~ m/$listeMois[$mois]/))
	{
	    $mois++;
	}
	$mois++;
	return sprintf("%02d/%02d",$dateItems[0],$mois)."/".$dateItems[$nbDates-1] if ($nbDates > 2);
	# si pas de jour, on prend le premier du mois
	return sprintf("01/%02d",$mois)."/".$dateItems[1] if ($nbDates eq 2);
	return "";
    }
}

1;

Dernière modification par kerenoc (Le 27/01/2016, à 20:12)

Hors ligne

#11 Le 29/01/2016, à 19:36

kerenoc

Re : Suivi des plugins de GCstar

Pour ceux qui veulent récupérer des infos sur des films en anglais, voici le plugin GCfilms/GCAllmovie.pm (attention c'est un plugin en 2 passes qui nécessite donc un GCPluginsBase.pm modifié).

package GCPlugins::GCfilms::GCAllmovie;

###################################################
#
#  Copyright 2005-2010 Christian Jodar
#  Copyright 2015-2016 Kerenoc (kerenoc01 on Google mail)
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;

use GCPlugins::GCfilms::GCfilmsCommon;

{

    package GCPlugins::GCfilms::GCPluginAllmovie;

    use base qw(GCPlugins::GCfilms::GCfilmsPluginsBase);

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;

        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
	    if ($tagname eq "div" && ($attr->{class} eq "title"))
	    {
		$self->{isMovie} = 1;
	    }
	    elsif ($tagname eq "a" && $self->{isMovie} eq 1)
	    {
		$self->{isMovie} = 2;
		$self->{isYear} = 1;
		
                $self->{itemIdx}++;
                $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
	    }
	    elsif ($tagname eq "div" && ($attr->{class} eq "artist"))
	    {
		$self->{isDirector} = 1;
	    }
	    elsif (0 eq 1 && $tagname eq "div" && ($attr->{class} eq "title"))
	    {
		$self->{isYear} = 1;
	    }
	    elsif ($tagname eq "a" && $self->{isDirector} eq 1)
	    {
		$self->{isDirector} = 2;
	    }
	    elsif ($tagname eq "div" && $attr->{ratingValue})
	    {
		$self->{isRatingPress} = 1;
	    }
	    elsif ($tagname eq "div" && $self->{isMovie} eq 1)
	    {
		$self->{isMovie} = 2;
                $self->{itemIdx}++;
                $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
	    }
            elsif ($tagname eq "tr")
            {
                $self->{isFound} = 1;
            }
            elsif ($tagname eq "title")
            {
                $self->{insideHTMLtitle} = 1;
		# trying to be kind on server which sometimes returns 500 HTTP errors 
		sleep 1;
            }
        }
        else
        {
            if (($tagname eq "h2") && ($attr->{class} eq "movie-title"))
	    {
                $self->{insideTitle} = 1;
		# trying to be kind on server which sometimes returns 500 HTTP errors 
		sleep 1;
	    }
	    elsif ($tagname eq "span" && $self->{insideCountry} eq 1)
	    {
		$self->{insideCountry} = 2;
	    }
	    elsif ($tagname eq "span" && $self->{insideRating} eq 1)
	    {
		$self->{insideRating} = 2;
	    }
	    elsif ($tagname eq "span" && $self->{insideTime} eq 1)
	    {
		$self->{insideTime} = 2;
	    }
	    elsif ($tagname eq "span" && $self->{insideYearRuntime} eq 1)
	    {
		$self->{insideYearRuntime} = 2;
	    }
            elsif (($tagname eq "h3") && ($attr->{class} eq "movie-director"))
            {
                $self->{insideDirector} = 1;
            }
            elsif (($tagname eq "a") && $self->{insideDirector} eq 1)
            {
                $self->{insideDirector} = 2;
            }
            elsif (($tagname eq "span") && ($attr->{class} eq "header-movie-genres"))
            {
		$self->{insideGenre} = 1;
            }
            elsif (($tagname eq "a") && $self->{insideGenre} eq 1)
            {
                $self->{insideGenre} = 2;
            }
            elsif (($tagname eq "span") && ($attr->{class} eq "release-year"))
            {
		$self->{insideYear} = 1;
            }
            elsif (($tagname eq "hgroup") && ($attr->{class} eq "details"))
            {
                $self->{insideLeftSidebarTitle} = 1;
            }
            elsif (($tagname eq "div") && ($attr->{class} eq "cast_name artist-name"))
            {
		$self->{insideActors} = 1;
            }
            elsif ($self->{insideActors} eq 1 && $tagname eq "a")
            {
		$self->{insideActors} = 2;
            }
	    elsif ($self->{insideActors} eq 2 && $tagname eq "div" && $attr->{class} eq "cast_role")
	    {
		$self->{insideActors} = 3;
	    }		
            elsif (($tagname eq "div") && ($attr->{itemprop} eq "description"))
            {
		$self->{insideSynopsis} = 1;
            }
            elsif (($tagname eq "a") && ($attr->{href} =~ m/\/cast-crew/ ))
            {
		if ($self->{firstPass} eq 1)
		{
		    # trigger the load of web page with the list of actors and roles
		    $self->{curInfo}->{nextUrl} = "http://www.allmovie.com".$attr->{href};
		    $self->{firstPass} = 0;
		}
            }
            elsif (
                ($tagname eq "div")
                && (   ($attr->{id} eq "left-sidebar-title")
                    || ($attr->{id} eq "left-sidebar-title-small"))
              )
            {
                $self->{insideLeftSidebarTitle} = 1;
            }
            elsif ($tagname eq "a")
            {
                if ($self->{insideDirectorList})
                {
                    $self->{insideDirector} = 1;
                }
                elsif ($self->{nextIsSeries})
                {
                    $self->{insideSeries} = 1;
                    $self->{nextIsSeries} = 0;
                }
            }
            elsif (($tagname eq "img") && ($attr->{itemprop} eq "image"))
            {
		$self->{curInfo}->{image} = ($attr->{src});
            }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;

        if ($tagname eq "div" && $self->{isYear})
        {
	    $self->{isYear} = 0;
        }
	elsif ($tagname eq "div" && $self->{insideSynopsis})
	{
	    $self->{insideSynopsis} = 0;
	}
    }

    sub text
    {
        my ($self, $origtext) = @_;
        return if ((length($origtext) == 0) || ($origtext eq " "));

        $origtext =~ s/&#34;/"/g;
        $origtext =~ s/&#179;/3/g;
        $origtext =~ s/&#[0-9]*;//g;
        $origtext =~ s/\n//g;

        if ($self->{parsingList})
        {
	    if ($self->{isMovie} eq 2)
	    {
                $self->{itemsList}[ $self->{itemIdx} ]->{title} = $origtext;
		$self->{isMovie} = 0;
		
	    }
            elsif ($self->{isYear})
            {
                $origtext =~ s/^\s+\(*//;
                $origtext =~ s/\)*\s+$//g;
		
                $self->{itemsList}[ $self->{itemIdx} ]->{date} = $origtext
                #$self->{isYear} = 0;
            }
            elsif ($self->{isDirector} eq 2)
            {
                $self->{itemsList}[ $self->{itemIdx} ]->{director} = $origtext;
                $self->{isDirector} = 0;
            }
        }
        else
        {
	    if ($self->{insideTitle})
            {
		# plugin with multiple passes : {curInfo}->{title} is set during the first pass
		if (! $self->{curInfo}->{title})
		{
		    $self->{firstPass} = 1;
		}
		
                # Strip leading and tailing spaces
                $origtext =~ s/^\s+//;
                $origtext =~ s/\s+$//g;
                $self->{curInfo}->{title} = $origtext;
                $self->{insideTitle} = 0;
            }
            elsif ($self->{insideDirector} eq 2)
            {
                $origtext =~ s/^\s+//;
                $origtext =~ s/\s+$//g;
                $self->{curInfo}->{director} = $origtext;
                $self->{insideDirector}      = 0;
                $self->{insideDirectorList}  = 0;
            }
            elsif ($self->{insideGenre} eq 2)
            {
		my $genre = $self->capWord($origtext);
		if  (! ($self->{curInfo}->{genre} =~ m/$genre/))
		{
		    $self->{curInfo}->{genre} .= $self->capWord($origtext) . ',';
		}
                $self->{insideGenre} = 0;
            }
            elsif ($self->{insideYear})
            {
                $origtext =~ s/^\(+//;
                $origtext =~ s/\)+$//g;
                $self->{curInfo}->{date} = $origtext;
                $self->{insideYear} = 0;
            }
            elsif ($self->{insideYearRuntime} eq 2)
            {
                $origtext =~ s/\(.*//g;
                $origtext =~ s/\s+$//g;
                $self->{curInfo}->{date} = $origtext;
		$self->{insideYearRuntime} = 0;

	    }
            elsif ($self->{insideActors} eq 2)
            {
                #$self->{curInfo}->{actors} .= $origtext . ', '
                #  if ($self->{actorsCounter} < $GCPlugins::GCfilms::GCfilmsCommon::MAX_ACTORS);
                #$self->{actorsCounter}++;
                #$self->{insideActors} = 0;
		$self->{actor} = $origtext if (! $self->{actor});
            }
            elsif ($self->{insideActors} eq 3)
            {
		$origtext =~ s/^\s*//;
		$origtext =~ s/\s*$//;
		$self->{role} = $origtext;
		push @{$self->{curInfo}->{actors}}, [$self->{actor}];
		push @{$self->{curInfo}->{actors}->[$self->{actorsCounter}]}, $self->{role};
		$self->{actorsCounter}++;
		$self->{actor} = 0;
		$self->{role} = 0;
		$self->{insideActors} = 0;
		
	    }
            elsif ($self->{insideSynopsis})
            {
                $origtext =~ s/^\s+//;
                $self->{curInfo}->{synopsis} .= $origtext." ";
            }
            elsif ($self->{insideCountry} eq 2)
            {
                $self->{curInfo}->{country} = $origtext;
                $self->{insideCountry} = 0;
            }
            elsif ($self->{insideTime} eq 2)
            {
		$origtext =~ s/\s*min.*//;
                $self->{curInfo}->{time} = $origtext;
                $self->{insideTime} = 0;
            }
            elsif ($self->{insideRating} eq 2)
            {
                $self->{curInfo}->{age} = 1
                  if ($origtext eq 'Unrated') || ($origtext eq 'Open');
                $self->{curInfo}->{age} = 2
                  if ($origtext eq 'G') || ($origtext eq 'Approved');
                $self->{curInfo}->{age} = 5
                  if ($origtext eq 'PG') || ($origtext eq 'M') || ($origtext eq 'GP');
                $self->{curInfo}->{age} = 13 if $origtext eq 'PG13';
                $self->{curInfo}->{age} = 17 if $origtext eq 'R';
                $self->{curInfo}->{age} = 18
                  if ($origtext eq 'NC17') || ($origtext eq 'X');
                $self->{insideRating} = 0;
            }
	    elsif ($self->{isRatingPress})
	    {
		$origtext =~ s/\s//g;
		$self->{curinfo}->{ratingPress} = $origtext * 2;
	    }
	    
	    # be careful to keep this test at the end
            elsif ($self->{insideLeftSidebarTitle})
            {
                if ($origtext eq "Genres")
                {
                    $self->{insideGenreList}        = 1;
                }
                elsif ($origtext =~ m/Release Date/)
                {
                    $self->{insideYearRuntime} = 1;
                }
                elsif ($origtext =~ m/Countries/)
                {
                    $self->{insideCountry} = 1;
                }
                elsif ($origtext =~ m/Run Time/)
                {
                    $self->{insideTime} = 1;
                }
                elsif ($origtext =~ m/MPAA Rating/)
                {
                    $self->{insideRating} = 1;
                }
            }
            elsif ($origtext =~ /Is part of the series:$/)
            {
                $self->{nextIsSeries} = 1;
            }

            elsif ($self->{insideOtherTitles})
            {
                $self->{tempOriginal} = $origtext;
                $self->{tempOriginal} =~ s/\s*$//;
                $self->{tempOriginal} =~ s/^\s*//;

                $self->{curInfo}->{original} .= $self->{tempOriginal} . ', ';
                $self->{insideOtherTitles} = 0;

            }
            elsif ($self->{insideSeries})
            {
                $self->{curInfo}->{serie} = $origtext;
                $self->{curInfo}->{serie} =~ s/( \[.*\])//;
                $self->{insideSeries} = 0;
            }
        }
    }

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless($self, $class);

        $self->{hasField} = {
            title    => 1,
            date     => 1,
            director => 1,
            actors   => 0,
        };

        $self->{isInfo}  = 0;
        $self->{isMovie} = 0;
        $self->{curName} = undef;
        $self->{curUrl}  = undef;

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        $html =~ s/"&#34;/'"/g;
        $html =~ s/&#34;"/"'/g;
        $html =~ s|</a></b><br>|</a><br>|;

        return $html;
    }

    sub getSearchUrl
    {
        my ($self, $word) = @_;

        my $wordFiltered = $word;

        # Allmovie doesn't return correct results if searching with a prefix like 'the'
        $wordFiltered =~ s/^(the|a)?[+\s]+[^ a-zA-Z0-9]*\s*//i;
	# return ('http://allmovie.com/search/all', ['q' => $wordFiltered,'submit' => 'SEARCH']);
        return ('http://allmovie.com/search/all/' . $wordFiltered);

    }

    sub getItemUrl
    {
        my ($self, $url) = @_;
        return $url if $url =~ /^http:/;
        return "http://allmovie.com" . $url;
    }

    sub getName
    {
        return "Allmovie";
    }

    sub getAuthor
    {
        return 'Zombiepig - Kerenoc';
    }

    sub getLang
    {
        return 'EN';
    }

}

1;

Nouvelle version de GCPlugins/GCPluginsBase.pm qui traite mieux les retours HTTP et affiche mieux le bouton permettant de consulter la page web d'un film.

package GCPlugins::GCPluginsBase;

###################################################
#
#  Copyright 2005-2010 Christian Jodar
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

{
    package GCPluginParser;
    use base qw(HTML::Parser);
    use LWP::Simple qw($ua);
    use HTTP::Cookies::Netscape;
    use URI::Escape;
    use HTML::Entities;
    use Encode;
    use File::Spec;
    

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();

        $ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.5) Gecko/20041111 Firefox/1.0');
        $ua->default_header('Accept-Encoding' => 'x-gzip');
        $ua->default_header('Accept' => 'text/html');
        $self->{ua} = $ua;
        
        $self->{itemIdx} = -1;
        $self->{itemsList} = ();
        
        bless ($self, $class);
        return $self;
    }

    sub getItemsNumber
    {
        my ($self) = @_;

        return $self->{itemIdx} + 1;
    }

    sub getItems
    {
        my ($self) = @_;
        return @{$self->{itemsList}};
    }

    sub load
    {
        my $self = shift;
        
        $self->checkProxy;
        $self->checkCookieJar;
         
        $self->{itemIdx} = -1;
        $self->{isInfo} = 0;
        $self->{itemsList} = ();

        #my $word = uri_escape_utf8($self->{title});
        my $title2 = encode($self->getSearchCharset, $self->{title});
        my $word = uri_escape($title2);
        $word =~ s/%20/+/g;
        
        my $post;
        my $html;
        
        # For multi-pass plugins, the plugin will have set the url to load for 
        # the next pass as nextUrl. If this doesn't exist, we're either on the 
        # first pass, or only using a one-pass plugin, so call getSearchUrl
        # to find the url to retrieve
        if ($self->{nextUrl})
        {
            $html = $self->loadPage($self->{nextUrl});
        }
        else
        {
            $html = $self->loadPage($self->getSearchUrl($word));    
        }

	return if (length $html eq 0);
        $self->{parsingList} = 1;

        $html = $self->preProcess($html);

        decode_entities($html)
            if $self->decodeEntitiesWanted;
        $self->{inside} = undef;

        $self->parse($html);
        
        my @noConversion = @{$self->getNotConverted};
        foreach my $item (@{$self->{itemsList}})
        {
            foreach (keys %{$item})
            {
                next if $_ eq 'url';
                $item->{$_} = $self->convertCharset($item->{$_})
                    if ! GCUtils::inArrayTest($_, @noConversion);
            }
        }

    }
    
    sub loadPage
    {
        my ($self, $url, $post, $noSave) = @_;
        my $debugPhase = $ENV{GCS_DEBUG_PLUGIN_PHASE};
        my $debugFile;

        $debugFile = File::Spec->tmpdir.'/'.GCUtils::getSafeFileName($url)
	       if ($debugPhase > 0);
        $self->{loadedUrl} = $url if ! $noSave;
        my $response;
        my $result;
        if ($debugPhase < 2 || (!(-f $debugFile)))
        {
            if ($post)
            {
                $response = $ua->post($url, $post);
            }
            else
            {
                $response = $ua->get($url);
            }
            
			#UnclePetros 03/07/2011:
            #code to handle correctly 302 response messages
            my $label1 = $response->code;
            if($response->code == '301' || $response->code == '302'){
            	my $location = $response->header("location");
            	$response = $ua->get($location);
            	$self->{loadedUrl} = $location;
            }
            elsif ($response->code ne '200')
	    {
		return "";
	    }
            eval {
                $result = $response->decoded_content;
            };
            if ($debugPhase == 1 || $debugPhase == 3)
            {
                open DEBUG_FILE, ">$debugFile";
		binmode(DEBUG_FILE, ":utf8");
                print DEBUG_FILE ($result || $response->content);
                close DEBUG_FILE;
            }
        }
        else
        {
            local $/;
            open DEBUG_FILE, "$debugFile";
            $result = <DEBUG_FILE>;
            utf8::decode($result);
        }
        return $result || ($response && $response->content);
    }
    
    sub capWord
    {
        my ($self, $msg) = @_;
        
        use locale;
        
        (my $newmsg = lc $msg) =~ s/(\s|,|^)(\w)(\w)(\w*?)/$1\U$2\E$3$4/gi;
        return $newmsg;
    }

    sub getSearchFieldsArray
    {
        return [''];
    }

    sub getSearchFields
    {
        my ($self, $model) = @_;
        
        my $result = '';
        $result .= $model->getDisplayedLabel($_).', ' foreach (@{$self->getSearchFieldsArray});
        $result =~ s/, $//;
        return $result;
    }

    sub hasField
    {
        my ($self, $field) = @_;
    
        return $self->{hasField}->{$field};
    }

    sub getExtra
    {
        return '';
    }

    # Character set for web page text
    sub getCharset
    {
        my $self = shift;
    
        return "ISO-8859-1";
    }
    
    # Character set for encoding search term, can sometimes be different
    # to the page encoding, but we default to the same as the page set
    sub getSearchCharset
    {
        my $self = shift;
    
        return getCharset;
    }
    
    # For some plugins, we need extra checks to determine if urls match
    # the language the plugin is written for. This allows us to correctly determine
    # if a drag and dropped url is handled by a particular plugin. If these
    # checks are necessary, return 1, and make sure plugin handles the 
    # the testURL function correctly
    sub needsLanguageTest
    {
        return 0;
    }   
    
    # Used to test if a given url is handled by the plugin. Only required if 
    # needsLanguageTest is true.
    sub testURL
    {
        my ($self, $url) = @_;    
        return 1
    }
    
    # Determines whether plugin should be the default plugins gcstar uses.
    # Plugins with this attribute set will appear first in plugin list,
    # and will be highlighted with a star icon. A returned value of 1 
    # means the plugin is preferred if it's language matches the user's language,
    # a returned value of 2 mean's it's preferred regardless of the language.
    sub isPreferred
    {
        return 0;
    }
    
    sub getPreferred
    {
        return isPreferred;
    }
  	     
    sub getNotConverted
    {
        my $self = shift;
        return [];
    }

    sub decodeEntitiesWanted
    {
        return 1;
    }

    sub getDefaultPictureSuffix
    {
        return '';
    }

    sub convertCharset
    {
        my ($self, $value) = @_;

        my $result = $value;
        if (ref($value) eq 'ARRAY')
        {
	    foreach my $line(@{$value})
	    {
		my $i = 0;
		eval {
		    map {$_ = decode($self->getCharset, $_)} @{$line};
		}
	    }
        }
        else
        {
            eval {
                $result = decode($self->getCharset, $result);
            };
        }
        return $result;
    }
    
    sub getItemInfo
    {
        my $self = shift;

        eval {
            $self->init;
        };
        my $idx = $self->{wantedIdx};
        my $url = $self->getItemUrl($self->{itemsList}[$idx]->{url});
	$self->{curInfo} = {};
        $self->loadUrl($url);

	# multi-pass plugins that requires multiple web page to get all info on a single collection item
	# for example : Allmovie (tabs to get casting), Allocine (idem)
	# the plugin can set {nextUrl} to fetch next web page, the information is cumulative in {curInfo}
	while ($self->{curInfo}->{nextUrl})
	{   
	    my $nextUrl = $self->{curInfo}->{nextUrl};
	    $self->{curInfo}->{nextUrl} = 0;
	    $self->loadUrl($nextUrl);
	}
        return $self->{curInfo};
    }
        
    sub changeUrl
    {
        my ($self, $url) = @_;

        return $url;
    }
    
    sub loadUrl
    {
        my ($self, $url) = @_;
        $self->checkProxy;
        $self->checkCookieJar;
        my $realUrl = $self->changeUrl($url);
        my $html = $self->loadPage($realUrl);
        $self->{parsingList} = 0;
        #$html = $self->convertCharset($html);
        
	# $self->{curInfo} = {} if (!$self->{curInfo}->{title});
	# once the urlField is set don't change it (plugins fetching multiple pages for one item)
        $self->{curInfo}->{$self->{urlField}} = $url if (!$self->{curInfo}->{$self->{urlField}});

        $html = $self->preProcess($html);
        decode_entities($html)
            if $self->decodeEntitiesWanted;

        $self->{inside} = undef;
        $self->parse($html);

        my @noConversion = @{$self->getNotConverted};

        foreach (keys %{$self->{curInfo}})
        {
            next if $_ eq $self->{urlField};
            $self->{curInfo}->{$_} = $self->convertCharset($self->{curInfo}->{$_})
                if ! GCUtils::inArrayTest($_, @noConversion);
            if (ref($self->{curInfo}->{$_}) ne 'ARRAY')
            {
                $self->{curInfo}->{$_} =~ s/\|/,/gm;
                $self->{curInfo}->{$_} =~ s/\r//gm;
                $self->{curInfo}->{$_} =~ s/[ \t]*$//gm;
            }
        }
	my $linkName = $GCModel::linkNameSeparator.$self->getName;
        $self->{curInfo}->{$self->{urlField}} .= $linkName
	    if (!($self->{curInfo}->{$self->{urlField}} =~ m/$linkName/));
        return $self->{curInfo};
    }

    sub setProxy
    {
		my ($self, $proxy) = @_;
		
		$self->{proxy} = $proxy;
    }
    
    sub checkProxy
    {
        my $self = shift;
        $ua->proxy(['http'], $self->{proxy});
        #$self->{ua}->proxy(['http'], $self->{proxy});
    }
    
    sub setCookieJar
    {
        my ($self, $cookieJar) = @_;
        $self->{cookieJar} = $cookieJar;  
    }

    sub checkCookieJar
    {
        my $self = shift;
        $ua->cookie_jar(HTTP::Cookies::Netscape->new(
          'file' => "$self->{cookieJar}",
          'autosave' => 1,));
    }

    # Used to set the number of passes the plugin requires
    sub getNumberPasses
    {
        # Most plugins only need to search once, so default to one pass
        return 1;
    }
    
    # Returns undef if it doesn't support search using barcode scanner
    sub getEanField
    {
        return undef;
    }
    
}

1;

Hors ligne

#12 Le 02/02/2016, à 02:50

casimir101

Re : Suivi des plugins de GCstar

Merci pour cette MAJ (reste plus que le plugin jeuxvideo.com et ce serait parfait) tongue
PS:Juste pour info cela serait compliqué de faire un tuto afin de faire les plugins soi-meme (pour ne pas t’embêter à chaque fois qu'un site change de mise en page) wink ?

Dernière modification par casimir101 (Le 02/02/2016, à 02:51)

Hors ligne

#13 Le 02/02/2016, à 15:21

kerenoc

Re : Suivi des plugins de GCstar

Le tuto existe déjà http://wiki.gcstar.org/fr/websites_plugins . De plus Varkolak a aussi publié quelques conseils plus tôt dans ce même fil de discussion.

Hors ligne

#14 Le 03/02/2016, à 05:12

casimir101

Re : Suivi des plugins de GCstar

Thx wink

Hors ligne

#15 Le 03/02/2016, à 15:26

Varkolak

Re : Suivi des plugins de GCstar

Bonjour à tous, et merci à kerenoc pour ses mises à jour.

Concernant les modifications de plugins, j'ai bien peur qu'il n'y ait pas de méthode miracle qui marche à tous les coups; il s'agirait plutôt d'artisanat. De plus, les sites sources sont souvent refondus totalement lors de mises à jour : adapter le plugin en changeant une ou deux données ne suffit pas, il faut le reprendre à 0 ou presque. Ceci étant dit, je vais essayer de décrire l'approche que j'utilise pour les livres :

1-Identifier l'adresse d'envoi des formulaires de recherche + le type de protocole (GET ou POST) en cherchant dans le code source de la page de recherche du site (sous Firefox, on utilise ctrl+u pour voir le code). Sans cette information, il est impossible de faire fonctionner le plugin.

2-Faire une recherche assez générale (pour avoir plusieurs résultats sur la page réponse) et aller dans le code source

3-Rechercher des identifiants caractéristiques avant chaque donnée voulue (<author> avant le nom de l'auteur pour chaque livre et nulle part ailleurs par exemple). A ce stade, on cherche à repérer le titre, les auteurs, l'année et un lien vers la fiche détaillée de chaque ouvrage.

4-Partie programmation : dans le plugin, on va essayer de trouver des méthodes permettant de récupérer les données situées après les identifiants, et de les copier dans les variables associées aux différents ouvrages de la liste. Par exemple, on va placer le texte situé après <author> dans la variable $self->{itemsList}[$self->{itemIdx}]->{authors}.

5-On recommence les points 3 et 4, mais avec une page du site contenant une fiche détaillée d'un ouvrage, car les fiches détaillées ne sont pas codées de la même façon que les résultats multiples. On veut alors obtenir le maximum d'informations (ISBN, nb de pages ...).

6-Pour tester le plugin, il suffit d'ouvrir une base GCstar existante :
  -> si il y a une boîte d'erreur, il faut corriger des erreurs de syntaxe perl (le message est assez explicite)
  -> sinon, il est possible d'utiliser normalement le programme, en vérifiant que les données sensées être récupérées le sont bien à chaque étape.


J'espère que ces explications t'aideront à débuter casimir101...


En petit bonus, une mise à jour pour le site Le-Livre.com (ou .fr). Attention, leur système de classement est un peu archaïque, et fonctionne encore en ISBN-10.

package GCPlugins::GCbooks::GCLeLivre;

###################################################
#
#  Copyright 2005-2006 Tian
#  Copyright 2016 Varkolak
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginLeLivre;

    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use URI::Escape;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {

            if ($tagname eq 'book')
            {
                $self->{itemIdx}++;
                $self->{isTitle} = 1;
            }
            elsif ($self->{isTitle})
            {
                $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
                $self->{itemsList}[$self->{itemIdx}]->{title} = $attr->{title};
                $self->{isTitle} = 0;
	    }
            elsif ($tagname eq 'auth')
	    {
                $self->{isAuthor} = 1;
	    }
            elsif ($tagname eq 'edito')
	    {
                $self->{isPublisher} = 1;
	    }
        }

        else
        {
            if ($tagname eq 'image')
            {
                $self->{isImage} = 1;
            }
            elsif (($tagname eq 'a') && ($self->{isImage}))
            {
		$self->{curInfo}->{cover} = 'http://www.le-livre.fr/' . $attr->{href};
                $self->{isImage} = 0;
            }
            elsif ($tagname eq 'titre')
            {
                $self->{isTitle} = 1;
            }
            elsif ($tagname eq 'isbn')
            {
                $self->{isISBN} = 1;
            }
            elsif ($tagname eq 'commentaires')
            {
                $self->{isComm} = 1;
            }
            elsif ($tagname eq 'auteur')
            {
                $self->{isAuthor} = 1;
            }
            elsif ($tagname eq 'divers')
            {
                $self->{isFormat} = 1;
            }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;
    }

    sub text
    {
        my ($self, $origtext) = @_;

        $origtext =~ s/^\s+//;
        $origtext =~ s/\s+$//g;

        if ($self->{parsingList})
        {
            if (($self->{isAuthor}) && ($origtext ne ''))
            {
                $self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
                $self->{isAuthor} = 0 ;
            }
            elsif (($self->{isPublisher}) && ($origtext ne ''))
            {
                my @array = split(/\./,$origtext);
                $self->{itemsList}[$self->{itemIdx}]->{edition} = $array[0];
                $self->{itemsList}[$self->{itemIdx}]->{publication} = $array[1];
                $self->{itemsList}[$self->{itemIdx}]->{format} = $array[2];
                $self->{isPublisher} = 0 ;
            }
        }

       	else
        {
            if ($self->{isTitle})
            {
                $self->{curInfo}->{title} = $origtext;
                $self->{isTitle} = 0;
            }
            elsif ($self->{isISBN})
            {
                $self->{curInfo}->{isbn} = $origtext;
                $self->{isISBN} = 0;
            }
            elsif (($self->{isComm}) && ($origtext ne ''))
            {
                $self->{curInfo}->{description} = $origtext;
                my @array = split(/[\.*]/,$origtext);
		for my $i (0 .. $#array)
		{
		   if ($array[$i] =~ s/.*[0-9]-//i)
		   {
		   	#$array[$i] =~ s/.*-//i;
			$array[$i] =~ s/^\s+//;
                	$self->{curInfo}->{genre} = $array[$i];
		   }
		}
                $self->{isComm} = 0 ;
            }
            elsif ($self->{isAuthor})
            {
                my @array = split(/-/,$origtext);
		$array[0] =~ s/([\w']+)/\u\L$1/g;
                $self->{curInfo}->{authors} = $array[0];
		for my $i (1 .. $#array)
		{
		   $array[$i] =~ s/([\w']+)/\u\L$1/g;
		   $self->{curInfo}->{authors} .= ", " . $array[$i];
		}
                $self->{isAuthor} = 0 ;
            }
            elsif (($self->{isFormat}) && ($origtext ne ''))
            {
                my @array = split(/[\.]/,$origtext);
		$array[0] =~ s/([\w']+)/\u\L$1/g;
                $self->{curInfo}->{publisher} = $array[0];
		$array[1] =~ s/^\s+//;
                $self->{curInfo}->{publication} = $array[1];
		$array[2] =~ s/^\s+//;
                $self->{curInfo}->{format} = $array[2];
		for my $i (3 .. $#array)
		{
		   if ($array[$i] =~ /pages/i)
		   {
		   	$array[$i] =~ s/ pages.*//i;
			$array[$i] =~ s/^\s+//;
                	$self->{curInfo}->{pages} = $array[$i];
		   }
		}
                $self->{isFormat} = 0 ;
            }
        }
    } 

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 1,
            edition => 1,
            serie => 0,
        };

        $self->{isImage} = 0;
        $self->{isTitle} = 0;
        $self->{isAuthor} = 0;
        $self->{isPublisher} = 0;
        $self->{isISBN} = 0;
        $self->{isFormat} = 0;
        $self->{isTranslator} = 0;
        $self->{isComm} = 0;

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

        if ($self->{parsingList})
        {
            $html =~ s|<td class="illustration" alt="">|<book>|gi;
            $html =~ s|<td  class="auteur">|<auth>|gi;
            $html =~ s|"ref=|"|gi;
            $html =~ s|<td class="caracteristique">|<edito>|gi;
            $html =~ s|<b>||gi;
            $html =~ s|</b>||gi;
        }

        else
        {
            $html =~ s|<div class="watermark">|<image>|i;
	    $html =~ s|<h1 class="FicheTitre" itemprop="name">|<titre>|i;
	    $html =~ s|<span class="FicheDetailISBN" >|<isbn>|i;
	    $html =~ s|<span class="FicheDetailAuteur" >|<auteur>|i;
	    $html =~ s|<h2 class="TitreFicheDesciption"> Description </h2>|<infos>|i;
	    $html =~ s|<h2 class="TitreFicheDesciption"> Informations Supplémentaires </h2>|<commentaires>|i;
	    $html =~ s|<br /> <br />|<divers>|i;


            $html =~ s|\x{92}|'|g;
            $html =~ s|&#146;|'|gi;
            $html =~ s|&#149;|*|gi;
            $html =~ s|&#133;|...|gi;
            $html =~ s|\x{85}|...|gi;
            $html =~ s|\x{8C}|OE|gi;
            $html =~ s|\x{9C}|oe|gi;

        }
        
        return $html;
    }
    
    sub getSearchUrl
    {
        my ($self, $word) = @_;

        return "http://www.le-livre.fr/default.asp?Rech=1&Submit_Rech_Rapide=1&rechercherap=". $word;

    }
    
    sub getItemUrl
    {
        my ($self, $url) = @_;
		
        return $url;
    }

    sub getName
    {
        return "Le-Livre";
    }
    
    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }

    sub getAuthor
    {
        return 'Varkolak';
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub getSearchFieldsArray
    {
        return ['ISBN', 'title', 'author', 'publication'];
    }
}

1;

Hors ligne

#16 Le 03/02/2016, à 16:02

kerenoc

Re : Suivi des plugins de GCstar

casimir101 a écrit :

reste plus que le plugin jeuxvideo.com et ce serait parfait) tongue

En quête de perfection smile je n'ai pu m'empêcher d'aller voir le plugin GCgames/GCJeuxVideoCom.pm. J'ai juste modifié la classe de 2 tags HTML et cela semble un peu mieux marcher (jeux multi-supports, titre, secrets). Je n'ai pas fait de beaucoup de tests car je ne gère pas avec GCstar ce type de collection.

package GCPlugins::GCgames::GCJeuxVideoCom;

###################################################
#
#  Copyright 2005-2015 Tian
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCgames::GCgamesCommon;

{
    package GCPlugins::GCgames::GCPluginJeuxVideoCom;

    use base 'GCPlugins::GCgames::GCgamesPluginsBase';

    sub decryptUrl
    {
        my ($self, $src) = @_;
        my $n = '0A12B34C56D78E9F';
        my $res = 'http://www.jeuxvideo.com';
        my $s = reverse $src;
        my ($c, $l);
        while (length $s)
        {
            $l = index $n, chop $s;
            $c = index $n, chop $s;
            my $car = $l * 16 + $c;
            $res .= chr $car;    
        }
        return $res;
    }

    sub loadMultipleResults
    {
        my ($self, $url) = @_;
        my $page = $self->loadPage($url);
        $page =~ /<div\s+class="game-top-version-dispo">(.*?)<\/div>/s;
        my $tabs = $1;
        $page =~ /<strong>Sortie\s+France\s+:\s+<\/strong>(.*)/i;
        my $released = $1;
        $page =~ /<h1\s+class="highlight">(.*?)<\/h1>/i;
		my $name = $1;
		$name =~ s/&#039;/'/g;
        my @lines = split /\n/, $tabs;
        foreach my $line (@lines)
        {
            if ($line =~ /href="([^"]*)".*?>([0-9a-zA-Z_. ]*)<\/a>/)
            {
                my $url = $1;
                my $platform = $2;
                $self->{itemIdx}++;
                $self->{itemsList}[$self->{itemIdx}]->{url} = 'http://www.jeuxvideo.com/'.$url;
                $self->{itemsList}[$self->{itemIdx}]->{name} = $name;
                $self->{itemsList}[$self->{itemIdx}]->{platform} = $platform;
                $self->{itemsList}[$self->{itemIdx}]->{released} = $released;
            }
        }
    }

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
        $self->{inside}->{$tagname}++;
        if ($self->{parsingList})
        {
            if ($tagname eq 'span') 
            {
                if (($attr->{class} =~ /JvCare\s+([0-9A-F]*)\s+lien-jv/) && ($attr->{title} ne ""))
                {
                    my $url = $self->decryptUrl($1);
                    if (! exists $self->{urls}->{$url})
                    {
                        if ($url =~ /\/$/)
                        {
                            #If it ends with a /, it means it's a multi-platform game, and the link points to a common page
                            $self->loadMultipleResults($url);
							$self->{urls}->{$url} = 1;
                        }
                        else
                        {
                            $self->{itemIdx}++;
                            $self->{itemsList}[$self->{itemIdx}]->{url} = $url;
                            $self->{isGame} = 1;
                            # Note : some game's name contains '-' => not use $attr->{title}
			                $self->{isName} = 1;

							my @array = split(/-/,$attr->{title});
							if (scalar(@array) ge 3 )
	                        {
				                if (!($array[$#array] =~ /date/i))
                				{
									$self->{itemsList}[$self->{itemIdx}]->{released} = $array[$#array];
				                }
    	                    }

                            $self->{urls}->{$url} = 1;
                        }
                    }
                }
                return if !$self->{isGame};
                if ($attr->{class} =~ /recherche-aphabetique-item-machine/)
                {
                    $self->{isPlatform} = 1;
                }
            }
        }
        elsif ($self->{parsingTips})
        {
#            if ($attr->{class} eq 'rubrique-asl collapsed')
            if ($attr->{class} eq 'rubrique-asl')
            {
                $self->{isTip} = 1;
            }
            elsif (($tagname eq 'tpfdebuttpf') && ($self->{isTip} eq 2))
            {
                $self->{isTip} = 3;
            }
            elsif (   (($tagname eq 'p') || ($tagname eq 'h2') || ($tagname eq 'h3')) && (($self->{isTip} eq 3) || ($self->{isTip} eq 4)) )
            {
                $self->{curInfo}->{secrets} .= "\n" if $self->{curInfo}->{secrets};
            }
            elsif (($tagname eq 'tpffintpf') && ($self->{isTip} ne 0))
            {
                $self->{isTip} = 2;
            }
            elsif ($tagname eq 'head')
            {
                $self->{isTip} = 0;
                $self->{urlTips} = '';
            }

        }
        else
        {
            if ($tagname eq 'span')
            {
                if ($attr->{class} =~ 'label-support active')
                {
                    $self->{is} = 'platform';
                }
                elsif ($attr->{itemprop} eq 'description')
                {
                    $self->{is} = 'description';
                }
                elsif ($attr->{itemprop} eq 'genre')
                {
                    $self->{is} = 'genre';
                }
                elsif ($attr->{class} eq 'recto-jaquette actif')
                {
                    $self->{is} = 'boxpic';
                }
                elsif ($attr->{class} eq 'verso-jaquette actif')
                {
                    $self->{is} = 'backpic';
                }
                elsif (($attr->{'data-modal'} eq 'image') && $self->{is})
                {
                    $self->{curInfo}->{$self->{is}} = 'http:'.$attr->{'data-selector'};
                    $self->{is} = '';
                }
            }
            elsif ($tagname eq 'div')
            {
                if ($attr->{class} eq 'game-top-title')
                {
                    $self->{is} = 'name';
                }
                elsif ($attr->{class} eq 'bloc-note-redac')
                {
                    $self->{is} = 'ratingpress';
                }
                elsif ($attr->{class} eq 'bloc-img-fiche')
                {
                    $self->{is} = 'screenshot1';
                }
                elsif ($attr->{class} eq 'bloc-all-support')
                {
                    $self->{curInfo}->{exclusive} = 0;
                }
            }
            elsif ($tagname eq 'img')
            {
                if ($self->{is} =~ /screenshot/)
                {
                    (my $src = 'http:'.$attr->{src}) =~ s/images-sm/images/;
                    $self->{curInfo}->{$self->{is}} = $src;
                    if ($self->{is} eq 'screenshot1')
                    {
                        $self->{is} = 'screenshot2';
                    }
                    else
                    {
                        $self->{is} = '';
                    }
                }
            }
            elsif (($tagname eq 'h2') && ($attr->{class} =~ /titre-bloc/))
            {
                $self->{isTip} = 1;
            }
            elsif (($self->{isTip} eq 2) && ($attr->{href} =~ /wiki/i))
            {
                $self->{urlTips} = "http://www.jeuxvideo.com/" . $attr->{href};
                $self->{isTip} = 0;
            }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;
		
        $self->{inside}->{$tagname}--;
    }

    sub text
    {
        my ($self, $origtext) = @_;

        if ($self->{parsingList})
        {
            return if !$self->{isGame};
            if ($self->{isPlatform})
            {
                if ($self->{itemsList}[$self->{itemIdx}]->{platform} eq "" )
        		{
    	        	# Enleve le " - " présent en début de chaîne
	        	    $origtext =~ s/- //;
                	$self->{itemsList}[$self->{itemIdx}]->{platform} = $origtext;
		        }
                $self->{isPlatform} = 0;
            }
            elsif ($self->{isName})
            {
            	# Enleve les blancs en debut de chaine
        	    $origtext =~ s/^\s+//;
    	        # Enleve les blancs en fin de chaine
	            $origtext =~ s/\s+$//;
                $self->{itemsList}[$self->{itemIdx}]->{name} = $origtext;
                $self->{isName} = 0;
            }
        }
        elsif ($self->{parsingTips})
        {
            # Enleve les blancs en debut de chaine
            $origtext =~ s/^\s+//;
            # Enleve les blancs en fin de chaine
#            $origtext =~ s/\s+$//;
# There are problems with some texts if ended blanks are removed
            if ($self->{isTip} eq 1)
            {
	            $origtext =~ s|playstation 3|ps3|gi;
	            $origtext =~ s|playstation 4|ps4|gi;
	            $origtext =~ s|playstation|ps1|gi;
	            $origtext =~ s|wii u|wiiu|gi;
	            $origtext =~ s|playstation portable|PSP|gi;
	            $origtext =~ s|gameboy advance|GBA|gi;
	            $origtext =~ s|Super Nintendo|SNES|gi;
	            $origtext =~ s|n-gage|NGAGE|gi;
	            $origtext =~ s|Nintendo 64|N64|gi;
	            $origtext =~ s|Master system|MS|gi;
	            $origtext =~ s|Game Gear|G.GEAR|gi;
            	if ($origtext =~ /$self->{curInfo}->{platform}/i)
	            {
                	$self->{isTip} = 2;
    	        }
	            else
	            {
                	$self->{isTip} = 0;
    	        }
            }
            elsif ($self->{isTip} eq 4)
            {
                $self->{curInfo}->{secrets} .= $origtext;
            }
            elsif ($self->{isTip} eq 3)
            {
                chomp($origtext);
                if ( ($self->{curInfo}->{secrets}) && ($origtext ne "") )
                {
                   $self->{curInfo}->{secrets} .= "\n\n"
                }
                $self->{curInfo}->{secrets} .= $origtext;
                $self->{isTip} = 4;
            }
        }
        else
        {
            $origtext =~ s/^\s*//;
            if ($self->{is} && $origtext)
            {
                if ($self->{is} eq 'genre')
                {
                     $self->{curInfo}->{$self->{is}} .= "$origtext,";
                }
                else
                {
                    $self->{curInfo}->{$self->{is}} = $origtext;
                }
                $self->{curInfo}->{$self->{is}} =~ s/Non/1/i if $self->{is} eq 'players';
                $self->{curInfo}->{$self->{is}} = int($self->{curInfo}->{$self->{is}} / 2) if $self->{is} eq 'ratingpress';
                $self->{is} = '';
            }
            else
            {
                if ($self->{isTip} eq 1)
                {
            		if (($origtext =~ /wiki/i) || ($origtext =~ /etajv/i))
	                {
		                $self->{isTip} = 2;
	                }
	                else
	                {
		                $self->{isTip} = 0;
	                }
                }
                elsif ($origtext eq 'Editeur(s) / Développeur(s) : ')
                {
                    $self->{is} = 'editor';
                }
                elsif ($origtext =~ /^\s*\|\s*$/)
                {
                    $self->{is} = 'developer' if ! $self->{curInfo}->{developer};
                }
                elsif ($origtext eq 'Sortie France : ')
                {
                    $self->{is} = 'released';
                }
                elsif ($origtext eq 'Nombre maximum de joueurs : ')
                {
                    $self->{is} = 'players';
                }
            }
        }
    } 

    sub getTipsUrl
    {
        my $self = shift;
        return $self->{urlTips};
    }

    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            name => 1,
            platform => 1,
            released => 1
        };

        $self->{isTip} = 0;
        $self->{urlTips} = "";

        return $self;
    }

    sub preProcess
    {
        my ($self, $html) = @_;
        if ($self->{parsingList})
        {
            $self->{isGame} = 0;
            $self->{isName} = 0;
            $self->{isReleased} = 0;
            $self->{isPlatform} = 0;
            $self->{urls} = {};
            $html =~ s/<\/?b>//ge;
        }
        elsif ($self->{parsingTips})
        {
            $html =~ s|<a data-jvcode="HTMLBLOCK" href="(.+)">|$self->RecupTips("http://www.jeuxvideo.com/" . $1)|ge;
            $html =~ s|Chargement du lecteur vid(.)o...|<p>"Une video est disponible"</p>|gi;
            $html =~ s|<img src="//www.jeuxvideo.com/img/keys/(.+?).gif" alt="(.+?)" />|$2|gi;
        }
        else
        {
            $self->{is} = '';
            $self->{curInfo}->{exclusive} = 1;
        }
        return $html;
    }
    
    sub RecupTips
    {
        my ($self, $url) = @_;
        
        my $html = $self->loadPage($url);

        my $found = index($html,"<h2 class=\"titre-bloc\">");
        if ( $found >= 0 )
        {
            $html = substr($html, $found +length('<h2 class="titre-bloc">'),length($html)- $found -length('<h2 class="titre-bloc">'));
	        $found = index($html,"<div class=\"bloc-lien-revision\">");
	        if ( $found >= 0 )
	        {
	            $html = substr($html, 0, $found);
	        }
        }

        return "<tpfdebuttpf>" . $html . "<tpffintpf>";
    }
    
    sub getSearchUrl
    {
        my ($self, $word) = @_;
        $word =~ s/\+/ /g;
        return 'http://www.jeuxvideo.com/recherche.php?q='.$word.'&m=9';
    }
    
    sub getItemUrl
    {
        my ($self, $url) = @_;

        return $url if $url;
        return 'http://www.jeuxvideo.com/';
    }

    sub getName
    {
        return 'jeuxvideo.com';
    }
    
    sub getAuthor
    {
        return 'Tian & TPF';
    }
    
    sub getLang
    {
        return 'FR';
    }

    sub isPreferred
    {
        return 1;
    }
}

1;
 

Dernière modification par kerenoc (Le 03/02/2016, à 16:12)

Hors ligne

#17 Le 03/02/2016, à 16:31

casimir101

Re : Suivi des plugins de GCstar

La c'est parfait big_smile merci kerenoc et merci Varkolak pour les explications tongue

Hors ligne

#18 Le 10/02/2016, à 11:53

kerenoc

Re : Suivi des plugins de GCstar

Bonne nouvelle pour casimir101, le contributeur TPF est de nouveau actif et semble en train de mettre à jour le plugin JeuxVideo.com dans les sources de GCstar. En route vers une version plus que parfaite!

Dernière modification par kerenoc (Le 10/02/2016, à 11:53)

Hors ligne

#19 Le 15/02/2016, à 06:39

casimir101

Re : Suivi des plugins de GCstar

Merci pour l'info big_smile

Hors ligne

#20 Le 18/03/2016, à 16:51

kerenoc

Re : Suivi des plugins de GCstar

Excellente nouvelle : Tian a repris les développements sur GCStar, une nouvelle version 1.7.1 est sortie et l'inscription sur le forum dédié est à nouveau ouverte!

Hors ligne

#21 Le 19/06/2016, à 11:23

baroubarou

Re : Suivi des plugins de GCstar

Bonjour

Y a t il la possibilité d éditer une liste de la bibliothèque?
Je n ai rien trouvé dans les paramètres le permettant
Je suis en 1.7.1

merci


UBUNTU: 16.04 LTS
LiveBox Play Orange (Sosh)
Décodeur TV Orange (Sosh)

Hors ligne

#22 Le 20/06/2016, à 16:11

Hilarion

Re : Suivi des plugins de GCstar

Bonjour à tous,
J'avais renoncé à utiliser GCStar en raison des problèmes liés aux plugins (notamment d'Amazon).
Étant tombé par hasard sur ce fil et l'excellent travail de Varkolak et Kerenoc - un grand merci à eux deux -, j'ai pu réactiver mes fichiers et les réactualiser (près de 7000 fiches de livres).
J'ai pu aussi, en les adaptant comme indiqué, bricoler des plugins pour "GCAmazonUK.pm", "GCAmazonDE.pm" et "GCAmazonES.pm".
Si le plugin de la FNAC fonctionne à merveille, j'ai - en revanche - quelques problèmes avec celui d'Amazon :
Tout irait pour le mieux si ce plugin permettait également de télécharger l'image des livres. Je suppose qu'il fonctionnait correctement le 27 oct. 2015 (date du message de Varkolak) mais ce n'est plus le cas aujourd'hui. Amazon a probablement encore changé ses scripts, car je vois bien dans le plugin de Varkolak les lignes concernant la récupération de l'image :

	    # Capture of image
	    if (($tagname eq 'img') && ($attr->{class} eq 'a-dynamic-image image-stretch-vertical frontImage'))
	    {
                $attr->{src} =~ /http.+\.jpg/ ;
		$self->{curInfo}->{cover} = $attr->{src};
                $self->{isImage} = 0 ;
                return ;
	    }

Cependant, celles-ci ne semblent plus fonctionner bien que le tag "img" et la classe "a-dynamic-image..." soient toujours présents dans les pages d'Amazon.
Faut-il à nouveau adapter le plugin ou bien ai-je raté quelque chose ?
Merci d'avance

Hors ligne

#23 Le 26/06/2016, à 20:21

Varkolak

Re : Suivi des plugins de GCstar

Bonsoir à tous,

concernant la question de baroubarou sur l'édition d'une liste, je suppose qu'il s'agit de générer une liste des ouvrages enregistrés dans une base de donnée; dans ce cas il faut passer par l'exportation dans l'onglet ''fichier''. Dans mon cas (1.7.1), il semble que l'export en .html soit buggé (il ne permet pas de choisir les champs à exporter), mais les autres formats fonctionnent...

Pour le problème de Lefunes... pardon... , de Hilarion, je n'ai pas de réponse définitive : le site d'Amazon a en effet été modifié (il y a maintenant plusieurs tailles de vignettes), et j'ai pu mettre à jour le plugin pour récupérer correctement les adresses des images, mais elles ne sont pas prises en compte par le logiciel (il ne les télécharge pas). Le plugin corrigé fait donc son boulot correctement. Je soupçonne deux possibilités pour l'origine de ce problème, probablement lié à la fonction qui définit le téléchargement :

- soit cette fonction ne prend pas en compte les nouvelles adresses des images d'Amazon qui sont maintenant en https au lieu de http.
- soit cette fonction est perturbée par le contenu de ces nouvelles adresses (points, virgules, tirets...).

Dans les deux cas, il va probablement falloir aller modifier les fonctions plus en amont des plugins, avec le risque d'en rendre certains incompatibles par accident. Je vais jeter un œil, mais sans garantie...

J'aurais également une question pour Hilarion, concernant sa version de GCStar : est-ce la dernière en date (1.7.1) ? Je m'interroge, car le plugin FNAC ne fonctionne plus chez moi depuis la mise à jour, ce qui pourrait donner des pistes...

Hors ligne

#24 Le 27/06/2016, à 01:16

Hilarion

Re : Suivi des plugins de GCstar

Bonsoir Varkolak,

Varkolak a écrit :

Pour le problème de Lefunes... pardon... , de Hilarion, je n'ai pas de réponse définitive : le site d'Amazon a en effet été modifié (il y a maintenant plusieurs tailles de vignettes), et j'ai pu mettre à jour le plugin pour récupérer correctement les adresses des images, mais elles ne sont pas prises en compte par le logiciel (il ne les télécharge pas). Le plugin corrigé fait donc son boulot correctement. Je soupçonne deux possibilités pour l'origine de ce problème, probablement lié à la fonction qui définit le téléchargement :
- soit cette fonction ne prend pas en compte les nouvelles adresses des images d'Amazon qui sont maintenant en https au lieu de http.
- soit cette fonction est perturbée par le contenu de ces nouvelles adresses (points, virgules, tirets...).
Dans les deux cas, il va probablement falloir aller modifier les fonctions plus en amont des plugins, avec le risque d'en rendre certains incompatibles par accident. Je vais jeter un œil, mais sans garantie...

Si la fonction de téléchargement ne prend pas en compte une URL en https, peut-être serait-il possible d'utiliser une alternative en http...  Je m'explique :

Actuellement, Amazon utilise pour le tag "img" une adresse de type : « src="https://images-na.ssl-images-amazon.com/images/XXXXXXX.jpg" »

Or il existe pour la même image une adresse alternative en http (découverte par hasard en cherchant autre chose) :-) : «  "http://z2-ec2.images-amazon.com/images/XXXXXXX.jpg" »

Exemple :

[ http://z2-ec2.images-amazon.com/images/ … 3,200_.jpg ] mène à la même image que [ https://images-na.ssl-images-amazon.com … 3,200_.jpg ]

Est-il possible de monter cette adresse en http dans le plugin à la place et d'essayer ? Si ça ne fonctionne pas, il faudra alors envisager la deuxième possibilité.

Varkolak a écrit :

J'aurais également une question pour Hilarion, concernant sa version de GCStar : est-ce la dernière en date (1.7.1) ? Je m'interroge, car le plugin FNAC ne fonctionne plus chez moi depuis la mise à jour, ce qui pourrait donner des pistes...

J'utilise la dernière version (1.7.1) sous Linux avec le plugin CGFnac.pm livré par Kerenoc dans son message #9 de ce fil. Je viens encore d'essayer il y a dix minutes et tout marche bien.

Hilarion (voisin pénible)

Hors ligne

#25 Le 27/06/2016, à 19:39

Varkolak

Re : Suivi des plugins de GCstar

Bonjour,

et merci Hilarion pour la remarque concernant les images sous http. Du coup, le problème est résolu, il s'agissait bien d'une impossibilité de téléchargement aux adresses de type https.
Voici donc la nouvelle version du plugin Amazon (qui devrait toujours fonctionner de la même manière avec les plugins de traduction), à copier sous le nom GCAmazon.pm dans /usr/share/gcstar/lib/GCPlugins/GCbooks/ :

package GCPlugins::GCbooks::GCAmazon;

###################################################
#
#  Copyright 2005-2009 Tian
#
#  This file is part of GCstar.
#
#  GCstar is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  GCstar is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with GCstar; if not, write to the Free Software
#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
#
###################################################

use strict;
use utf8;

use GCPlugins::GCbooks::GCbooksCommon;

{
    package GCPlugins::GCbooks::GCPluginAmazon;
    
    use base qw(GCPlugins::GCbooks::GCbooksPluginsBase);
    use XML::Simple;
    use LWP::Simple qw($ua);
    use Encode;
    use HTML::Entities;
    use GCUtils;

    sub start
    {
        my ($self, $tagname, $attr, $attrseq, $origtext) = @_;
	
        $self->{inside}->{$tagname}++;

        if ($self->{parsingList})
        {
	    # Identify beginning of comments
	    if (($self->{isComment} == 0) && ($tagname eq 'varkcomment'))
	    {
	         $self->{isComment} = 1 ;
	    }

	    # Capture URL of book
	    if (($self->{isComment} == 0) && ($self->{isUrl} == 1) && ($tagname eq 'a'))
	    {
                 $self->{itemsList}[$self->{itemIdx}]->{url} = $attr->{href};
	         $self->{isUrl} = 0 ;
		 $self->{isTitle} = 1 ;
		 return;
	    }	

	    # Identify beginning of new book (next text is title)
	    if (($self->{isComment} == 0) && ($tagname eq 'li') && ($attr->{id} =~ /result_[0-9]+/ ))
	    {
		 # Create new entry
                 $self->{itemIdx}++;
	         $self->{isUrl} = 1 ;
		 $self->{isAuthor} = 0 ;
		 return ;
	    }

	    # Identify end of authors list
	    if (($self->{isComment} == 0) && ($tagname eq 'varkendauthors') && ($self->{isAuthor} != 0))
	    {
		 $self->{isAuthor} = 0 ;
		 return ;
	    }
        }
        else
        {
	    # Detection of book themes
	    if (($self->{isTheme} == 0) && ($tagname eq 'varkgenre'))
	    {
                $self->{isTheme} = 1 ;
                return ;
	    }		

	    # Detection of book page count
	    if (($self->{isPage} == 0) && ($tagname eq 'varkdata'))
	    {
                $self->{isPage} = 1 ;
                return ;
	    }	

 	    # Detection of authors
	    if ($tagname eq 'varkauthor')
	    {
                $self->{isAuthor} = 1;
                return ;
	    }

	    # Capture of image
	    if ($tagname eq 'varkimage')
	    {
                $attr->{adress} =~ /http.*?\.jpg/;
		$attr->{adress} =~ s|https://images-na.ssl-images-amazon.com/images/I/|http://z2-ec2.images-amazon.com/images/I/|;
		$self->{curInfo}->{cover} = $attr->{adress};
                return ;
	    }

	    # Detection of book description
	    if (($self->{isDescription} == 0) && ($tagname eq 'varkdescription'))
	    {
                $self->{isDescription} = 1 ;
                return ;
	    }
	    if (($self->{isDescription} == 1) && ($tagname eq 'div'))
	    {
                $self->{isDescription} = 2 ;
                return ;
	    }

	    # Detection title
	    if (($self->{isTitle} == 0) && ($tagname eq 'varktitle'))
	    {
                $self->{isTitle} = 2 ;
                return ;
	    }
        }
    }

    sub end
    {
        my ($self, $tagname) = @_;

        $self->{inside}->{$tagname}--;

        if ($self->{parsingList})
        {
	    # Identify end of comments
	    if (($self->{isComment} == 1) && ($tagname eq 'varkcomment'))
	    {
	         $self->{isComment} = 0 ;
	    } 
        }

        else
        {
	    # Finishing themes analysis
	    if (($self->{isTheme} != 0) && ($tagname eq 'li'))
	    {
                $self->{isTheme} = 0 ;
                return ;
	    }

	    # Finishing description analysis
	    if (($self->{isDescription} != 0) && ($tagname eq 'div'))
	    {
                $self->{isDescription} = 0 ;
                return ;
	    }		    
        }
    }

    sub text
    {
        my ($self, $origtext) = @_;


        if ($self->{parsingList})
        {
	    # Remove blanks before and after string
            $origtext =~ s/^\s+//;
            $origtext =~ s/\s+$//g;

	    # Capture of book title
	    if (($self->{isComment} == 0) && ($self->{isTitle} == 1) && ($origtext ne ''))
	    {
                $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext;
                $self->{isTitle} = 0 ;
                $self->{isPublication} = 1 ;
                return ;
	    }	

	    # Capture of book publication date
	    if (($self->{isComment} == 0) && ($self->{isPublication} == 1) && ($origtext ne ''))
	    {
                $self->{itemsList}[$self->{itemIdx}]->{publication} = $origtext;
                $self->{isAuthor} = 1 ;
                $self->{isPublication} = 0 ;
                return ;
	    }	
   
	    # Avoid a text area before the first author
	    if (($self->{isComment} == 0) && ($self->{isAuthor} == 1) && ($origtext ne ''))
	    {
                $self->{isAuthor} = 2 ;
                return ;
	    }

	    # Capture of authors
	    if (($self->{isComment} == 0) && ($self->{isAuthor} == 2) && ($origtext ne ''))
	    {
                if ($self->{itemsList}[$self->{itemIdx}]->{authors} eq '')
                {
                    $self->{itemsList}[$self->{itemIdx}]->{authors} = $origtext;
		}
		else
		{
		   $self->{itemsList}[$self->{itemIdx}]->{authors} .= " " . $origtext;
		}
		return;
	    }	

        }
        else
        {
	    # Remove blanks before and after string
            $origtext =~ s/^\s+//;
            $origtext =~ s/\s+$//g;

	    # Capture of title
	    if (($self->{isTitle} == 2) && ($origtext ne ''))
	    {
                $self->{isTitle} = 0 ;
                $self->{curInfo}->{title} = $origtext;
                return ;
	    }

	    # Capture of page number
	    if (($self->{isPage} == 1) && ($origtext =~ /^[0-9]+/))
	    {
                $self->{curInfo}->{pages} = $origtext;
                $self->{isPage} = 0 ;
                return ;
	    }

	    # Capture of editor and publication date
	    if (($self->{isEditor} == 0) && ($origtext eq $self->getTranslation(1)))
	    {

                $self->{isEditor} = 1 ;
                return ;
	    }
	    if (($self->{isEditor} == 1) && ($origtext ne ''))
	    {
		my @array = split('\(',$origtext);
		$array[1] =~ s/\)//g;
		$array[0] =~ s/^\s+//;
		$array[0] =~ s/\s+$//g;
		$array[1] =~ s/^\s+//;
		$array[1] =~ s/\s+$//g;
                $self->{curInfo}->{publisher} = $array[0];
		$self->{curInfo}->{publication} = $array[1];
                $self->{isEditor} = 0 ;
                return ;
	    }

	    # Capture of language
	    if (($self->{isLanguage} == 0) && ($origtext eq $self->getTranslation(2)))
	    {
                $self->{isLanguage} = 1 ;
                return ;
	    }
	    if (($self->{isLanguage} == 1) && ($origtext ne ''))
	    {
                $self->{curInfo}->{language} = $origtext;
                $self->{isLanguage} = 0 ;
                return ;
	    }

	    # Capture of ISBN
	    if (($self->{isISBN} == 0) && ($origtext eq $self->getTranslation(3)))
	    {
                $self->{isISBN} =1 ;
                return ;
	    }
	    if (($self->{isISBN} == 1) && ($origtext ne ''))
	    {
		$origtext =~ s|-||gi;
                $self->{curInfo}->{isbn} = $origtext;
		$self->{isISBN} = 0 ;
                return ;
	    }

	    # Capture of book dimensions
	    if (($self->{isSize} == 0) && ($origtext eq $self->getTranslation(4)))
	    {
                $self->{isSize} = 1 ;
                return ;
	    }
	    if (($self->{isSize} == 1) && ($origtext ne ''))
	    {
                $self->{curInfo}->{format} = $origtext;
                $self->{isSize} = 0 ;
                return ;
	    }


	    # Detection of themes
	    if (($origtext eq '>') && ($self->{isTheme} == 1))
	    {
                $self->{isTheme} = 2 ;
                return ;
	    }

	    # Capture of themes
	    if (($self->{isTheme} == 2) && ($origtext ne ''))
            {
                if ($self->{curInfo}->{genre} eq '')
                {
                   $self->{curInfo}->{genre} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{genre} .= ", " . $origtext;
		}
		$self->{isTheme} = 1 ;
		return;
            }

	    # Capture of authors
	    if (($self->{isAuthor} == 1) && ($origtext ne '') && ($origtext =~ /^(?:(?!Ajax).)*$/))
            {
                if ($self->{curInfo}->{authors} eq '')
                {
                   $self->{curInfo}->{authors} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{authors} .= ", " . $origtext;
		}
		$self->{isAuthor} = 0 ;
		return;
            }

	    # Capture of description
	    if (($self->{isDescription} == 2) && ($origtext ne ''))
	    {
                if ($self->{curInfo}->{description} eq '')
                {
                   $self->{curInfo}->{description} = $origtext;
                }
		else
		{
		   $self->{curInfo}->{description} .= $origtext;
		}
                return ;
	    }
        }
    }


 
    sub new
    {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = $class->SUPER::new();
        bless ($self, $class);

        $self->{hasField} = {
            title => 1,
            authors => 1,
            publication => 1,
            format => 0,
            edition => 0,
        };

        $self->{isComment} = 0;
	$self->{isUrl} = 0;
	$self->{isTitle} = 0;
	$self->{isPublication} = 0;
	$self->{isAuthor} = 0;
        $self->{isPage} = 0;
        $self->{isEditor} = 0;
        $self->{isISBN} = 0;
        $self->{isDescription} = 0;
	$self->{isLanguage} = 0 ;
	$self->{isTheme} = 0 ;

        return $self;
    }
    
    sub getItemUrl
    {
	my ($self, $url) = @_;	
        return $url;
    }

    sub preProcess
    {
        my ($self, $html) = @_;

	if ($self->{parsingList})
        {
	    # Analysis of results must be disabled during comments
            $html =~ s|<!--|<varkcomment>|gi;
            $html =~ s|-->|</varkcomment>|gi;
	    # Remove other commercial offers
	    $html =~ s|END SPONSORED LINKS SCRIPT.*||s;
	    # End of authors listing detection 
	    $html =~ s|<h3 class="a-size-small a-color-null s-inline  a-text-normal">|<varkendauthors>|gi;
	    $html =~ s|<div class="a-row a-spacing-mini">|<varkendauthors>|gi;
        }
        else
        {
	    # Beginning of book data : pages, editor, publication date, ISBN, dimensions
	    $html =~ s|<td class="bucket">|<varkdata>|gi;
	    # Beginning and end of book description
	    $html =~ s|<script id="bookDesc_override_CSS" type="text/undefined">|<varkdescription>|;
	    #$html =~ s|<div id="bookDesc_outer_postBodyPS" style="overflow: hidden; z-index: 1; height: 0px; display: block;">|</varkdescription>|;
	    # Beginning of book title
	    $html =~ s|<div id="booksTitle" class="feature" data-feature-name="booksTitle">|<varktitle>|gi;
	    # Beginning of book themes
	    $html =~ s|<ul class="zg_hrsr">|<varkgenre>|gi;
	    # Beginning of authors
	    $html =~ s|<span class="author notFaded" data-width="">|<varkauthor>|gi;
            # Beginning of image 
            $html =~ s|class="a-dynamic-image image-stretch-vertical frontImage" id="imgBlkFront" data-a-dynamic-image="{&quot;|><varkimage adress="|;

	    $html =~ s|<BR>||gi;
	    $html =~ s|<I>||gi;
	    $html =~ s|</I>||gi;
            $html =~ s|\x{8C}|OE|gi;
            $html =~ s|\x{9C}|oe|gi;
            $html =~ s|&#146;|'|gi;

	}
        return $html;
    }

    sub getSearchUrl
    {
		my ($self, $word) = @_;
		return 'http://' . $self->baseWWWamazonUrl . '/s/ref=nb_sb_noss_1?url=search-alias=stripbooks&field-keywords=' . "$word";
    }
    
    sub baseWWWamazonUrl
    {   
		return "www.amazon.com";    
    }    

    sub getName
    {
        return "Amazon (US)";
    }
    
    sub getAuthor
    {
        return 'Varkolak';
    }
    
    sub getLang
    {
        return 'EN';
    }

    sub getCharset
    {
        my $self = shift;
        return "ISO-8859-15";
    }
    
    sub getSearchFieldsArray
    {
        return ['title', 'authors', 'isbn'];
    }

    # Used to get the local translation of editor, language, ISBN, product dimension, series 
    sub getTranslation
    {
         my $param = $_[1];

	 if ($param == 1)
	 {
		return 'Publisher:';
	 }
	 elsif ($param == 2)
	 {
		return 'Language:';
	 }
	 elsif ($param == 3)
	 {
		return 'ISBN-13:';
	 }
	 elsif ($param == 4)
	 {
		return 'Product Dimensions:';
	 }
	 elsif ($param == 5)
	 {
		return 'Series:';
	 }
    }

}
1;

Et hop, comme dirait un certain bourgeois corpulent...

Hors ligne