/[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.40 by wakaba, Thu Dec 19 09:50:18 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> |
# Line 585  sub make_navigate_links ($) { Line 598  sub make_navigate_links ($) {
598      push @link, {rel=>'search', href=>"$url_cgi?$SearchPage", class=>'wiki', title=>$resource{searchbutton}};      push @link, {rel=>'search', href=>"$url_cgi?$SearchPage", class=>'wiki', title=>$resource{searchbutton}};
599      push @link, {rel=>'help', href=>"$url_cgi?WikiHelp", class=>'wiki'};      push @link, {rel=>'help', href=>"$url_cgi?WikiHelp", class=>'wiki'};
600      push @link, {rel=>'copyright', href=>"$url_cgi?WikiPageLicense", class=>'wiki'};      push @link, {rel=>'copyright', href=>"$url_cgi?WikiPageLicense", class=>'wiki'};
601        push @link, {rel=>'jump', href=>q(javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='http://suika.fam.cx/%7Ewakaba/-temp/wiki/wiki%3F'+encodeURIComponent(WikiName)%7D), class=>'wiki-cmd', title=>'Jump to...'};
602        push @link, {rel=>'jump', href=>q(javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='http://suika.fam.cx/%7Ewakaba/-temp/wiki/wiki%3Fmycmd=edit;mypage='+encodeURIComponent(WikiName)%7D), class=>'wiki-cmd', title=>'Jump to (edit)...'};
603        push @link, {rel=>'lucky', href=>"$url_cgi?mycmd=RandomJump;x-param=@{[time.[0..9]->[rand 10]]}", class=>'wiki randomlink', title=>'Somewhere'};
604      my ($Links, $links) = ('', '');      my ($Links, $links) = ('', '');
605      for my $e (@link) {      for my $e (@link) {
606          $links .= qq(<link);          $links .= qq(<link);
# Line 887  sub make_custom_form ($$$$) { Line 903  sub make_custom_form ($$$$) {
903              &load_formatter (qw/form_input form_option/);              &load_formatter (qw/form_input form_option/);
904              $definition = &unescape ($definition);              $definition = &unescape ($definition);
905              $definition =~ s/\\(.)/$1/g;              $definition =~ s/\\(.)/$1/g;
             $definition .= ' %submit;' if $definition !~ /%submit/;  
906              $option = &unescape ($option);              $option = &unescape ($option);
907              $option =~ s/\\(.)/$1/g;              $option =~ s/\\(.)/$1/g;
908              $fmt{form_option}->replace ($option, $param);              $fmt{form_option}->replace ($option, $param);
909                $definition .= ' %submit;' if $definition !~ /%submit/ && !$param->{output}->{nosubmit};
910              my $target_page = $param->{output}->{page} || $form{mypage};              my $target_page = $param->{output}->{page} || $form{mypage};
911              $param->{form_disabled} = 1 if $fixedpage{$target_page};              $param->{form_disabled} = 1 if $fixedpage{$target_page};
912              my $target_form = $param->{output}->{id};              my $target_form = $param->{output}->{id};
# Line 1315  sub init_InterWikiName { Line 1331  sub init_InterWikiName {
1331    $fmt{interwiki}->{encoded} = sub {    $fmt{interwiki}->{encoded} = sub {
1332      my ($o, $p) = @_;      my ($o, $p) = @_;
1333      if ($o->{except}) {      if ($o->{except}) {
1334        $o->{except} =~ tr/\x00-\x20\x22\x23%\x2D<>^[\x5C]`{|}\x7F-\xFF//d;        $o->{except} =~ tr/\x00-\x20\x22%\x2D<>^[\x5C]`{|}\x7F-\xFF//d;
1335      }      }
1336      my $s = &code_convert (\$p->{name}, $o->{charset} || 'iso-2022-7bit');      my $s = &code_convert (\$p->{name}, $o->{charset} || 'iso-2022-7bit');
1337      $s =~ s/([^$o->{except}A-Za-z0-9_-])/sprintf '%%%02X', unpack 'C', $1/ge;      $s =~ s/([^$o->{except}A-Za-z0-9_-])/sprintf '%%%02X', unpack 'C', $1/ge;
# Line 1838  package wiki::useragent; Line 1854  package wiki::useragent;
1854  sub add ($) {  sub add ($) {
1855    my $s = shift;    my $s = shift;
1856    return unless length $s;    return unless length $s;
1857    $s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/g;    $s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/ge;
1858    my %ua;    my %ua;
1859    for (split /\n/, &main::__get_database('WikiUserAgentList')) {    for (split /\n/, &main::__get_database('WikiUserAgentList')) {
1860      if (/^-\[(\d+)\] (.+)$/) {      if (/^-\[(\d+)\] (.+)$/) {
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.40
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24