summaryrefslogtreecommitdiffstats
path: root/blog
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-03 10:50:38 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-03 10:50:38 +0800
commitaab2e007ac5ff632835653a727d01b1d4de3a9eb (patch)
tree5e1277a4a02b9d3ec96c26d3e2e7e1baa1ae53f6 /blog
parent7ca1350ddc82b613d9d819cb711079ddfb66033e (diff)
downloadpttbbs-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
Diffstat (limited to 'blog')
-rwxr-xr-xblog/blog.pl10
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;