[Mew-dist 10819] Re: im-131

[Hideyuki Suzuki]

鈴木＠東大計数と申します。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 10808] im-131
Date: Thu, 7 Oct 1999 16:26:04 +0900

> 結局 SSH の中継ホストは、SSHServer というオプションで指定するようにし
> ました。imget と imput 両方です。[%local_port] を SMTPservers などに付
> 加すると SSH でリレーするようになります。man/* を読んで下さい。

私のところ(FreeBSD 3.3-STABLE, perl 5.005_03)では，
添付した変更をしないと，この機能が動きませんでした。
正しい修正かわかりませんが，この変更で動いています。

Ssh.pm のほうは，$SSH を絶対パスで指定しても動くと思います。
TcpTransaction.pm のほうは，この変更をしないと，
localhost の port 25 ($remoteport ?)につなぎに行ってしまいました。

# SSH の中継，とても便利です。:-) > 土屋さん
-- 
Hideyuki Suzuki <hideyuki at example.com>
Department of Mathematical Engineering, the University of Tokyo
-------------- next part --------------
diff -ur im-131.orig/IM/Ssh.pm im-131/IM/Ssh.pm
--- im-131.orig/IM/Ssh.pm	Thu Oct  7 16:38:04 1999
+++ im-131/IM/Ssh.pm	Thu Oct  7 18:06:40 1999
@@ -37,10 +37,6 @@
 	im_err( "Missing relay host.\n" );
 	return 0;
     }
-    unless( -x $SSH ){
-	im_err( "$SSH is not executable.\n" );
-	return 0;
-    };
     im_notice( "openning SSH-tunnel to $server/$remote\%$local via $host\n" )
 	if &verbose;
 
diff -ur im-131.orig/IM/TcpTransaction.pm im-131/IM/TcpTransaction.pm
--- im-131.orig/IM/TcpTransaction.pm	Thu Oct  7 16:38:04 1999
+++ im-131/IM/TcpTransaction.pm	Thu Oct  7 18:05:36 1999
@@ -118,9 +118,9 @@
 		im_warn( "Don't use port-forwarding to `localhost'.\n" );
 		$Cur_server = "$s/$remoteport";
 	    } else {
-		if ( $localport = &ssh_proxy($s,$remoteport,$localport,$main::SSH_server) ) {
+		if ( $remoteport = &ssh_proxy($s,$remoteport,$localport,$main::SSH_server) ) {
 		    $s = 'localhost';
-		    $Cur_server = "$Cur_server%$localport";
+		    $Cur_server = "$Cur_server%$remoteport";
 		} else { # Connection failed.
 		    im_warn( "Can't login to $main::SSH_server\n" );
 		    if ($proto eq 'smtp') {