4
0
Эх сурвалжийг харах

Try to match URLs not only with http://

Morten Brix Pedersen 25 жил өмнө
parent
commit
b0e5619445

+ 2 - 1
modules/Pisg/Common.pm

@@ -109,7 +109,8 @@ sub match_url
 {
 {
     my ($str) = @_;
     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";
         my $url = "$1$2";
         if ($url_seen{$url}) {
         if ($url_seen{$url}) {
             return $url;
             return $url;