From 150d030de0420e6555ac453f8f9062893b8f9a0b Mon Sep 17 00:00:00 2001 From: morimoto Date: Sun, 30 Sep 2007 10:56:06 +0000 Subject: [PATCH] keitairc 1.32 --- ChangeLog | 4 ++++ doc/changes.html | 6 ++++++ doc/index.html | 8 ++++---- keitairc | 6 +++--- 4 files changed, 17 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 01f0561..4a37a6a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-09-30 Jun Morimoto + + * keitairc 1.32: PC$B%5%$%H%S%e!<%"$N%j%s%/$,=P$F$$$^$;$s$G$7$?!#(B + 2007-09-27 Jun Morimoto * keitairc 1.31: diff --git a/doc/changes.html b/doc/changes.html index 93bbf58..293cab9 100644 --- a/doc/changes.html +++ b/doc/changes.html @@ -22,6 +22,12 @@
+
1.32
+
+ EZweb·ÈÂӤऱ¤ËPC¥µ¥¤¥È¥Ó¥å¡¼¥¢ÍѤΥê¥ó¥¯¤ò½Ð¤¹µ¡Ç½¤¬ + Ư¤¤¤Æ¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ +
+
1.31
irc¥µ¡¼¥Ð¤«¤éÀÚÃǤµ¤ì¤¿ºÝ¤ËºÆÀܳ¤¹¤ë¤è¤¦¤Ë¤·¤¿ diff --git a/doc/index.html b/doc/index.html index 42093bf..3312f52 100644 --- a/doc/index.html +++ b/doc/index.html @@ -13,7 +13,7 @@

morimoto@mrmt.net
- $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 $


@@ -31,10 +31,10 @@ ÅÅÏÃÈÖ¹æ¤Ï²¡¤»¤ÐÅÅÏäǤ­¤Þ¤¹¡£
URL¥ê¥ó¥¯¤Ï¡¢¥Ý¥±¥Ã¥È¤Ï¤Æ¤Ê¤ò²ð¤·¤¿±ÜÍ÷¥ê¥ó¥¯¡¢ PC¥µ¥¤¥È¥Ó¥å¡¼¥¢¡¼¤ò²ð¤·¤¿±ÜÍ÷¥ê¥ó¥¯(au¤ÎÂбþüËö¤Î¤ß)¤âÂбþ¡£ -
  • plum ¤Î multicast.plm ¤ò»È¤Ã¤Æ¤¤¤Æ¤âÂç¾æÉס£
  • irc¥µ¡¼¥ÐºÆÀܳÂбþ¡£
  • ¥Ñ¥¹¥ï¡¼¥Éǧ¾ÚÂбþ¡£EZwebüËö¤Ç¤ÏEZÈÖ¹æǧ¾ÚÂбþ¡£ AIR-EDGE Phone¤Ê¤É¤Ç¤ÏCookieǧ¾Ú¤Ë¤âÂбþ¡£ +
  • plum ¤Î multicast.plm ¤ò»È¤Ã¤Æ¤¤¤Æ¤âÂç¾æÉס£

    @@ -66,8 +66,8 @@

    ºÇ¿·¥Ð¡¼¥¸¥ç¥ó

    - keitairc 1.31 - (2007/9/28 ¥ê¥ê¡¼¥¹) + keitairc 1.32 + (2007/9/30 ¥ê¥ê¡¼¥¹) ¤Ç¤¹¡£
    ¤Á¤Ê¤ß¤Ë¥Ð¡¼¥¸¥ç¥óÈÖ¹æ¤Ï¡¢Ã±¤Ë keitairc ¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤Î CVS rcsid ¤ò¼è¤Ã¤Æ¤¤¤ë¤À¤±¤Ç¤¹¡£

    diff --git a/keitairc b/keitairc index 85e67c0..2a171c7 100755 --- 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 # 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('%s', $url, $url); - if(defined $config->au_pcsv && $ENV{HTTP_USER_AGENT} =~ /^KDDI-/){ + if(defined $config->au_pcsv){ push @buf, sprintf('[PCSV]', $url); } push @buf, sprintf('[ph]', uri_escape($url)); -- 2.11.0