[Mew-dist 87] Re: Anonymous FTP with proxy

[kurati at example.com]

こんにちは、倉地@川崎重工です。

On Thu, 21 Nov 1996 13:48:55 +0900, Toshihiko SHIMOKAWA / 下川俊彦 <toshi at example.com> wrote:

> > 1.proxy port が 80 の場合に
> > 	httpget: chat'print("GET http://hogehoge.com/ HTTP/1.0"): Permission denied
> >   のようなエラーがでる。( 特権ポート)
> 
> これ, ほんとですか? 僕の手元では proxy port を 80 にしたままで動いてい
> ますよ. 80 ってのは 宛先ポートだから, 特権ポートかどうかは関係ないと思
> いますです. 

特権ポートかどうかは関係ありませんでした。

これは、perl-5.00[23] に含まれる chat2.pl の print に問題がありました。

以下のパッチを当てる事で、httpget が正常に作動しました。

お騒がせして申し訳ありませんでした。

では、さようなら。

------------------ patch begin ---------------------
diff -u /usr/local/lib/perl5/chat2.pl-dist /usr/local/lib/perl5/chat2.pl
--- /usr/local/lib/perl5/chat2.pl-dist  Wed Jul 19 18:26:03 1995
+++ /usr/local/lib/perl5/chat2.pl       Thu Nov 21 16:40:06 1996
@@ -273,11 +273,11 @@
        if ($_[0] =~ /$nextpat/) {
                *S = shift;
        }
-       print S @_;
        if( $chat'debug ){
                print STDERR "printed:";
                print STDERR @_;
        }
+       print S @_;
 }
 
 ## &chat'close([$handle,])
------------------ patch end ---------------------
--
倉地 修 @ 川崎重工業株式会社 航空宇宙事業部 技術部 制御技術課
kurati_o at example.com , kurati at example.com , QWG02120 at example.com