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

[Toshihiko SHIMOKAWA / 下川俊彦]

遠い昔 mew.url.el-patch を作りました.  (よく考えたら mew-url.el-patch 
だなぁ...)

In article <199611210250.LAA24265 at example.com>
	kurati at example.com writes:

> そうですね、これだと余分なパッケージもいらないし。

でしょでしょ:-)


> というわけで mew-1.52 もでたので書いて見ました。

わーい. mew-url.el なくなっちゃったしなぁ, と思っていたのですが助かり
ました.


> 1.proxy port が 80 の場合に
> 	httpget: chat'print("GET http://hogehoge.com/ HTTP/1.0"): Permission denied
>   のようなエラーがでる。( 特権ポート)

これ, ほんとですか? 僕の手元では proxy port を 80 にしたままで動いてい
ますよ. 80 ってのは 宛先ポートだから, 特権ポートかどうかは関係ないと思
いますです. 


> 2.
> 	($nfound, $rmask) = select($rmask, undef, undef, $timeout_sec);
>   の所で止まってしまう。

httpget の原作者に確認したところ,

-=-=- cut here -=-=- cut here -=-=-
>   ありがとう。port 80 は誤解だと思うけど select() の方はバグでした。た
> しかにたまに止まってました。
-=-=- cut here -=-=- cut here -=-=-

とのことでした. 作者にかわって, ありがとございました. > 倉地さん

ただ, 倉地さんのパッチでは chat'print のエラー処理などが外してあったの
で, ↓こんなパッチにしてもらいました.

ところでアーカイブに含まれてるのが 'httpget.pl' って名前になってるのは, 
僕がそうお願いしたんでしたっけ? 'httpget' という名前にしておいてもらえ
るとうれしいな > かず
--
としちゃん
-------------- next part --------------
--- httpget.old	Mon Dec 18 15:18:43 1995
+++ httpget	Thu Nov 21 13:37:09 1996
@@ -2,5 +2,5 @@
 
 # httpget --- get a file specified by URL via HTTP
-#	1995/1/23 hideki at example.com
+#	1996/11/21 hideki at example.com
 
 $http_version = '1.0';
@@ -35,5 +35,5 @@
   local($url, $dest) = @_;
   local($server, $port, $request, $retcode, $remotesize, $localsize,
-        $rmask, $nfound);
+        $rmask, $nfound, $timeleft);
 
   if ($url =~ /$no_proxy/) {
@@ -76,5 +76,5 @@
     $localsize = 0;
     do {
-      ($nfound, $rmask) = select($rmask, undef, undef, $timeout_sec);
+      ($nfound, $timeleft) = select($rmask, undef, undef, $timeout_sec);
       die "$prog: timed out at $url\n" unless ($nfound);
       $_ = <S>;