From: Ralf Ertzinger Date: Sat, 19 Jul 2008 20:20:52 +0000 (+0200) Subject: - Add a pattern for german-bash X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=commitdiff_plain;h=9fe1f066ac13ad6131acbcbcc252c036e3fa07f3 - Add a pattern for german-bash --- 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();