From 9c0c3379944ab2a8dd3b17f0bcf597f2168d5177 Mon Sep 17 00:00:00 2001 From: in2 Date: Mon, 2 Jun 2003 03:39:24 +0000 Subject: add lib ., fix regex for ubb git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@921 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- pttbbs/blog/blog.pl | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/pttbbs/blog/blog.pl b/pttbbs/blog/blog.pl index e0100d4e..ccfeb5c3 100755 --- a/pttbbs/blog/blog.pl +++ b/pttbbs/blog/blog.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -# $Id: blog.pl,v 1.13 2003/06/02 02:09:38 in2 Exp $ +# $Id: blog.pl,v 1.14 2003/06/02 03:39:24 in2 Exp $ use CGI qw/:standard/; +use lib qw/./; use LocalVars; use DB_File; use strict; @@ -251,12 +252,12 @@ sub applyfilter($$) $c =~ s/\n/
\n/gs; } elsif( /^ubb$/i ){ - $c =~ s|\[url\](.*?)\[/url\]|\1|gsi; - $c =~ s|\[url=(.*?)\](.*?)\[/url\]|\2|gsi; - $c =~ s|\[email\](.*?)\[/email\]|\1|gsi; - $c =~ s|\[b\](.*?)\[/b\]|\1|gsi; - $c =~ s|\[i\](.*?)\[/i\]|\1|gsi; - $c =~ s|\[img\](.*?)\[/img\]||gsi; + $c =~ s|\[url\](.*?)\[/url\]|$1|gsi; + $c =~ s|\[url=(.*?)\](.*?)\[/url\]|$2|gsi; + $c =~ s|\[email\](.*?)\[/email\]|$1|gsi; + $c =~ s|\[b\](.*?)\[/b\]|$1|gsi; + $c =~ s|\[i\](.*?)\[/i\]|$1|gsi; + $c =~ s|\[img\](.*?)\[/img\]||gsi; } } return $c; -- cgit v1.2.3