/[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.4 by wakaba, Mon Feb 4 15:03:23 2002 UTC revision 1.12 by wakaba, Sun Mar 24 01:14:30 2002 UTC
# Line 108  my @uneditable = ( $whatsnew ); Line 108  my @uneditable = ( $whatsnew );
108  # 文字']'を1つ多くとるようにしている。  # 文字']'を1つ多くとるようにしている。
109  #  #
110  my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';  my $WikiName = '([A-Z][a-z]+([A-Z][a-z]+)+)';
111  my $BracketName = '\[\[([^>\s]+?\]?)\]\]';  my $BracketName = '\[\[([^>\x09]+?\]?)\]\]';
112    
113  # アイコン部分のタグ  # アイコン部分のタグ
114  my $IconTag = ''; #<<"EOD";  my $IconTag = ''; #<<"EOD";
# Line 564  sub inline { Line 564  sub inline {
564      $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;      $line =~ s|'''([^']+?)'''|<strong>$1</strong>|g;
565      $line =~ s|''([^']+?)''|<em>$1</em>|g;                $line =~ s|''([^']+?)''|<em>$1</em>|g;          
566      $line =~ s!      $line =~ s!
567                  (         (
568                      ((mailto|http|https|ftp):[\x21-\x7E]*) # Direct http://...           (?:&lt;(?:mailto|http|https|ftp|urn):[\x21-\x7E]*)&gt;
569                          |         #| (?:$WikiName)                         # LocalLinkLikeThis
570                      ($WikiName)                         # LocalLinkLikeThis         | (?:$BracketName)                      # [[日本語リンク]]
571                          |         )
                     ($BracketName)                      # [[日本語リンク]]  
                 )  
572              !              !
573                  &make_link($1)                  &make_link($1)
574              !gex;              !gex;
# Line 580  sub inline { Line 578  sub inline {
578  # ページのタイトルからページの内容を得る  # ページのタイトルからページの内容を得る
579  sub get_page {  sub get_page {
580      my $page_name = shift;      my $page_name = shift;
581      return $database{$page_name};      return $database{$page_name} || $database{'[['.$page_name.']]'};
582  }  }
583    
584  # ページの内容を与える  # ページの内容を与える
# Line 617  sub set_page { Line 615  sub set_page {
615  sub print_header {  sub print_header {
616      my $title = shift;      my $title = shift;
617      print <<"EOD";      print <<"EOD";
618  Content-type: text/html  Content-type: text/html; charset=${charset}
619    
620  <html><head>  <html><head>
621  <title>$title</title>  <title>$title</title>
# Line 647  EOD Line 645  EOD
645  <a href="$thisurl?mycmd=list">一覧</a> |  <a href="$thisurl?mycmd=list">一覧</a> |
646  $editlink  $editlink
647  <a href="$thisurl?mycmd=search">単語検索</a> |  <a href="$thisurl?mycmd=search">単語検索</a> |
648  <a href="$thisurl?mycmd=read;mypage=$whatsnew">最終更新</a>  <a href="$thisurl?mycmd=read;mypage=$whatsnew">最近の更新</a>
649   ]   ]
650  </p>  </p>
651  EOD  EOD
# Line 656  EOD Line 654  EOD
654  # ページのフッタを出力  # ページのフッタを出力
655  sub print_footer {  sub print_footer {
656      print <<"EOD";      print <<"EOD";
657  <address>  <div class="navigation">
658  <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="http://www.hyuki.com/yukiwiki/">YukiWiki</a> 1.6.6 Copyright (C) 2000,2001 by <a href="http://www.hyuki.com/">Hiroshi Yuki.</a>
659  + <a href="$modifierlink">$modifier</a> ${version}.  + <a href="$modifierlink">$modifier</a> ${version}.
660  [<a href="/" title="このサーバーの首頁">/</a>  [<a href="/" title="このサーバーの首頁">/</a>
661  <a href="/map" title="このサーバーの案内">地図</a>  <a href="/map" title="このサーバーの案内">地図</a>
662  <a href="/search/" title="このサーバーの検索">検索</a>]  <a href="/search/" title="このサーバーの検索">検索</a>]
663  </address>  </div>
 </body></html>  
664  EOD  EOD
665      print <<'EOH';
666    <div class="update">
667    <a href="/gate/cvs/wakaba/wiki/" title="CVS Repository">
668    $Revision$ $Date$
669    </a>
670    </div>
671    </body></html>
672    EOH
673  }  }
674    
675  # URLやページの名前からリンクを作る  # URLやページの名前からリンクを作る
676  sub make_link {  sub make_link {
677      my $name = shift;      my $name = shift;
678      if ($name =~ /^(http|https|ftp).*?(\.gif|\.png|\.jpeg|\.jpg)?$/) {      $name =~ s/^&lt;(.*)&gt;$/$1/;
679        $name =~ s/^\[\[(.*)\]\]$/$1/;
680        if ($name =~ /^(http|https|ftp).*?(\.png|\.jpeg|\.jpg)?$/) {
681          if ($2) {          if ($2) {
682              return qq|<a href="$name"><img border="0" src="$name" /></a>|;              return qq|<a href="$name"><img border="0" src="$name" /></a>|;
683          } else {          } else {
684              return qq|<a href="$name">$name</a>|;              return qq|&lt;<a href="$name">$name</a>&gt;|;
685          }          }
686      } elsif ($name =~ /^mailto:(.*)/) {      } elsif ($name =~ /^mailto:(.*)/) {
687          my $address = $1;          my $address = $1;
688          return qq|<a href="$name">$address</a>|;          return qq|&lt;<a href="$name">$address</a>&gt;|;
689      } elsif ($database{$name}) {      } elsif ($name =~ m#^urn:[0-9A-Za-z_:;/.-]+#) {
690          my $percent_name = &encode_percent($name);          return qq|&lt;<a href="/uri-res/N2L?${name}">$name</a>&gt;|;
691          return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name">$name</a>|;      } else {
692      } else {        my $name2 = $name; $name2 =~ tr/\x20/-/;
693          my $percent_name = &encode_percent($name);        if ($database{$name2}) {
694          return qq|$name<a href="$thisurl?mycmd=edit;mypage=$percent_name">?</a>|;          my $percent_name = &encode_percent($name2);
695            return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
696          } elsif ($database{'[['.$name2.']]'}) {
697            my $percent_name = &encode_percent('[['.$name2.']]');
698            return qq|<a href="$thisurl?mycmd=read;mypage=$percent_name" class="wiki">$name</a>|;
699          } else {
700            my $percent_name = &encode_percent($name2);
701            return qq|<a href="$thisurl?mycmd=edit;mypage=$percent_name" class="wiki newpage">$name<span class="mark">?</span></a>|;
702          }
703      }      }
704  }  }
705    
# Line 759  sub back_push { Line 774  sub back_push {
774  }  }
775    
776  # 編集可能ページか？  # 編集可能ページか？
777  sub is_editable {  sub is_editable {return 1;
778    ## TODO: ...
779      my ($pagename) = @_;      my ($pagename) = @_;
780      foreach (@uneditable) {      foreach (@uneditable) {
781          if ($pagename eq $_) {          if ($pagename eq $_) {
# Line 772  sub is_editable { Line 788  sub is_editable {
788      return 0;      return 0;
789  }  }
790    
791  # Validな名前か？  # Validな名前か?
792  sub is_valid_name {  sub is_valid_name {
793      my ($pagename) = @_;      my ($pagename) = @_;
794      if ($pagename =~ /^$WikiName$/) {      if ($pagename =~ /^$WikiName$/) {
# Line 834  sub print_sample { Line 850  sub print_sample {
850  ----  ----
851  *大見出し2  *大見出し2
852  **小見出し2-1  **小見出し2-1
853  http://www.hyuki.com/  &lt;http://suika.fam.cx/&gt;
854  **小見出し2-2  **小見出し2-2
855    
856  [[結城浩]]  [[結城浩]]
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.12
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24