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