/[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.36 by wakaba, Tue Dec 10 07:27:38 2002 UTC revision 1.37 by wakaba, Fri Dec 13 06:17:44 2002 UTC
# Line 217  sub do_read { Line 217  sub do_read {
217  }  }
218    
219  sub do_output_css {  sub do_output_css {
220      wiki::referer::add ($form{mypage}, $ENV{HTTP_REFERER});
221      wiki::useragent::add ($ENV{HTTP_USER_AGENT});
222    my $content = $database{$form{mypage}};    my $content = $database{$form{mypage}};
223    if ($content =~ m#^\s*/\*\s*W3C-CSS#) {    if ($content =~ m#^\s*/\*\s*W3C-CSS#) {
224      my $lm = &get_info($form{mypage}, $info_LastModified);      my $lm = &get_info($form{mypage}, $info_LastModified);
# Line 312  EOD Line 314  EOD
314  }  }
315    
316  sub do_index {  sub do_index {
317      wiki::referer::add ($form{mypage}, $ENV{HTTP_REFERER});
318      wiki::useragent::add ($ENV{HTTP_USER_AGENT});
319      &print_header($IndexPage);      &print_header($IndexPage);
320      print qq(<ul>);      print qq(<ul>);
321      foreach my $page (sort keys %database) {      foreach my $page (sort keys %database) {
# Line 322  sub do_index { Line 326  sub do_index {
326          }          }
327      }      }
328      print qq(</ul>);      print qq(</ul>);
329        my ($r, $c) = get_search_result ($form{mypage});
330        if ($c) {
331          print qq{<h2 @{[&id_and_name('wikipage-see-also')]}>See also</h2>};
332          print $r;
333        }
334        my $rl = wiki::referer::list_html ($form{mypage});
335        if ($rl) {
336            print qq(<div @{[&id_and_name('wikipage-referer')]}><h2>??????</h2>\n$rl</div>\n);
337        }
338      &print_footer($IndexPage);      &print_footer($IndexPage);
339  }  }
340    
# Line 547  sub print_navigate_links (@) { Line 560  sub print_navigate_links (@) {
560    print <<EOH;    print <<EOH;
561  <div class="tools">  <div class="tools">
562      @{[ $admineditable      @{[ $admineditable
563          ? qq(<a title="$resource{admineditthispage}" href="$url_cgi?mycmd=adminedit;mypage=$cookedpage">$resource{admineditbutton}</a> | )          ? qq(<a title="$resource{admineditthispage}" href="$url_cgi?mycmd=adminedit;mypage=$cookedpage" class="wiki-cmd">$resource{admineditbutton}</a> | )
564          : qq()          : qq()
565      ]}      ]}
566      @{[ $editable      @{[ $editable
567          ? #qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedpage" accesskey="E">$resource{editbutton} <kbd>E</kbd></a> | )          ? #qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedpage" accesskey="E">$resource{editbutton} <kbd>E</kbd></a> | )
568          qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedpage" accesskey="E">編集</a> | )          qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedpage" accesskey="E" class="wiki-cmd">編集</a> | )
569          : qq()          : qq()
570      ]}      ]}
571      <a href="$url_cgi?mycmd=read;mypage=$cookedpage;x-param=@{[time.[0..9]->[rand 10]]}">表示</a> |      <a href="$url_cgi?mycmd=read;mypage=$cookedpage;x-param=@{[time.[0..9]->[rand 10]]}" class="wiki-cmd">表示</a> |
572      @{[ $admineditable      @{[ $admineditable
573          ? qq(<a href="$url_cgi?mycmd=diff;mypage=$cookedpage">$resource{diffbutton}</a> | )          ? qq(<a href="$url_cgi?mycmd=diff;mypage=$cookedpage" class="wiki-cmd">$resource{diffbutton}</a> | )
574          : qq()          : qq()
575      ]}      ]}
576      <a href="$url_cgi?$CreatePage" class="wiki">新規</a> |      <a href="$url_cgi?$CreatePage" class="wiki">新規</a> |
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24