From 5e7389f217ca6bfae3ee09987d01eac327fca4db Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Fri, 4 Jul 2003 05:59:08 +0000
Subject: *** empty log message ***

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1019 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/article.html |  3 ++-
 staticweb/dir.html     |  2 +-
 staticweb/man.pl       | 13 ++++++++++++-
 3 files changed, 15 insertions(+), 3 deletions(-)

(limited to 'staticweb')

diff --git a/staticweb/article.html b/staticweb/article.html
index 9cfee318..706626a0 100644
--- a/staticweb/article.html
+++ b/staticweb/article.html
@@ -1,6 +1,7 @@
 [% INCLUDE header.html %]
 <table width="75%" align="center"><tr><td>
-狾: [% brdname %]<br /><a href="."></a><br />
+狾: <a href="/man.pl/[% brdname %]/">[% brdname %]</a><br />
+<a href="."></a><br />
 <hr />
 </tr></td><tr><td>
 <font size=+2><pre>
diff --git a/staticweb/dir.html b/staticweb/dir.html
index 82ea6a12..a70d9a04 100644
--- a/staticweb/dir.html
+++ b/staticweb/dir.html
@@ -13,7 +13,7 @@
 <a href="http://man.ptt.cc/man.pl/[% brdname %]/">[% brdname %]弘地跋</a>
 <a href="http://blog.ptt.cc">у金金场辅</a>
 <br />
-<font size=+1>狾嘿: [% brdname %]</font>
+<font size=+1>狾嘿: <a href="/man.pl/[% brdname %]/">[% brdname %]</a></font>
 <hr />
 </td></tr>
 
diff --git a/staticweb/man.pl b/staticweb/man.pl
index e9e45a2a..28d21ae0 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: man.pl,v 1.3 2003/07/03 13:49:07 in2 Exp $
+# $Id: man.pl,v 1.4 2003/07/04 05:58:45 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -70,6 +70,17 @@ sub articlemode
     $th{tmpl} = 'article.html';
     $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|у金金ㄟ|<a href="http://blog.ptt2.cc">у金金ㄟ</a>|gs;
+    $th{content} =~
+	s|祇獺: у金金龟穨|祇獺: <a href="http://blog.ptt.cc">у金金龟穨</a>|gs;
+    $th{content} =~
+	s|ptt\.csie\.ntu\.edu\.tw|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.csie.ntu.edu.tw</a>|gs;
+    $th{content} =~
+	s|ptt\.twbbs\.org|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.twbbs.org</a>|gs;
     return \%th;
 }
 
-- 
cgit v1.2.3