diff options
| author |   unknown <unknown@unknown.invalid> | 2015-03-01 06:05:35 +0400 |
|---|---|---|
| committer |   Janik Kleinhoff <janik@kleinhoff.de> | 2015-03-01 06:05:35 +0400 |
| commit | 3df6a2a17870b80ca7ec65ef0eeaca0b33dfe8d6 (patch) | |
| tree | ce1bb52fb41d37a1eeab9859eec02c5850ea65eb | |
| parent | adac91d1edcc84edac13e90a2016ae3b8bb1e87f (diff) | |
Add tinyurl to the URL shorteners we check
| -rw-r--r-- | modules/event.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/event.pl b/modules/event.pl index 271e58c..06e366c 100644 --- a/modules/event.pl +++ b/modules/event.pl @@ -332,7 +332,7 @@ sub on_public $::sc{lc $event->{to}->[0]}{users}{lc $event->{nick}}{msgtime} = time; $::log->logg( $event ); $::db->logg( $event ); - if ($event->{args}->[0] =~ /(https?:\/\/bitly.com\/\w+|https?:\/\/bit.ly\/\w+|https?:\/\/j.mp\/\w+)/i) { + if ($event->{args}->[0] =~ /(https?:\/\/bitly.com\/\w+|https?:\/\/bit.ly\/\w+|https?:\/\/j.mp\/\w+|https?:\/\/tinyurl.com\/\w+)/i) { my $reqid = $::async->add( HTTP::Request->new( GET => $1 ) ); $::httpRequests{$reqid} = $event; my ($response, $id) = $::async->wait_for_next_response( 1 ); |