document update

[keitairc/keitairc.git] / keitairc
diff --git a/keitairc b/keitairc

index e322e1c..285b844 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
  #!/usr/bin/perl
  # keitairc
-# $Id: keitairc,v 1.14 2004-03-23 16:06:16 ishikawa Exp $
+# $Id: keitairc,v 1.16 2004-03-23 16:12:56 ishikawa Exp $
  #
  # Copyright (c) 2003 Jun Morimoto <morimoto@xantia.citroen.org>
  # This program is covered by the GNU General Public License 2
@@ -8,7 +8,7 @@
  # Depends: libjcode-pm-perl, libpoe-component-irc-perl,
  #   liburi-perl, libwww-perl, libappconfig-perl
  
-my $rcsid = q$Id: keitairc,v 1.14 2004-03-23 16:06:16 ishikawa Exp $;
+my $rcsid = q$Id: keitairc,v 1.16 2004-03-23 16:12:56 ishikawa Exp $;
  my ($version) = $rcsid =~ m#,v ([0-9.]+)#;
  
  use strict;
@@ -312,6 +312,7 @@ sub on_web_request{
  
      my $uri = $request->uri;
      my $content = '<html><head>';
+    $content .= '<meta http-equiv="Cache-Control" content="max-age=0" />';
  
      # POST \e$B$5$l$F$-$?$b$N$OH/8@\e(B
      if($request->method =~ /POST/i){
@@ -356,25 +357,23 @@ sub on_web_request{
  
         $content .= '<a name="1"></a>';
         $content .= '<a accesskey="7" href="#1"></a>';
-       $content .= '<a accesskey="8" href="../"></a>';
  
         $content .= sprintf('<form action="%s%s" method="post">',
                             $docroot, $uri);
         $content .= '<input type="text" name="m" size="10">';
         $content .= '<input type="submit" accesskey="1" value="OK[1]">';
-        $content .= '<a href="../">back[8]</a><br>';
+        $content .= qq(<a accesskey="8" href="$docroot">back[8]</a><br>);
         # $content .= '<input type="submit" accesskey="1" value="&#63920;">';
         $content .= '</form>';
  
         if(defined($channel_name{$channel})){
             if(defined($channel_buffer{$channel}) &&
                length($channel_buffer{$channel})){
-               $content .= qq(<a accesskey="8" href="$docroot"></a>);
                 $content .= '<a accesskey="9" href="#2"></a>';
                 if (($update_chk eq 1)||($send_chk eq 1)) {
                   $content .= &render($channel_recent{$channel});
                   $content .= sprintf('<a accesskey="5" href="%s%s">
-                       ..more[5]</a>', "../", uri_escape($channel));
+                       ..more[5]</a>', $docroot, uri_escape($channel));
                 } else {
                   $content .= &render($channel_buffer{$channel});
                 }