my $url = shift;
my $pattern;
+ return undef unless $self->_getval('enabled');
+
foreach $pattern (@{$self->{'PATTERNS'}}) {
$self->debug("Matching %s against %s", $pattern, $url);
if ($url =~ m|$pattern|) {
return undef;
}
+sub enable {
+ my $self = shift;
+
+ $self->debug('Enabling %s grabber', $self->{'NAME'});
+ $self->setval('enabled', '1');
+}
+
+sub disable {
+ my $self = shift;
+
+ $self->debug('Disabling %s grabber', $self->{'NAME'});
+ $self->setval('enabled', '0');
+}
+
sub _parse {
my $self = shift;
my $url = shift;