[Mew-dist 05030] Re: PwFiles によるパスワードの設定の問題

[Motonori Nakamura]

>>>>> On Tue, 9 Jun 1998 19:27:22 +0900, Ichikawa Shin <ichikawa at example.com> said:

ichikawa> パスワードの中にスペース(' ')が存在していたのがsplitのデリミ
ichikawa> タになってしまった（ので、パスワードの前半しか$tmp_passに設
ichikawa> 定されない）ようです。

こんなのでいいかしら。

--- GetPass.pm.in-	Tue Jun  9 21:22:50 1998
+++ GetPass.pm.in	Tue Jun  9 21:26:16 1998
@@ -192,14 +192,17 @@
 	    chomp;
 	    next if (/^(#.*)?$/); 
 	    s/\s+(\#.*)?$//;	# remove comments
-	    my ($tmp_proto_auth, $tmp_host, $tmp_user, $tmp_pass) = split;
-	    my ($tmp_proto, $tmp_auth) = split('/', $tmp_proto_auth);
-	    if (($tmp_proto eq $proto)
-		&& ($tmp_auth eq $auth)
-		&& ($tmp_host eq $host)
-		&& ($tmp_user eq $user)) {
-		close (PASSFILE);
-		return $tmp_pass;
+	    if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/) {
+		my ($tmp_proto_auth, $tmp_host) = ($1, $2);
+		my ($tmp_user, $tmp_pass) = ($3, $4);
+		my ($tmp_proto, $tmp_auth) = split('/', $tmp_proto_auth);
+		if (($tmp_proto eq $proto)
+		    && ($tmp_auth eq $auth)
+		    && ($tmp_host eq $host)
+		    && ($tmp_user eq $user)) {
+		    close (PASSFILE);
+		    return $tmp_pass;
+		}
 	    }
 	}
 	close (PASSFILE);

- motonori