1.26

diff --git a/ChangeLog b/ChangeLog
index 7dc6afb..7a31fd8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-04  Jun Morimoto  <morimoto@xantia.citroen.org>
+
+       * kaitairc 1.26: \e$B$^$H$aFI$_$+$i!"F|K\8l$dBgJ8;z1QJ8;z$NF~$C$?%A%c\e(B
+       \e$B%M%kL>$K0\F0$7$FH/8@$9$k$H!"B>?M$b4,$-9~$s$G$*$+$7$/$7$F$7$^$C$?$N\e(B
+       \e$B$r=$@5!#L$FI9T?tI=<($,$*$+$7$+$C$?$N$r=$@5\e(B
+
 2004-08-29  Jun Morimoto  <morimoto@xantia.citroen.org>
 
        * keitairc 1.25: added <hr>

diff --git a/doc/index.html b/doc/index.html
index 4521dc1..e2256a2 100644 (file)
--- a/doc/index.html
+++ b/doc/index.html
@@ -10,7 +10,7 @@
 
 <p class="flushleft">
 morimoto@xantia.citroen.org<br>
-$Id: index.html,v 1.19 2004-08-29 12:24:21 morimoto Exp $
+$Id: index.html,v 1.20 2004-09-03 16:11:55 morimoto Exp $
 </p>
 
 <h2>ÀâÌÀ</h2>
@@ -180,6 +180,11 @@ OK 
 <h2>Changes</h2>
 <dl>
 
+<dt>1.26
+<dd>¤Þ¤È¤áÆɤߤ«¤é¡¢ÆüËܸì¤äÂçʸ»ú±Ñʸ»ú¤ÎÆþ¤Ã¤¿¥Á¥ã¥Í¥ë̾¤Ë°ÜÆ°¤·¤Æȯ¸À¤¹¤ë¤È¡¢
+¾¿Í¤â´¬¤­¹þ¤ó¤Ç¤ª¤«¤·¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¤Î¤ò½¤Àµ<br>
+̤ÆɹԿôɽ¼¨¤¬¤ª¤«¤·¤«¤Ã¤¿¤Î¤ò½¤Àµ
+
 <dt>1.25
 <dd>Á´¥Á¥ã¥Í¥ë¤Î̤ÆɤޤȤáÆɤßÄɲÃ
 

diff --git a/keitairc b/keitairc
index 7eebe8f..b067681 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.25 2004-08-29 12:24:21 morimoto Exp $
+# $Id: keitairc,v 1.26 2004-09-03 16:11:55 morimoto 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.25 2004-08-29 12:24:21 morimoto Exp $;
+my $rcsid = q$Id: keitairc,v 1.26 2004-09-03 16:11:55 morimoto Exp $;
 my ($version) = $rcsid =~ m#,v ([0-9.]+)#;
 
 use strict;
@@ -185,7 +185,7 @@ sub add_message{
 
     if(@tmp2 > $config->web_lines){
        $channel_recent{$canon_channel} =
-               join("\n", splice(@tmp2, -$config->web_lines));
+               join("\n", @tmp2[0 .. $config->web_lines-1]);
     }else{
        $channel_recent{$canon_channel} = join("\n", @tmp2);
     }
@@ -256,7 +256,7 @@ sub index_page{
 
        # \e$BL$FI9T?t\e(B
        if($unread_lines{$canon_channel}){
-               $buf .= sprintf(' <a href="%s%s,recent">%d</a>',
+               $buf .= sprintf(' <a href="%s%s,recent">%s</a>',
                                $docroot,
                                uri_escape($channel),
                                $unread_lines{$canon_channel});
@@ -399,11 +399,11 @@ sub on_web_request{
 
       if($option{recent}){
         # recent messages on every channel
-       for my $channel (sort keys %channel_name){
-         my $canon_channel = &canon_name($channel);
-         if(defined($channel_name{$canon_channel}) &&
+       for my $canon_channel (sort keys %channel_name){
+         my $channel = $channel_name{$canon_channel};
+         if(length($channel) &&
             length($channel_recent{$canon_channel})){
-           $content .= "<b>$channel_name{$canon_channel}</b>";
+           $content .= '<b>' . Jcode->new($channel_name{$canon_channel})->euc . '</b>';
            $content .= sprintf(' <a href="%s%s">more..</a><br>',
                                $docroot, uri_escape($channel));
            $content .= &render($channel_recent{$canon_channel});