[Mew-dist 10787] Re: そもそも imget での nntp の扱いについて

[Ninomiya Hideyuki]

こんばんは	二宮 @ お四国 です。

二宮 秀幸 は Sun, 3 Oct 1999 23:54:48 +0900 頃に
    Subject:    [Mew-dist 10777] そもそも imget での nntp の扱いについて
    Message-ID: <19991003235126Q.nin at example.com>
        に於いて、以下のように言いました。
れお> とある news group の記事を取って来ようとすると、time outだと
れお> 思われるのですが、途中で切れてしまいます。
<snip>
れお> ってことで、途中(article 21466)まで取って来て、終了してます。
れお> そのことは仕方無いのですが、
れお> ~/.im/newshist-my.isp.news.server
れお> が
<snip>
れお> てな具合に、更新されていません。
<snip>
れお> 取って来れてるとこまで更新しててくれれば、何も考えず再び
れお> imget すれば続きが取って来れると思うのですが、

これっ、何とか自力で、解決する修正をしてみました。
# っと言っても、ちょこっと1行書き換えただけですがっ^^;
『本来エラーという事で、newshist-* ファイルの更新とかせずに
終了してたものを、無理矢理、エラーじゃ無いようにして、そこで
止めちゃう。』っという場当たり的なもんですけど、とりあえず、
次回の imget 時にこけたとこから再開する事が出来ます。

あとは、article get をこけても、引続き 次の news group を取りに
行ければ、ばっちりかな、、?

ぱっち
---8<------8<------8<------8<------8<------8<------8<------8<---
*** IM/Nntp.pm.org	Sun Sep  5 22:16:33 1999
--- IM/Nntp.pm	Mon Oct  4 20:16:42 1999
***************
*** 326,332 ****
      for ($i = $art_start; $i <= $art_end; $i++) {
  	($rc, $article) = &nntp_article($i);
  	next if ($rc > 0);
! 	return -1 if ($rc < 0);
  	$count++;
  
  	return -1 if (&store_message($article, $dst) < 0);
--- 326,332 ----
      for ($i = $art_start; $i <= $art_end; $i++) {
  	($rc, $article) = &nntp_article($i);
  	next if ($rc > 0);
! 	last if ($rc < 0 && ($last = $i -1));
  	$count++;
  
  	return -1 if (&store_message($article, $dst) < 0);
---8<------8<------8<------8<------8<------8<------8<------8<---

これだとまずい事って、何か有りますでしょうか?
問題無いなら、こないしてもらえれば幸いです。
---
# たった1行だけど、始めての perl いじりかな?
                                         二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint: 6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
                                           mailto:nin at example.com
                           http://user.shikoku.ne.jp/nin/index.html