/[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.21 by wakaba, Sun Jun 2 07:15:20 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>');
# Line 654  sub inline { Line 656  sub inline {
656  sub make_link {  sub make_link {
657      my $chunk = shift;      my $chunk = shift;
658      # Walrus add (3) start      # Walrus add (3) start
659        $chunk =~ s/^&lt;(.*)&gt;$/$1/;
660      my $name  = $chunk;      my $name  = $chunk;
     $name =~ s/^&lt;(.*)&gt;$/$1/;  
661      if ($chunk =~ /^\[\[([^ ]+?) ([^ ]+?)\]\]$/ and $form{mypage} ne $InterWikiName) {      if ($chunk =~ /^\[\[([^ ]+?) ([^ ]+?)\]\]$/ and $form{mypage} ne $InterWikiName) {
662          ($name, $chunk) = ($1, $2);          ($name, $chunk) = ($1, $2);
663      } elsif ($chunk =~ /^mailto:(.*)$/) {      } elsif ($chunk =~ /^mailto:(.*)$/) {
# Line 673  sub make_link { Line 675  sub make_link {
675  #       } else {  #       } else {
676  #           return qq(<a href="$chunk">$chunk</a>);  #           return qq(<a href="$chunk">$chunk</a>);
677  #       }  #       }
678          return qq(<a href="$chunk">$name</a>);          return qq(&lt;<a href="$chunk">$name</a>&gt;);
679          # Walrus mod (3) end          # Walrus mod (3) end
680      } elsif ($chunk =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {      } elsif ($chunk =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {
681          return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;          return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
# Line 707  sub make_link { Line 709  sub make_link {
709              return qq(<a title="$subject" href="$url_cgi?$cookedchunk">$name</a>);   # Walrus add (3)              return qq(<a title="$subject" href="$url_cgi?$cookedchunk">$name</a>);   # Walrus add (3)
710          } elsif ($page_command{$chunk}) {          } elsif ($page_command{$chunk}) {
711  #           return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$chunk</a>);    # Walrus del (3)  #           return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$chunk</a>);    # Walrus del (3)
712              return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$name</a>);     # Walrus add (3)              return qq(<a title="$chunk" href="$url_cgi?$cookedchunk" class="wiki">$name</a>);     # Walrus add (3)
713          } else {          } else {
714  #           return qq($chunk<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit&amp;mypage=$cookedchunk">$editchar</a>); # Walrus del (3)              return qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedchunk" class="wiki">$name<span class="mark">$editchar</span></a>);
             return qq($name<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit&amp;mypage=$cookedchunk">$editchar</a>);  # Walrus add (3)  
715          }          }
716      }      }
717  }  }
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.21
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24