diff options
| -rwxr-xr-x | blog/blog.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/blog/blog.pl b/blog/blog.pl index c14ca34a..0dc59914 100755 --- a/blog/blog.pl +++ b/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; |