/[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.40 by wakaba, Thu Dec 19 09:50:18 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 900  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 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;
# Line 1851  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.37  
changed lines
  Added in v.1.40
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24