diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-04 13:59:08 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-04 13:59:08 +0800 |
| commit | 5e7389f217ca6bfae3ee09987d01eac327fca4db (patch) | |
| tree | f87f71badacf69808a4e264b4265e9afb856c8df | |
| parent | fc218cf2321d9315a726c8b94b106327976f63cc (diff) | |
| download | pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar.gz pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar.bz2 pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar.lz pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar.xz pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.tar.zst pttbbs-5e7389f217ca6bfae3ee09987d01eac327fca4db.zip | |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1019 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | staticweb/article.html | 3 | ||||
| -rw-r--r-- | staticweb/dir.html | 2 | ||||
| -rwxr-xr-x | staticweb/man.pl | 13 |
3 files changed, 15 insertions, 3 deletions
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; } |