X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite.pl;h=691b8a38d937509ac469aad8819c5638fbbae2ed;hb=88a58c0136ad9e42407fbe3996daaf4a4c82cceb;hp=74afc42b07e54d5a084b89f583cc148553d3b928;hpb=6bdc7f34dc70e4bccf5475d852cc68e950c95497;p=videosite.git diff --git a/videosite.pl b/videosite.pl index 74afc42..691b8a3 100644 --- a/videosite.pl +++ b/videosite.pl @@ -153,7 +153,7 @@ sub expand_url_shortener { my $s = shift; my $os = ''; my @urlshortener = ( - 'is.\gd/[[:alnum:]]+', + 'is\.gd/[[:alnum:]]+', 'otf\.me/[[:alnum:]]+', 'hel\.me/[[:alnum:]]+', '7ax\.de/[[:alnum:]]+', @@ -161,6 +161,8 @@ sub expand_url_shortener { 'j\.mp/[[:alnum:]]+', 'bit\.ly/[[:alnum:]]+', 'tinyurl\.com/[[:alnum:]]+', + 'pop\.is/[[:alnum:]]+', + 'post\.ly/[[:alnum:]]+', ); my $ua = LWP::UserAgent->new(agent => 'Mozilla', max_redirect => 0); my $i = 10;