--- suikawiki/script/wiki.cgi	2002/12/13 06:17:44	1.37
+++ suikawiki/script/wiki.cgi	2002/12/15 06:08:33	1.38
@@ -598,6 +598,9 @@
     push @link, {rel=>'search', href=>"$url_cgi?$SearchPage", class=>'wiki', title=>$resource{searchbutton}};
     push @link, {rel=>'help', href=>"$url_cgi?WikiHelp", class=>'wiki'};
     push @link, {rel=>'copyright', href=>"$url_cgi?WikiPageLicense", class=>'wiki'};
+    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...'};
+    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)...'};
+    push @link, {rel=>'lucky', href=>"$url_cgi?mycmd=RandomJump;x-param=@{[time.[0..9]->[rand 10]]}", class=>'wiki randomlink', title=>'Somewhere'};
     my ($Links, $links) = ('', '');
     for my $e (@link) {
 	$links .= qq(<link);
@@ -619,8 +622,8 @@
     my $epage = &encode ($page);
     $walrus_log = ($walrus_debugging) ? &text_to_html("----\n$walrus_log") : '';    # Walrus add (debug)
     # Walrus mod (1) start
-  my $cvslog1 = q$Revision: 1.37 $;
-  my $cvslog2 = q$Date: 2002/12/13 06:17:44 $;
+  my $cvslog1 = q$Revision: 1.38 $;
+  my $cvslog2 = q$Date: 2002/12/15 06:08:33 $;
   print_navigate_links ($page);
   print <<"EOD";
 @{[ $lm ? qq(<div id="wikipage-last-modified">Last modified: $lm</div>) : '' ]}
@@ -1328,7 +1331,7 @@
   $fmt{interwiki}->{encoded} = sub {
     my ($o, $p) = @_;
     if ($o->{except}) {
-      $o->{except} =~ tr/\x00-\x20\x22\x23%\x2D<>^[\x5C]`{|}\x7F-\xFF//d;
+      $o->{except} =~ tr/\x00-\x20\x22%\x2D<>^[\x5C]`{|}\x7F-\xFF//d;
     }
     my $s = &code_convert (\$p->{name}, $o->{charset} || 'iso-2022-7bit');
     $s =~ s/([^$o->{except}A-Za-z0-9_-])/sprintf '%%%02X', unpack 'C', $1/ge;