[Mew-dist 12010] Re: IM 135

[Hajimu UMEMOTO ( 梅本 肇 )]

  梅本＠IMASYです。

>>> Thu, 6 Jan 2000 18:23:37 +0900 の刻に「shirai」、すなわち
>>> Hideyuki SHIRAI (白井秀行) <shirai at example.com> 氏曰く

shirai> # あまりお使いになる人もいないような気もするんですけど。
shirai> % imcat http://...

  うぅ、こんな使い方ができるのか。^^;

shirai> imcat: ERROR: unknown service: 8080

shirai> こちらも
shirai> * A bug fix for SMTP server selection.
shirai> かな？

  すみません、私のバグです。(__)
  パッチを付けておきます。
-------------- next part --------------
--- IM/TcpTransaction.pm.orig	Wed Dec  1 04:23:42 1999
+++ IM/TcpTransaction.pm	Thu Jan  6 20:17:57 2000
@@ -439,22 +439,26 @@
 	($pe_name, $pe_aliases, $pe_proto) = getprotobyname($proto);
     }
     $pe_proto = 6 unless ($pe_name);
-    ($se_name, $se_aliases, $se_port) = getservbyname($serv, $proto)
-	if (unixp());
-    unless ($se_name) {
-	if ($serv eq 'smtp') {
-	    $se_port = 25;
-	} elsif ($serv eq 'http') {
-	    $se_port = 80;
-	} elsif ($serv eq 'nntp') {
-	    $se_port = 119;
-	} elsif ($serv eq 'pop3') {
-	    $se_port = 110;
-	} elsif ($serv eq 'imap') {
-	    $se_port = 143;
-	} else {
-	    im_err("unknown service: $serv\n");
-	    return undef;
+    if ($serv =~ /^\d+$/o) {
+	$se_port = $serv;
+    } else {
+	($se_name, $se_aliases, $se_port) = getservbyname($serv, $proto)
+	    if (unixp());
+	unless ($se_name) {
+	    if ($serv eq 'smtp') {
+		$se_port = 25;
+	    } elsif ($serv eq 'http') {
+		$se_port = 80;
+	    } elsif ($serv eq 'nntp') {
+		$se_port = 119;
+	    } elsif ($serv eq 'pop3') {
+		$se_port = 110;
+	    } elsif ($serv eq 'imap') {
+		$se_port = 143;
+	    } else {
+		im_err("unknown service: $serv\n");
+		return undef;
+	    }
 	}
     }
 
-------------- next part --------------
梅本 肇 ＠ インターネット互助会横浜  http://www.imasy.org/~ume/
ume at example.com  ume at example.com  ume at example.com
プログラムは書いた人の意図ではなく書かれた通り動く