564 |
$line =~ s|'''([^']+?)'''|<strong>$1</strong>|g; |
$line =~ s|'''([^']+?)'''|<strong>$1</strong>|g; |
565 |
$line =~ s|''([^']+?)''|<em>$1</em>|g; |
$line =~ s|''([^']+?)''|<em>$1</em>|g; |
566 |
$line =~ s! |
$line =~ s! |
567 |
( |
( |
568 |
(<(mailto|http|https|ftp|urn):[\x21-\x7E]*)> # Direct http://... |
(?:<(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)> |
569 |
| |
| (?:$WikiName) # LocalLinkLikeThis |
570 |
($WikiName) # LocalLinkLikeThis |
| (?:$BracketName) # [[日本語リンク]] |
571 |
| |
) |
|
($BracketName) # [[日本語リンク]] |
|
|
) |
|
572 |
! |
! |
573 |
&make_link($1) |
&make_link($1) |
574 |
!gex; |
!gex; |
668 |
# URLやページの名前からリンクを作る |
# URLやページの名前からリンクを作る |
669 |
sub make_link { |
sub make_link { |
670 |
my $name = shift; |
my $name = shift; |
671 |
|
$name =~ s/^<(.*)>$/$1/; |
672 |
if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) { |
if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) { |
673 |
if ($2) { |
if ($2) { |
674 |
return qq|<a href="$name"><img border="0" src="$name" /></a>|; |
return qq|<a href="$name"><img border="0" src="$name" /></a>|; |