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

Diff of /suikawiki/script/wiki.cgi

Parent Directory | Revision Log | View Patch Patch

-revision 1.3 by wakaba,
Mon Feb  4 14:36:18 2002 UTC
+revision 1.10 by wakaba,
Sun Mar 24 01:09:03 2002 UTC
 Line 108 
 my @uneditable = ( $whatsnew );
  # 文字']'を1つ多くとるようにしている。
  #
  my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
- my $BracketName = '\[\[([^>\s]+?\]?)\]\]';
+ my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
  # アイコン部分のタグ
  my $IconTag = ''; #<<"EOD";
 Line 233 
 sub editpage {
      $page_msg = &escape($page_msg);
      print <<"EOD";
  <form action="$thisurl" method="post">
- <input type="hidden" name="mycmd" value="preview">
+ <!--<input type="hidden" name="mycmd" value="preview">-->
  <input type="hidden" name="mypage" value="$page_name">
  <input type="hidden" name="mydigest" value="$digest">
  <textarea cols="$cols" rows="$rows" name="mymsg" wrap="virtual">$page_msg</textarea><br>
- <input type="submit" value="プレビュー">
+ <input type="submit" name="myspecial_preview" value="確認">
+ <input type="submit" name="myspecial_write" value="確認せず変更">
  </form>
  <hr>
  <h3>テキスト整形のルール</h3>
-Line 563 
 sub inline {
+Line 564 
 sub inline {
      $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;
      $line =~ s|''([^']+?)''|<em>$1</em>|g;
      $line =~ s!
-                 (
+        (
-                     ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://...
+          (?:&lt;(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)&gt;
-                         |
+        #| (?:$WikiName)                         # LocalLinkLikeThis
-                     ($WikiName)                         # LocalLinkLikeThis
+        | (?:$BracketName)                      # [[日本語リンク]]
-                         |
+        )
-                     ($BracketName)                      # [[日本語リンク]]
-                 )
              !
                  &make_link($1)
              !gex;
-Line 579 
 sub inline {
+Line 578 
 sub inline {
  # ページのタイトルからページの内容を得る
  sub get_page {
      my $page_name = shift;
-     return $database{$page_name};
+     return $database{$page_name} || $database{'[['.$page_name.']]'};
  }
  # ページの内容を与える
-Line 616 
 sub set_page {
+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 646 
 EOD
+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 655 
 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>
+ <div class="update">\$Id$ </div>
  </body></html>
  EOD
  }
 Line 669 
 EOD
  # URLやページの名前からリンクを作る
  sub make_link {
      my $name = shift;
-     if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {
+     $name =~ s/^&lt;(.*)&gt;$/$1/;
+     $name =~ s/^\[\[(.*)\]\]$/$1/;
+     if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
          if ($2) {
              return qq|<a href="$name"><img border="0" src="$name" /></a>|;
          } else {
-             return qq|<a href="$name">$name</a>|;
+             return qq|&lt;<a href="$name">$name</a>&gt;|;
          }
      } elsif ($name =~ /^mailto:(.*)/) {
          my $address = $1;
-         return qq|<a href="$name">$address</a>|;
+         return qq|&lt;<a href="$name">$address</a>&gt;|;
-     } elsif ($database{$name}) {
+     } elsif ($name =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {
-         my $percent_name = &encode_percent($name);
+         return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
-         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;
+     } else {
-     } else {
+       my $name2 = $name; $name2 =~ tr/\x20/-/;
-         my $percent_name = &encode_percent($name);
+       if ($database{$name2}) {
-         return qq|$name<a href="$thisurl?mycmd=edit;mypage=$percent_name">?</a>|;
+         my $percent_name = &encode_percent($name2);
+         return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
+       } elsif ($database{'[['.$name2.']]'}) {
+         my $percent_name = &encode_percent('[['.$name2.']]');
+         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<span class="mark">?</span></a>|;
+       }
      }
  }
-Line 758 
 sub back_push {
+Line 768 
 sub back_push {
  }
  # 編集可能ページか？
- sub is_editable {
+ sub is_editable {return 1;
+ ## TODO: ...
      my ($pagename) = @_;
      foreach (@uneditable) {
          if ($pagename eq $_) {
-Line 771 
 sub is_editable {
+Line 782 
 sub is_editable {
      return 0;
  }
- # Validな名前か？
+ # Validな名前か?
  sub is_valid_name {
      my ($pagename) = @_;
      if ($pagename =~ /^$WikiName$/) {
-Line 833 
 sub print_sample {
+Line 844 
 sub print_sample {
  ----
  *大見出し2
  **小見出し2-1
- http://www.hyuki.com/
+ &lt;http://suika.fam.cx/&gt;
  **小見出し2-2
  [[結城浩]]

 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.10
 Legend:



Removed from v.1.3
 


changed lines


 
Added in v.1.10
-Removed from v.1.3
+Added in v.1.10

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24