From aab2e007ac5ff632835653a727d01b1d4de3a9eb Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Tue, 3 Jun 2003 02:50:38 +0000
Subject: for XHTML 1.0

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@927 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/blog.pl | 10 +++++-----
 1 file 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;
-- 
cgit v1.2.3