From 126bb8cb6b93240bb4d3a2b816b74c286c3d422b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= Date: Sun, 6 Jul 2014 15:20:38 +0200 Subject: Imported Upstream version 1.7.0 --- lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm | 304 +++++++++++++++++++++++++++++ 1 file changed, 304 insertions(+) create mode 100644 lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm (limited to 'lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm') diff --git a/lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm b/lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm new file mode 100644 index 0000000..cbb6674 --- /dev/null +++ b/lib/gcstar/GCPlugins/GCfilms/GCAmazonFR.pm @@ -0,0 +1,304 @@ +package GCPlugins::GCfilms::GCAmazonFR; + +################################################### +# +# 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 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 'srtitle') + { + $self->{isTitle} = 1; + } + elsif ($tagname eq 'publication') + { + $self->{isPublication} = 1; + } + elsif ($tagname eq 'actors') + { + $self->{isActors} = 1; + } + if ($tagname eq 'a') + { + 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 "img") && (!$self->{curInfo}->{image})) + { + $self->{curInfo}->{image} = $self->extractImage($attr); + } + elsif (($tagname eq 'div') && ($attr->{class} eq 'content')) + { + $self->{insideContent} = 1; + } + elsif (($tagname eq 'div') && ($attr->{class} eq 'productDescriptionWrapper')) + { + $self->{insideSynopsis} = 1 + if (!$self->{curInfo}->{synopsis}); + } + elsif (($tagname eq 'div') && ($attr->{class} eq 'emptyClear')) + { + $self->{insideSynopsis} = 0; + } + 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 ($self->{isTitle}) + { + $self->{itemsList}[$self->{itemIdx}]->{title} = $origtext; + $self->{isTitle} = 0; + 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->{insideNameAndDate}) + { + $self->{curInfo}->{title} = $origtext; + $self->{insideNameAndDate} = 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; + $self->{curInfo}->{time} = $origtext; + $self->{insideTime} = 0; + } + elsif ($self->{insideDate}) + { + $origtext =~ s/^\s//; + $origtext =~ s/\n//g; + $origtext =~ s/\-$//; + $self->{curInfo}->{date} = $origtext; + $self->{insideDate} = 0; + } + elsif (($self->{insideSynopsis}) && ($origtext ne '')) + { + $self->{curInfo}->{synopsis} .= $origtext; + } + 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 =~ /Langue\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|~(.*?)\((.*?)( - .*?[0-9]{4})?\)|$1$2$3|gsm; + + } + else + { + $html =~ s/(|<\/i>)//gim; + $html =~ s/

/\n/gim; + $html =~ s|

|\n|gim; + $html =~ s/(