--- suikawiki/script/wiki.cgi	2002/12/10 07:27:38	1.36
+++ suikawiki/script/wiki.cgi	2002/12/13 06:17:44	1.37
@@ -217,6 +217,8 @@
 }
 
 sub do_output_css {
+  wiki::referer::add ($form{mypage}, $ENV{HTTP_REFERER});
+  wiki::useragent::add ($ENV{HTTP_USER_AGENT});
   my $content = $database{$form{mypage}};
   if ($content =~ m#^\s*/\*\s*W3C-CSS#) {
     my $lm = &get_info($form{mypage}, $info_LastModified);
@@ -312,6 +314,8 @@
 }
 
 sub do_index {
+  wiki::referer::add ($form{mypage}, $ENV{HTTP_REFERER});
+  wiki::useragent::add ($ENV{HTTP_USER_AGENT});
     &print_header($IndexPage);
     print qq(<ul>);
     foreach my $page (sort keys %database) {
@@ -322,6 +326,15 @@
         }
     }
     print qq(</ul>);
+    my ($r, $c) = get_search_result ($form{mypage});
+    if ($c) {
+      print qq{<h2 @{[&id_and_name('wikipage-see-also')]}>See also</h2>};
+      print $r;
+    }
+    my $rl = wiki::referer::list_html ($form{mypage});
+    if ($rl) {
+	print qq(<div @{[&id_and_name('wikipage-referer')]}><h2>??????</h2>\n$rl</div>\n);
+    }
     &print_footer($IndexPage);
 }
 
@@ -547,17 +560,17 @@
   print <<EOH;
 <div class="tools">
     @{[ $admineditable
-        ? 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> | )
         : qq()
     ]}
     @{[ $editable
         ? #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">編集</a> | )
+        qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedpage" accesskey="E" class="wiki-cmd">編集</a> | )
         : qq()
     ]}
-    <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> | 
     @{[ $admineditable
-        ? 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> | )
         : qq()
     ]}
     <a href="$url_cgi?$CreatePage" class="wiki">新規</a> | 
@@ -606,8 +619,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.36 $;
-  my $cvslog2 = q$Date: 2002/12/10 07:27:38 $;
+  my $cvslog1 = q$Revision: 1.37 $;
+  my $cvslog2 = q$Date: 2002/12/13 06:17:44 $;
   print_navigate_links ($page);
   print <<"EOD";
 @{[ $lm ? qq(<div id="wikipage-last-modified">Last modified: $lm</div>) : '' ]}