diff options
Diffstat (limited to 'blog/blog.pl')
| -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; |