package GCPlugins::GCgames::GCAmazonJP; ################################################### # # 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; use GCPlugins::GCgames::GCgamesAmazonCommon; { package GCPlugins::GCgames::GCPluginAmazonJP; use base 'GCPlugins::GCgames::GCgamesAmazonPluginsBase'; sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = $class->SUPER::new(); bless ($self, $class); $self->{suffix} = 'co.jp'; return $self; } sub preProcess { my ($self, $html) = @_; if ($self->{parsingList}) { } else { $html =~ s/>商品の説明<\/tpfdescription>"); if ( $found >= 0 ) { my $html2 = substr($html, $found,length($html)- $found); $html2 =~ s|||gi; $html2 =~ s|

|\n\n|gi; $html2 =~ s|

||gi; $html2 =~ s||\n\n|gi; $html2 =~ s|||gi; $html2 =~ s|||gi; $html2 =~ s|||gi; $html2 =~ s|||gi; $html = substr($html, 0, $found) . $html2 ; } $html =~ s/発売日 :プラットフォーム:<\/b>  <\/tpfplateforme>プラットフォーム:<\/b>/<\/tpfplateforme>/gi; $html =~ s/registerImage\("original_image",/<\/script>||gi; $html =~ s|||gi; $html =~ s|||gi; $html =~ s|||gi; $html =~ s|
  • |*|gi; $html =~ s|
    |\n|gi; $html =~ s|
    |\n|gi; $html =~ s|\x{92}|'|gi; $html =~ s|’|'|gi; $html =~ s|•|*|gi; $html =~ s|…|...|gi; $html =~ s|\x{85}|...|gi; $html =~ s|\x{8C}|OE|gi; $html =~ s|\x{9C}|oe|gi; } return $html; } sub getName { return 'Amazon (JP)'; } sub getCharset { my $self = shift; return "SHIFT_JIS"; } sub getLang { return 'JP'; } } 1;