565 |
$line =~ s|''([^']+?)''|<em>$1</em>|g; |
$line =~ s|''([^']+?)''|<em>$1</em>|g; |
566 |
$line =~ s! |
$line =~ s! |
567 |
( |
( |
568 |
((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://... |
(<(mailto|http|https|ftp|urn):[\x21-\x7E]*)> # Direct http://... |
569 |
| |
| |
570 |
($WikiName) # LocalLinkLikeThis |
($WikiName) # LocalLinkLikeThis |
571 |
| |
| |
670 |
# URLやページの名前からリンクを作る |
# URLやページの名前からリンクを作る |
671 |
sub make_link { |
sub make_link { |
672 |
my $name = shift; |
my $name = shift; |
673 |
if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) { |
if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) { |
674 |
if ($2) { |
if ($2) { |
675 |
return qq|<a href="$name"><img border="0" src="$name" /></a>|; |
return qq|<a href="$name"><img border="0" src="$name" /></a>|; |
676 |
} else { |
} else { |
677 |
return qq|<a href="$name">$name</a>|; |
return qq|<<a href="$name">$name</a>>|; |
678 |
} |
} |
679 |
} elsif ($name =~ /^mailto:(.*)/) { |
} elsif ($name =~ /^mailto:(.*)/) { |
680 |
my $address = $1; |
my $address = $1; |
681 |
return qq|<a href="$name">$address</a>|; |
return qq|<<a href="$name">$address</a>>|; |
682 |
|
} elsif ($name =~ /^urn:[0-9A-Za-z_:-]+/) { |
683 |
|
return qq|<<a href="/uri-res/N2L?${name}">$name</a>>|; |
684 |
} elsif ($database{$name}) { |
} elsif ($database{$name}) { |
685 |
my $percent_name = &encode_percent($name); |
my $percent_name = &encode_percent($name); |
686 |
return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|; |
return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|; |
836 |
---- |
---- |
837 |
*大見出し2 |
*大見出し2 |
838 |
**小見出し2-1 |
**小見出し2-1 |
839 |
http://www.hyuki.com/ |
<http://suika.fam.cx/> |
840 |
**小見出し2-2 |
**小見出し2-2 |
841 |
|
|
842 |
[[結城浩]] |
[[結城浩]] |