keitairc 1.32

diff --git a/ChangeLog b/ChangeLog
index 01f0561..4a37a6a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-30  Jun Morimoto  <morimoto@mrmt.net>
+
+       * keitairc 1.32: PC\e$B%5%$%H%S%e!<%"$N%j%s%/$,=P$F$$$^$;$s$G$7$?!#\e(B
+
 2007-09-27  Jun Morimoto  <morimoto@mrmt.net>
 
        * keitairc 1.31:

diff --git a/doc/changes.html b/doc/changes.html
index 93bbf58..293cab9 100644 (file)
--- a/doc/changes.html
+++ b/doc/changes.html
@@ -22,6 +22,12 @@
 
     <dl>
 
+      <dt>1.32</dt>
+      <dd>
+       EZweb·ÈÂӤऱ¤ËPC¥µ¥¤¥È¥Ó¥å¡¼¥¢ÍѤΥê¥ó¥¯¤ò½Ð¤¹µ¡Ç½¤¬
+       Ư¤¤¤Æ¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£
+      </dd>
+
       <dt>1.31</dt>
       <dd>
        irc¥µ¡¼¥Ð¤«¤éÀÚÃǤµ¤ì¤¿ºÝ¤ËºÆÀܳ¤¹¤ë¤è¤¦¤Ë¤·¤¿

diff --git a/doc/index.html b/doc/index.html
index 42093bf..3312f52 100644 (file)
--- a/doc/index.html
+++ b/doc/index.html
@@ -13,7 +13,7 @@
 
     <p class="flushleft">
       morimoto@mrmt.net<br>
-      $Id: index.html,v 1.38 2007-09-27 22:20:01 morimoto Exp $
+      $Id: index.html,v 1.39 2007-09-30 10:56:06 morimoto Exp $
     </p>
 
     <hr>
@@ -31,10 +31,10 @@
        ÅÅÏÃÈÖ¹æ¤Ï²¡¤»¤ÐÅÅÏäǤ­¤Þ¤¹¡£<br>
        URL¥ê¥ó¥¯¤Ï¡¢¥Ý¥±¥Ã¥È¤Ï¤Æ¤Ê¤ò²ð¤·¤¿±ÜÍ÷¥ê¥ó¥¯¡¢
        PC¥µ¥¤¥È¥Ó¥å¡¼¥¢¡¼¤ò²ð¤·¤¿±ÜÍ÷¥ê¥ó¥¯(au¤ÎÂбþüËö¤Î¤ß)¤âÂбþ¡£
-      <li>plum ¤Î multicast.plm ¤ò»È¤Ã¤Æ¤¤¤Æ¤âÂç¾æÉס£
       <li>irc¥µ¡¼¥ÐºÆÀܳÂбþ¡£
       <li>¥Ñ¥¹¥ï¡¼¥Éǧ¾ÚÂбþ¡£EZwebüËö¤Ç¤ÏEZÈÖ¹æǧ¾ÚÂбþ¡£
        AIR-EDGE Phone¤Ê¤É¤Ç¤ÏCookieǧ¾Ú¤Ë¤âÂбþ¡£
+      <li>plum ¤Î multicast.plm ¤ò»È¤Ã¤Æ¤¤¤Æ¤âÂç¾æÉס£
     </ul>
 
     <p>
@@ -66,8 +66,8 @@
 
     <h2><a name="version">ºÇ¿·¥Ð¡¼¥¸¥ç¥ó</a></h2>
     <p>
-      keitairc 1.31
-      (2007/9/28 ¥ê¥ê¡¼¥¹)
+      keitairc 1.32
+      (2007/9/30 ¥ê¥ê¡¼¥¹)
       ¤Ç¤¹¡£<br>
       ¤Á¤Ê¤ß¤Ë¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Ï¡¢Ã±¤Ë keitairc ¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤Î CVS rcsid ¤ò¼è¤Ã¤Æ¤¤¤ë¤À¤±¤Ç¤¹¡£
     </p>

diff --git a/keitairc b/keitairc
index 85e67c0..2a171c7 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.31 2007-09-27 22:20:01 morimoto Exp $
+# $Id: keitairc,v 1.32 2007-09-30 10:56:06 morimoto Exp $
 #
 # Copyright (c) 2003-2007 Jun Morimoto <morimoto@mrmt.net>
 # This program is covered by the GNU General Public License 2
@@ -8,7 +8,7 @@
 # Depends: libunicode-japanese-perl, libpoe-component-irc-perl,
 #   liburi-perl, libwww-perl, libappconfig-perl, libproc-daemon-perl
 
-my $rcsid = q$Id: keitairc,v 1.31 2007-09-27 22:20:01 morimoto Exp $;
+my $rcsid = q$Id: keitairc,v 1.32 2007-09-30 10:56:06 morimoto Exp $;
 my ($version) = $rcsid =~ m#,v ([0-9.]+)#;
 
 use strict;
@@ -425,7 +425,7 @@ sub link_url{
        my $url = shift;
        my @buf;
        push @buf, sprintf('<a href="%s">%s</a>', $url, $url);
-       if(defined $config->au_pcsv && $ENV{HTTP_USER_AGENT} =~ /^KDDI-/){
+       if(defined $config->au_pcsv){
                push @buf, sprintf('<a href="device:pcsiteviewer?url=%s">[PCSV]</a>', $url);
        }
        push @buf, sprintf('<a href="http://mgw.hatena.ne.jp/?url=%s&noimage=0&split=1">[ph]</a>', uri_escape($url));