X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=blobdiff_plain;f=quotesite%2FGermanBashGrabber.pm;h=919f015b7f145fceba906cee016c3f1de1d9962e;hp=3fb4e632f9bf88ca0eba392926cf62e70de5251c;hb=134915427cbf80a82868b173766a9c0da84b0fba;hpb=7a2a97ead43f07fbeb25bca43f40c7f994cc77ab diff --git a/quotesite/GermanBashGrabber.pm b/quotesite/GermanBashGrabber.pm index 3fb4e63..919f015 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(); @@ -57,6 +58,7 @@ sub _parse { if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'zitat')) { $metadata->{'CONTENT'} = $p->get_text('/div'); $metadata->{'CONTENT'} =~ s/^\s*//mg; + last; } }