diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-10 16:46:06 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-10 16:46:06 +0800 |
commit | aabb4061b1d17570872473aefc14bbb66edbaab7 (patch) | |
tree | bdc904d7db34d02e8469992fb8ce4c54a74feed7 | |
parent | 07756f440610eadbbb269204756478c3a00c6526 (diff) | |
download | pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar.gz pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar.bz2 pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar.lz pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar.xz pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.tar.zst pttbbs-aabb4061b1d17570872473aefc14bbb66edbaab7.zip |
add filter strict
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@938 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rwxr-xr-x | pttbbs/blog/blog.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/pttbbs/blog/blog.pl b/pttbbs/blog/blog.pl index c14ca34a..0dc59914 100755 --- a/pttbbs/blog/blog.pl +++ b/pttbbs/blog/blog.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: blog.pl,v 1.18 2003/06/03 07:06:59 in2 Exp $ +# $Id: blog.pl,v 1.19 2003/06/10 08:46:06 in2 Exp $ use CGI qw/:standard/; use lib qw/./; use LocalVars; @@ -251,11 +251,15 @@ sub applyfilter($$) my($c, $filter) = @_; foreach( split(',', $filter) ){ if( /^generic$/i ){ - #$c =~ s/\</</gs; - #$c =~ s/\>/>/gs; - #$c =~ s/\"/"/gs; $c =~ s/\n/<br \/>\n/gs; } + elsif( /^strict$/i ){ + $c =~ s/\</</gs; + $c =~ s/\>/>/gs; + $c =~ s/\"/"/gs; + $c =~ s/\'/'/gs; + $c =~ s/ / /gs; + } elsif( /^ubb$/i ){ $c =~ s|\[url\](.*?)\[/url\]|<a href="$1">$1</a>|gsi; $c =~ s|\[url=(.*?)\](.*?)\[/url\]|<a href="$1">$2</a>|gsi; |