Update the message to tell a user account is set to nologin

charsbar · andk · commit effe80d26ec5 · 2025-05-03T10:04:28.000+02:00
re #488 (comment)
diff --git a/lib/pause_2017/PAUSE/Web/Plugin/ConfigPerRequest.pm b/lib/pause_2017/PAUSE/Web/Plugin/ConfigPerRequest.pm
@@ -79,7 +79,7 @@ sub _retrieve_user {
       $sth7->execute($user);
       my $error;
       if ($sth7->rows > 0) {
-        $error = "User '$user' set to nologin. Many users with an insecure password have got their password reset recently. Please talk to modules\@perl.org to find out how to proceed";
+        $error = "User '$user' set to nologin. Your account may have been included in a precautionary password reset in the wake of a data breach incident at some other site. Please talk to modules\@perl.org to find out how to proceed";
       } else {
         $error = "User '$user' not known";
       }

Original file line number	Diff line number	Diff line change
`@@ -79,7 +79,7 @@ sub _retrieve_user {`
`79`	`79`	`$sth7->execute($user);`
`80`	`80`	`my $error;`
`81`	`81`	`if ($sth7->rows > 0) {`
`82`		`- $error = "User '$user' set to nologin. Many users with an insecure password have got their password reset recently. Please talk to modules\@perl.org to find out how to proceed";`
	`82`	`+ $error = "User '$user' set to nologin. Your account may have been included in a precautionary password reset in the wake of a data breach incident at some other site. Please talk to modules\@perl.org to find out how to proceed";`
`83`	`83`	`} else {`
`84`	`84`	`$error = "User '$user' not known";`
`85`	`85`	`}`