Просмотр исходного кода

Try to match URLs not only with http://

Morten Brix Pedersen 25 лет назад
Родитель
Сommit
b0e5619445
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      modules/Pisg/Common.pm

+ 2 - 1
modules/Pisg/Common.pm

@@ -109,7 +109,8 @@ sub match_url
 {
     my ($str) = @_;
 
-    if ($str =~ /(http|https|ftp|telnet|news)(:\/\/[-a-zA-Z0-9_]+\.[-a-zA-Z0-9.,_~=:;&@%?#\/+]+)/) {
+    #if ($str =~ /(http|https|ftp|telnet|news)(:\/\/[-a-zA-Z0-9_]+\.[-a-zA-Z0-9.,_~=:;&@%?#\/+]+)/) {
+    if ($str =~ /(http:\/\/|https:\/\/|ftp:\/\/|telnet:\/\/|news:\/\/|www.)([-a-zA-Z0-9_\/~]+\.[-a-zA-Z0-9.,_~=:&@%?#\/+]+)/) {
         my $url = "$1$2";
         if ($url_seen{$url}) {
             return $url;