From 439c6b89ee6108272934b7266998d0bc4caebc68 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Tue, 5 Jul 2011 14:43:04 +0200 Subject: [PATCH 1/1] GermanBash: add german-bash.de as domain --- quotesite/GermanBashGrabber.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quotesite/GermanBashGrabber.pm b/quotesite/GermanBashGrabber.pm index 747968c..361c43d 100644 --- a/quotesite/GermanBashGrabber.pm +++ b/quotesite/GermanBashGrabber.pm @@ -19,8 +19,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'germanbash'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.org/(\d+))', - '(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.org/action/show/id/(\d+))']; + $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.(?:org|de)/(\d+))', + '(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.(?:org|de)/action/show/id/(\d+))']; bless($self, $class); $self->_prepare_parameters(); -- 1.8.3.1