447 |
my ($page) = @_; |
my ($page) = @_; |
448 |
$walrus_log = ($walrus_debugging) ? &text_to_html("----\n$walrus_log") : ''; # Walrus add (debug) |
$walrus_log = ($walrus_debugging) ? &text_to_html("----\n$walrus_log") : ''; # Walrus add (debug) |
449 |
# Walrus mod (1) start |
# Walrus mod (1) start |
450 |
|
my $cvslog = '$Revision$ $Date$'; |
451 |
print <<"EOD"; |
print <<"EOD"; |
452 |
<div class="footer"> |
<div class="footer"> |
453 |
<p> |
<p> |
454 |
<a href="http://digit.que.ne.jp/work/">WalWiki</a> $walversion © 2000-2002 by <a href="http://digit.que.ne.jp/">Makio Tsukamoto</a>.<br /> |
<a href="http://digit.que.ne.jp/work/">WalWiki</a> $walversion © 2000-2002 by <a href="http://digit.que.ne.jp/">Makio Tsukamoto</a>.<br /> |
455 |
based on <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> $version © 2000-2002 by <a href="http://www.hyuki.com/">Hiroshi Yuki</a>.<br /> |
based on <a href="http://www.hyuki.com/yukiwiki/">YukiWiki</a> $version © 2000-2002 by <a href="http://www.hyuki.com/">Hiroshi Yuki</a>.<br /> |
456 |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
<a href="/gate/cvs/wakaba/wiki/" title="CVS Repository"> |
457 |
$Revision$ $Date$ |
$cvslog |
458 |
</a> |
</a> |
459 |
</p> |
</p> |
460 |
<div class="navigation"> |
<div class="navigation"> |
463 |
<a href="/search/" title="このサーバーの検索">検索</a>] |
<a href="/search/" title="このサーバーの検索">検索</a>] |
464 |
</div> |
</div> |
465 |
</div> |
</div> |
466 |
$walrus_log <!-- Walrus add (debug) --> |
$walrus_log |
467 |
</body> |
</body> |
468 |
</html> |
</html> |
469 |
EOD |
EOD |
519 |
foreach (@txt) { |
foreach (@txt) { |
520 |
chomp; |
chomp; |
521 |
# Walrus mod (6) start |
# Walrus mod (6) start |
522 |
if ($saved[0] eq '</html>') { |
#if ($saved[0] eq '</html>') { |
523 |
if (/<\/html>/i) { splice(@saved); } |
# if (/<\/html>/i) { splice(@saved); } |
524 |
else { push (@result, &html_to_ignored_html($_)); } |
# else { push (@result, &html_to_ignored_html($_)); } |
525 |
} elsif (/^<html>/i and &is_ignore_html($form{mypage})) { |
#} elsif (/^<html>/i and &is_ignore_html($form{mypage})) { |
526 |
push(@result, splice(@saved)); |
# push(@result, splice(@saved)); |
527 |
push(@saved, '</html>'); |
# push(@saved, '</html>'); |
528 |
|
#} els |
529 |
if (/^\*\*\*\*\*(.*)/) { |
if (/^\*\*\*\*\*(.*)/) { |
530 |
push(@toc, qq(-- <a href="#i$tocnum">@{[&escape($1)]}</a>\n)); |
push(@toc, qq(-- <a href="#i$tocnum">@{[&escape($1)]}</a>\n)); |
531 |
push(@result, splice(@saved), qq(<h6 id="i$tocnum">) . &inline($1) . '</h6>'); |
push(@result, splice(@saved), qq(<h6 id="i$tocnum">) . &inline($1) . '</h6>'); |