From dae58a2b4f2f1d325630049b2e4291941048f9a5 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sat, 5 Jul 2003 06:16:15 +0000
Subject: add ~ to http/ftp pattern

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1027 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/man.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/staticweb/man.pl b/staticweb/man.pl
index 189df02e..4f20889c 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: man.pl,v 1.6 2003/07/05 05:40:05 in2 Exp $
+# $Id: man.pl,v 1.7 2003/07/05 06:16:15 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -86,8 +86,8 @@ sub articlemode
     $th{content} = $db{$fpath};
     $th{content} =~ s/\033\[.*?m//g;
 
-    $th{content} =~ s|(http://[\w\-\.\:\/\,@\?=]+)|<a href="$1">$1</a>|gs;
-    $th{content} =~ s|(ftp://[\w\-\.\:\/\,@]+)|<a href="$1">$1</a>|gs;
+    $th{content} =~ s|(http://[\w\-\.\:\/\,@\?=~]+)|<a href="$1">$1</a>|gs;
+    $th{content} =~ s|(ftp://[\w\-\.\:\/\,@~]+)|<a href="$1">$1</a>|gs;
     $th{content} =~
 	s|§å½ð½ð¨ß|<a href="http://blog.ptt2.cc">§å½ð½ð¨ß</a>|gs;
     $th{content} =~
-- 
cgit v1.2.3