[Mew-dist 10762] Re: IM with SSH

[Masatoshi Tsuchiya]

土屋です。


>> On Wed, 29 Sep 1999 11:29:21 +0900
>> 「土」== tsuchiya at example.com (Masatoshi Tsuchiya) said as follows:

土> IM-990905 を少し改造して、SSH の Port Forwarding 機能を利用してメール
土> とニュースを送受信ができるようにしてみました。

この改造をほどこした imget を利用して、次のようにニュースの記事を取得
すると、

    % imget -v --src=nntp:japan.test at example.com%8119 --dst=+test_imget

このニュースグループについての取得済の記事の記録が、

    ~/.im/newshist-news.kuee.kyoto-u.ac.jp%8119

というファイルに記録されるという不具合がありました(つまり、ローカルポー
ト番号がサーバー名に含まれてしまっている)。

以下に、この不具合を修正するためのパッチを添付します。


-------------- next part --------------
--- Nntp.pm.orig	Tue Sep  7 15:52:00 1999
+++ Nntp.pm	Wed Sep 29 12:47:22 1999
@@ -401,9 +401,8 @@
     my ($server, $group, $number) = @_;
     my ($pos, $last, $size) = (0, 0, 0);
 
-    if ($server =~ /([^\/]*)\/\d+$/) {
-       $server = $1;
-    }
+    $server =~ s!\%\d+$!!;
+    $server =~ s!/\d+$!!;
     my $nntphist = &nntphistoryfile() . '-' . $server;
     if ( -f $nntphist ) {
 	open (NEWSHIST, "+<$nntphist");
@@ -444,9 +443,8 @@
     local $_;
     my $number = 0;
 
-    if ($server =~ /([^\/]*)\/\d+$/) {
-       $server = $1;
-    }
+    $server =~ s!\%\d+$!!;
+    $server =~ s!/\d+$!!;
     my $nntphist = &nntphistoryfile() . '-' . $server;
     if (open (NEWSHIST, "<$nntphist")) {
         binmode(NEWSHIST);
-------------- next part --------------


なお、Web で公開しているパッチには既に反映されています。


-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/