#Login User ($action eq "LoginUser") && do { #Attempt the login manageusers::OpenConnection(); warn("Opening The Login Usr Query: $query"); my ($result, $login_timeout) = LoginUser($query); if ($result == 0){ manageusers::CloseConnection(); warn("Login failed. Creating response."); CreateLoginUserFailedForm("The Login User Name or Password is invalid. Please try again or contact the office."); return; #exit; } elsif ($result == 1){ #Client already logged in so tell them manageusers::CloseConnection(); warn("Alrrady logged in."); CreateAlreadyLoggedinForm("You are already logged in."); return; #exit; } elsif ($result == 2){ manageusers::CloseConnection(); warn("Login failed. Membership expired."); CreateLoginUserFailedForm("Your Membership Has Expired. To renew membership, use the form on this site or contact the office."); return; #exit; } elsif ($result == 3) { manageusers::CloseConnection(); warn("Login succeeded. Creating response."); CreateUserLoginSucceededForm("Login succeeded."); return; #exit; } elsif ($result == 4){ manageusers::CloseConnection(); warn("Login failed.Max attemps response."); CreateLoginUserMaxAttemptsFailedForm("Maximum allowed number of login attempts exceeded for session. Please contact the office."); return; #exit; } elsif ($result == 5){ manageusers::CloseConnection(); warn("Login failed. Timeout."); CreateLoginUserFailedForm("The '$login_timeout' second Login window has expired. Please try again or contact the office"); return; #exit; } else { manageusers::CloseConnection(); warn("Login failed. Unknown reason."); CreateLoginUserFailedForm("Login failed for unknown reasons. Please contact the office."); return; #exit; } return; #exit; };