소스 검색

Try to match URLs not only with http://

Morten Brix Pedersen 25 년 전
부모
커밋
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) = @_;
     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;