From 9fe1f066ac13ad6131acbcbcc252c036e3fa07f3 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Sat, 19 Jul 2008 22:20:52 +0200 Subject: [PATCH] - Add a pattern for german-bash --- quotesite/GermanBashGrabber.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quotesite/GermanBashGrabber.pm b/quotesite/GermanBashGrabber.pm index 3fb4e63..8b52db9 100644 --- a/quotesite/GermanBashGrabber.pm +++ b/quotesite/GermanBashGrabber.pm @@ -19,7 +19,8 @@ sub new { my $self = $class->SUPER::new(); $self->{'NAME'} = 'germanbash'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.org/(\d+))']; + $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.org/(\d+))', + '(http://(?:[-a-zA-Z0-9_.]+\.)*german-bash\.org/action/show/id/(\d+))']; bless($self, $class); $self->_prepare_parameters(); -- 1.8.3.1