diff options
Diffstat (limited to 'lib/gcstar/GCPlugins/GCgames/GCgamesCommon.pm')
| -rw-r--r-- | lib/gcstar/GCPlugins/GCgames/GCgamesCommon.pm | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/lib/gcstar/GCPlugins/GCgames/GCgamesCommon.pm b/lib/gcstar/GCPlugins/GCgames/GCgamesCommon.pm new file mode 100644 index 0000000..9403652 --- /dev/null +++ b/lib/gcstar/GCPlugins/GCgames/GCgamesCommon.pm @@ -0,0 +1,87 @@ +package GCPlugins::GCgames::GCgamesCommon; + +################################################### +# +# 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; + +our $MAX_ACTORS = 6; +our $MAX_DIRECTORS = 4; + +use GCPlugins::GCPluginsBase; + +{ + package GCPlugins::GCgames::GCgamesPluginsBase; + + use base qw(GCPluginParser); + use HTML::Entities; + + sub new + { + my $proto = shift; + my $class = ref($proto) || $proto; + my $self = $class->SUPER::new(); + bless ($self, $class); + return $self; + } + + sub getSearchFieldsArray + { + return ['name']; + } + + sub getTipsUrl + { + my $self = shift; + + return ''; + } + + sub getTips + { + my $self = shift; + my $url = $self->getTipsUrl; + if ($url) + { + $self->{parsingTips} = 1; + my $html = $self->loadPage($url, 0, 1); + $html = $self->preProcess($html); + decode_entities($html); + $self->{inside} = undef; + $self->parse($html); + $self->{parsingTips} = 0; + } + } + + sub getItemInfo + { + my $self = shift; + + $self->SUPER::getItemInfo; + $self->getTips; + + return $self->{curInfo}; + } + +} + +1;
\ No newline at end of file |