[Mew-dist 2446] Re: To expire ActiveWare's Perl for Win32.

[Shuichi Kitaguchi]

From: "YAMAGUCHI, Shuhei" <yamagus at example.com>
Subject: [Mew-dist 2444] Re: To expire ActiveWare's Perl for Win32.
Date: Sun, 12 Oct 1997 23:59:17 +0900

北口＠奈良先端大 です。
# あぁ、やっぱり IM-74 はちゃんとなってませんでした。
# img の方にやまぐちさんが流されたパッチを無断借用して(ごめんなさい)
# 後ろに付けておきます。
# あと、例のパッチを当てた PGP を正式リリースとして置いておきました
# (バイナリは全く同じで、私の署名を付けただけです)。

> 私も今日、会社のNTでコンパイルしてみました。
> timelocalは、TZ環境変数を設定しなければokになるようです。
> もっとも、TZ環境変数を設定したときの振る舞いは大丈夫なのか心配になって
> しまいますが…。 ^^;

これはまた面妖な仕様ですね...
でも、このメールは TZ=JST-9 で書いていますが大丈夫だと思います。

> ただ、VCでコンパイルした場合、IMはsocketを使うので、Win95では
> perl95.exeを使う必要があるようですね。
> この辺り、ボーランドのコンパイラでは大丈夫と書かれていましたので、どな
> たか、ボーランド版実行ファイルを提供できる方がいらっしゃるといいですね。

これについては、Perl のインストーラ(といっても Perl の bin と lib を
レジストリに書くだけ)を作成しますので、Win95 だったら
  perl.exe   -> perlnt.exe
  perl95.exe -> perl.exe
と CopyFile しようと思っています。
# 場所は HKEY_LOCAL_MACHINE\SOFTWARE\Mew にするつもりです。


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--

--- Pop.pm.in.orig	Fri Oct 10 10:27:59 1997
+++ Pop.pm.in	Sun Oct 12 22:27:54 1997
@@ -99,7 +99,7 @@
 	}
 	my $realuser;
 	if (&win95p()){
-	    $realuser = Win32::GetLogin();
+	    $realuser = Win32::LoginName();
 	} else {
 	    $realuser = getlogin  ||  (getpwuid($<))[0];
 	}
@@ -571,9 +571,12 @@
     my ($auth, $host) = ('apop', 'localhost');
     my $user = $ENV{'USER'};
     $user = $ENV{'LOGNAME'} unless ($user);
-    $user = getlogin unless ($user);
+    if (&win95p()){
+	$user = Win32::LoginName() unless ($user);
+    } else {
+	$user = getlogin unless ($user);
+    }
     $user = (getpwuid($<))[0] unless ($user);
-
     while ($spec ne '') {
 	if ($spec =~ /^:([^:\/\@]+)(.*)/) {
 	    $user = $1;