From 3df6a2a17870b80ca7ec65ef0eeaca0b33dfe8d6 Mon Sep 17 00:00:00 2001 From: unknown Date: Sun, 1 Mar 2015 06:05:35 +0400 Subject: Add tinyurl to the URL shorteners we check --- modules/event.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ); -- cgit v1.2.3