75 |
############################## |
############################## |
76 |
# 全ページのスタイル |
# 全ページのスタイル |
77 |
my $style = <<'EOD'; |
my $style = <<'EOD'; |
78 |
|
@import '/s/simpledoc'; |
79 |
pre, dl, ul, ol, p, blockquote { line-height:120%; } |
pre, dl, ul, ol, p, blockquote { line-height:120%; } |
80 |
|
a.wiki .mark {vertical-align: sub, color: GrayText} |
81 |
a { text-decoration: none; } |
a { text-decoration: none; } |
82 |
a:link { color: #0000FF; background-color: #FFFFFF; } |
a:link { color: #0000FF; background-color: #FFFFFF; } |
83 |
a:visited { color: #9900CC; background-color: #FFFFFF; } |
a:visited { color: #9900CC; background-color: #FFFFFF; } |
657 |
sub print_footer { |
sub print_footer { |
658 |
print <<"EOD"; |
print <<"EOD"; |
659 |
<div class="navigation"> |
<div class="navigation"> |
|
<a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a> |
|
|
+ <a href="$modifierlink">$modifier</a> ${version}. |
|
660 |
[<a href="/" title="このサーバーの首頁">/</a> |
[<a href="/" title="このサーバーの首頁">/</a> |
661 |
<a href="/map" title="このサーバーの案内">地図</a> |
<a href="/map" title="このサーバーの案内">地図</a> |
662 |
<a href="/search/" title="このサーバーの検索">検索</a>] |
<a href="/search/" title="このサーバーの検索">検索</a>] |
664 |
EOD |
EOD |
665 |
print <<'EOH'; |
print <<'EOH'; |
666 |
<div class="update"> |
<div class="update"> |
667 |
|
<a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a> ${version} |
668 |
|
+ <a href="$modifierlink">$modifier</a>. |
669 |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
670 |
$Revision$ $Date$ |
$Revision$ $Date$ |
671 |
</a> |
</a> |
729 |
my (@txt) = split(/\n/, $txt); |
my (@txt) = split(/\n/, $txt); |
730 |
foreach (@txt) { |
foreach (@txt) { |
731 |
chomp; |
chomp; |
732 |
if (/^\*\*(.*)/) { |
if (/^\*\*\*\*\*(.*)/) { |
733 |
|
push(@result, splice(@saved), '<h6>' . &inline($1) . '</h6>'); |
734 |
|
} elsif (/^\*\*\*\*(.*)/) { |
735 |
|
push(@result, splice(@saved), '<h5>' . &inline($1) . '</h5>'); |
736 |
|
} elsif (/^\*\*\*(.*)/) { |
737 |
|
push(@result, splice(@saved), '<h4>' . &inline($1) . '</h4>'); |
738 |
|
} elsif (/^\*\*(.*)/) { |
739 |
push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>'); |
push(@result, splice(@saved), '<h3>' . &inline($1) . '</h3>'); |
740 |
} elsif (/^\*(.*)/) { |
} elsif (/^\*(.*)/) { |
741 |
push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>'); |
push(@result, splice(@saved), '<h2>' . &inline($1) . '</h2>'); |
744 |
} elsif (/^(-{1,3})(.*)/) { |
} elsif (/^(-{1,3})(.*)/) { |
745 |
&back_push('ul', length($1)); |
&back_push('ul', length($1)); |
746 |
push(@result, '<li>' . &inline($2) . '</li>'); |
push(@result, '<li>' . &inline($2) . '</li>'); |
747 |
|
} elsif (/^(={1,3})(.*)/) { |
748 |
|
&back_push('ol', length($1)); |
749 |
|
push(@result, '<li>' . &inline($2) . '</li>'); |
750 |
} elsif (/^:([^:]+):(.*)/) { |
} elsif (/^:([^:]+):(.*)/) { |
751 |
&back_push('dl', 1); |
&back_push('dl', 1); |
752 |
push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>'); |
push(@result, '<dt>' . &inline($1) . '</dt>', '<dd>' . &inline($2) . '</dd>'); |
759 |
push(@result, "<p>"); |
push(@result, "<p>"); |
760 |
} elsif (/^(\s+.*)$/) { |
} elsif (/^(\s+.*)$/) { |
761 |
&back_push('pre', 1); |
&back_push('pre', 1); |
762 |
push(@result, &escape($1)); # Not &inline, but &escape |
#push(@result, &escape($1)); # Not &inline, but &escape |
763 |
|
push(@result, &inline($1)); # Not &inline, but &escape |
764 |
} else { |
} else { |
765 |
push(@result, &inline($_)); |
push(@result, &inline($_)); |
766 |
} |
} |