Humm... force uri_unescape() and uri_escape() to solve WAP GW

uri escape handling problem

diff --git a/ChangeLog b/ChangeLog
index b217ba2..f9be5ff 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
+2004-03-25  ISHIKAWA Mutsumi  <ishikawa@debian.org>
+
+       * keitairc 1.18: \e$B0z?t$H$7$F\e(B uri escape \e$B$7$FEO$7$?\e(B JIS \e$B$N%A%c%M%kL>\e(B
+       \e$B$r\e(B WAP \e$B%2!<%H%&%'%$$,>!<j$K\e(B unescape \e$B$7$F$7$^$&$h$&$G!"\e(Bxhtml\e$BC<Kv$N\e(B
+       \e$B>l9g!"F|K\8l%A%c%M%k$N%O%s%I%j%s%0$,$*$+$7$/$J$k$N$G\e(B \e$B$7$g$&$,$J$$\e(B
+       \e$B$N$G\e(B \e$B$$$A$$$A\e(B uri_unescape() \e$B$7$?$b$N$r\e(B uri_escape() \e$B$9$k$h$&$K\e(B :-<
+
 2004-03-24  ISHIKAWA Mutsumi  <ishikawa@debian.org>
 
+       * keitairc 1.17: \e$BH/8@8e$N%G%#%U%)%k%H$N5sF0$r%*%j%8%J%k$NA4H/8@I=\e(B
+       \e$B<($KLa$7$?!#$5$i$K\e(B \e$BL$FI$N$_I=<($7$?$$>l9gMQ$K\e(B show_newmsgonly
+       \e$B%*%W%7%g%s$r?7@_\e(B
+
        * doc/default.css 1.1: mrmt.net \e$B$+$i\e(B import
        
        * doc/index.html 1.3: sf.jp \e$B$N\e(B web \e$B%5!<%P$,\e(B charset=euc-jp \e$B$rA[Dj\e(B

diff --git a/doc/index.html b/doc/index.html
index 74f5091..28d389e 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.5 2004-03-23 17:57:48 ishikawa Exp $
+$Id: index.html,v 1.6 2004-03-24 17:34:43 ishikawa Exp $
 </p>
 
 <h2>ÀâÌÀ</h2>
@@ -237,8 +237,6 @@ OK 
 <li>topic Êѹ¹¤â½Ð¤¹
 <li>¿§»ØÄêÂбþ
 <li>¥Á¥ã¥Í¥ë̾°·¤¤¤ò case insensitive ¤Ë
-<li>XHTMLüËö¤Ç¤É¤¦¤âÆüËܸì¥Á¥ã¥Í¥ë̾¤Î°·¤¤¤¬¤ª¤«¤·¤¤¤Î¤Çľ¤¹
-    (ISHIKAWA)
 </ul>
 
 <h2>FAQ</h2>

diff --git a/keitairc b/keitairc
index 95bce94..a47508e 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.17 2004-03-23 17:55:41 ishikawa Exp $
+# $Id: keitairc,v 1.18 2004-03-24 17:34:43 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.17 2004-03-23 17:55:41 ishikawa Exp $;
+my $rcsid = q$Id: keitairc,v 1.18 2004-03-24 17:34:43 ishikawa Exp $;
 my ($version) = $rcsid =~ m#,v ([0-9.]+)#;
 
 use strict;
@@ -359,7 +359,7 @@ sub on_web_request{
        $content .= '<a accesskey="7" href="#1"></a>';
 
        $content .= sprintf('<form action="%s%s" method="post">',
-                           $docroot, $uri);
+                           $docroot, uri_escape($channel));
        $content .= '<input type="text" name="m" size="10">';
        $content .= '<input type="submit" accesskey="1" value="OK[1]">';
         $content .= qq(<a accesskey="8" href="$docroot">back[8]</a><br>);