diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-31 20:40:27 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-05-31 20:40:27 +0800 |
| commit | 7938b2357a3d6e730cb191ff97b3bc16d6d0d2c9 (patch) | |
| tree | 7db844385796d6d920c6bd14762865497a448a3a | |
| parent | c7fcb2cf058ee75c8efeff24a8dacad612235d3c (diff) | |
| download | pttbbs-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
| -rwxr-xr-x | blog/blog.pl | 9 |
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/\</</gs; - $c =~ s/\>/>/gs; - $c =~ s/\"/"/gs; + #$c =~ s/\</</gs; + #$c =~ s/\>/>/gs; + #$c =~ s/\"/"/gs; $c =~ s/\n/<br \/>\n/gs; } elsif( /^ubb$/i ){ |