summaryrefslogtreecommitdiffstats
path: root/blog
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-05-31 20:40:27 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-05-31 20:40:27 +0800
commit7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9 (patch)
tree7db844385796d6d920c6bd14762865497a448a3a /blog
parentc7fcb2cf058ee75c8efeff24a8dacad612235d3c (diff)
downloadpttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar.gz
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar.bz2
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar.lz
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar.xz
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.tar.zst
pttbbs-7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9.zip
overwrite BOARDNAME, ignore s/[<>"]
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@915 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'blog')
-rwxr-xr-xblog/blog.pl9
1 files changed, 5 insertions, 4 deletions
diff --git a/blog/blog.pl b/blog/blog.pl
index af2112fa..6f77f858 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: blog.pl,v 1.9 2003/05/30 10:17:34 in2 Exp $
+# $Id: blog.pl,v 1.10 2003/05/31 12:40:27 in2 Exp $
use CGI qw/:standard/;
use LocalVars;
use DB_File;
@@ -43,6 +43,7 @@ sub main
# first, import all settings in %config
%th = %config;
+ $th{BOARDNAME} = $brdname;
# loadBlog ---------------------------------------------------------------
tie %article, 'DB_File', "$BLOGDATA/$brdname.db", O_RDONLY, 0666, $DB_HASH;
@@ -242,9 +243,9 @@ sub applyfilter($$)
my($c, $filter) = @_;
foreach( split(',', $filter) ){
if( /^generic$/i ){
- $c =~ s/\</&lt;/gs;
- $c =~ s/\>/&gt;/gs;
- $c =~ s/\"/&quot;/gs;
+ #$c =~ s/\</&lt;/gs;
+ #$c =~ s/\>/&gt;/gs;
+ #$c =~ s/\"/&quot;/gs;
$c =~ s/\n/<br \/>\n/gs;
}
elsif( /^ubb$/i ){