1 # (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
2 # licensed under GNU GPL v2
4 package videosite::GrabberBase;
6 @ISA = qw(videosite::Base);
12 my $self = $class->SUPER::new();
19 return bless($self, $class);
27 return undef unless $self->_getval('enabled');
29 foreach $pattern (@{$self->{'PATTERNS'}}) {
30 $self->debug("Matching %s against %s", $pattern, $url);
31 if ($url =~ m|$pattern|) {
32 $self->debug("Match");
33 return wantarray?($self->_parse($url, $pattern), $pattern):$self->_parse($url, $pattern);
43 $self->debug('Enabling %s grabber', $self->{'NAME'});
44 $self->setval('enabled', '1');
50 $self->debug('Disabling %s grabber', $self->{'NAME'});
51 $self->setval('enabled', '0');