Detect bogus user

diff --git a/cluster-passwd/edit_passwd.cgi b/cluster-passwd/edit_passwd.cgi
index 9620df2..a00b63f 100755 (executable)
--- a/cluster-passwd/edit_passwd.cgi
+++ b/cluster-passwd/edit_passwd.cgi
@@ -7,6 +7,7 @@ require './cluster-passwd-lib.pl';
 
 @ulist = &get_all_users();
 ($user) = grep { $_->{'user'} eq $in{'user'} } @ulist;
+$user || &error($text{'passwd_euser'});
 
 &can_edit_passwd($user) || &error($passwd::text{'passwd_ecannot'});
 

diff --git a/cluster-passwd/lang/en b/cluster-passwd/lang/en
index ad04bb0..ade2739 100644 (file)
--- a/cluster-passwd/lang/en
+++ b/cluster-passwd/lang/en
@@ -5,4 +5,4 @@ index_hosts=All password changes made using this module will be done on all $1 h
 passwd_err=Failed to change password
 passwd_title=Changing Password
 passwd_on=Changing password on $1 ..
-
+passwd_euser=User does not exist!