665 |
EOD |
EOD |
666 |
print <<'EOH'; |
print <<'EOH'; |
667 |
<div class="update"> |
<div class="update"> |
668 |
<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} |
<a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 |
669 |
+ <a href="$modifierlink">$modifier</a>. |
Copyright © 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a> |
670 |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
671 |
$Revision$ $Date$ |
$Revision$ $Date$ |
672 |
</a> |
</a> |
728 |
sub convert_html { |
sub convert_html { |
729 |
my ($txt) = shift; |
my ($txt) = shift; |
730 |
my (@txt) = split(/\n/, $txt); |
my (@txt) = split(/\n/, $txt); |
731 |
|
push (@result, '<p>'); ## ad hoc... |
732 |
foreach (@txt) { |
foreach (@txt) { |
733 |
chomp; |
chomp; |
734 |
if (/^\*\*\*\*\*(.*)/) { |
if (/^\*\*\*\*\*(.*)/) { |