diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-03 10:50:38 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-03 10:50:38 +0800 |
| commit | aab2e007ac5ff632835653a727d01b1d4de3a9eb (patch) | |
| tree | 5e1277a4a02b9d3ec96c26d3e2e7e1baa1ae53f6 | |
| parent | 7ca1350ddc82b613d9d819cb711079ddfb66033e (diff) | |
| download | pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar.gz pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar.bz2 pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar.lz pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar.xz pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.tar.zst pttbbs-aab2e007ac5ff632835653a727d01b1d4de3a9eb.zip | |
for XHTML 1.0
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@927 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rwxr-xr-x | blog/blog.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/blog/blog.pl b/blog/blog.pl index 5e4f411d..8568c759 100755 --- a/blog/blog.pl +++ b/blog/blog.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: blog.pl,v 1.16 2003/06/02 14:59:09 in2 Exp $ +# $Id: blog.pl,v 1.17 2003/06/03 02:50:38 in2 Exp $ use CGI qw/:standard/; use lib qw/./; use LocalVars; @@ -254,12 +254,12 @@ sub applyfilter($$) $c =~ s/\n/<br \/>\n/gs; } elsif( /^ubb$/i ){ - $c =~ s|\[url\](.*?)\[/url\]|<a href='$1'>$1</a>|gsi; - $c =~ s|\[url=(.*?)\](.*?)\[/url\]|<a href='$1'>$2</a>|gsi; - $c =~ s|\[email\](.*?)\[/email\]|<a href='mailto:$1'>$1</a>|gsi; + $c =~ s|\[url\](.*?)\[/url\]|<a href="$1">$1</a>|gsi; + $c =~ s|\[url=(.*?)\](.*?)\[/url\]|<a href="$1">$2</a>|gsi; + $c =~ s|\[email\](.*?)\[/email\]|<a href="mailto:$1">$1</a>|gsi; $c =~ s|\[b\](.*?)\[/b\]|<b>$1</b>|gsi; $c =~ s|\[i\](.*?)\[/i\]|<i>$1</i>|gsi; - $c =~ s|\[img\](.*?)\[/img\]|<img src='$1'>|gsi; + $c =~ s|\[img\](.*?)\[/img\]|<img src="$1" alt="(null)" />|gsi; } } return $c; |