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

Diff of /suikawiki/script/wiki.cgi

Parent Directory | Revision Log | View Patch Patch

-revision 1.9 by wakaba,
Sun Mar 24 00:55:15 2002 UTC
+revision 1.12 by wakaba,
Sun Mar 24 01:14:30 2002 UTC
 Line 578 
 sub inline {
  # ページのタイトルからページの内容を得る
  sub get_page {
      my $page_name = shift;
-     return $database{$page_name};
+     return $database{$page_name} || $database{'[['.$page_name.']]'};
  }
  # ページの内容を与える
 Line 615 
 sub set_page {
  sub print_header {
      my $title = shift;
      print <<"EOD";
- Content-type: text/html
+ Content-type: text/html; charset=${charset}
  <html><head>
  <title>$title</title>
 Line 645 
 EOD
  <a href="$thisurl?mycmd=list">一覧</a> |
  $editlink
  <a href="$thisurl?mycmd=search">単語検索</a> |
- <a href="$thisurl?mycmd=read;mypage=$whatsnew">最終更新</a>
+ <a href="$thisurl?mycmd=read;mypage=$whatsnew">最近の更新</a>
   ]
  </p>
  EOD
 Line 654 
 EOD
  # ページのフッタを出力
  sub print_footer {
      print <<"EOD";
- <address>
+ <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}.
  [<a href="/" title="このサーバーの首頁">/</a>
  <a href="/map" title="このサーバーの案内">地図</a>
  <a href="/search/" title="このサーバーの検索">検索</a>]
- </address>
+ </div>
- </body></html>
  EOD
+   print <<'EOH';
+ <div class="update">
+ <a href="/gate/cvs/wakaba/wiki/" title="CVS Repository">
+ $Revision$ $Date$
+ </a>
+ </div>
+ </body></html>
+ EOH
  }
  # URLやページの名前からリンクを作る
-Line 679 
 sub make_link {
+Line 686 
 sub make_link {
      } elsif ($name =~ /^mailto:(.*)/) {
          my $address = $1;
          return qq|&lt;<a href="$name">$address</a>&gt;|;
-     } elsif ($name =~ /^urn:[0-9A-Za-z_:-]+/) {
+     } elsif ($name =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {
          return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
      } else {
        my $name2 = $name; $name2 =~ tr/\x20/-/;
-Line 691 
 sub make_link {
+Line 698 
 sub make_link {
          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
        } else {
          my $percent_name = &encode_percent($name2);
-         return qq|<a href="$thisurl?mycmd=edit;mypage=$percent_name" class="wiki newpage">$name?</a>|;
+         return qq|<a href="$thisurl?mycmd=edit;mypage=$percent_name" class="wiki newpage">$name<span class="mark">?</span></a>|;
        }
      }
  }
-Line 767 
 sub back_push {
+Line 774 
 sub back_push {
  }
  # 編集可能ページか？
- sub is_editable {
+ sub is_editable {return 1;
+ ## TODO: ...
      my ($pagename) = @_;
      foreach (@uneditable) {
          if ($pagename eq $_) {
-Line 780 
 sub is_editable {
+Line 788 
 sub is_editable {
      return 0;
  }
- # Validな名前か？
+ # Validな名前か?
  sub is_valid_name {
      my ($pagename) = @_;
      if ($pagename =~ /^$WikiName$/) {

 Legend:



Removed from v.1.9
 


changed lines


 
Added in v.1.12
 Legend:



Removed from v.1.9
 


changed lines


 
Added in v.1.12
-Removed from v.1.9
+Added in v.1.12

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24