From: Ralf Ertzinger <ralf@skytale.net>
Date: Fri, 1 Oct 2010 22:07:31 +0000 (+0200)
Subject: TwitterGrabber: Add support for new tweet URL format (aka hashbang vomit)
X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=quotesite.git;a=commitdiff_plain;h=0711e74b084cc99d8f3508d2aac4daf7f933e142

TwitterGrabber: Add support for new tweet URL format (aka hashbang vomit)
---

diff --git a/quotesite/TwitterGrabber.pm b/quotesite/TwitterGrabber.pm
index 57e0ec4..6fab0cd 100644
--- a/quotesite/TwitterGrabber.pm
+++ b/quotesite/TwitterGrabber.pm
@@ -20,7 +20,7 @@ sub new {
     my $self = $class->SUPER::new();
 
     $self->{'NAME'} = 'twitter.com';
-    $self->{'PATTERNS'} = ['(http://twitter.com/[^/]+/status/(\d+))'];
+    $self->{'PATTERNS'} = ['(http://twitter.com/(?:\#\!/)?[^/]+/status/(\d+))'];
 
     bless($self, $class);
     $self->_prepare_parameters();