/[pub]/suikawiki/script/wiki.cgi
Suika

Diff of /suikawiki/script/wiki.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by wakaba, Sun Jun 2 06:19:43 2002 UTC revision 1.19 by wakaba, Sun Jun 2 06:28:30 2002 UTC
# Line 447  sub print_footer { Line 447  sub print_footer {
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 &copy; 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 &copy; 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 &copy; 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 &copy; 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">
# Line 462  $Revision$ $Date$ Line 463  $Revision$ $Date$
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
# Line 518  sub text_to_html { Line 519  sub text_to_html {
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>');
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24