/[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.37 by wakaba, Fri Dec 13 06:17:44 2002 UTC revision 1.38 by wakaba, Sun Dec 15 06:08:33 2002 UTC
# Line 598  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 1328  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;
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24