Main();

sub Main {
      my $action = $query->param('action');
 {
      warn("manage_users.cgi line 63: '$action'");
      warn("Request from User for Login Form");
      ($action eq "GetLoginForm")  && do {
        manageusers::OpenConnection();
        warn("process login request - create session");
        my ($result,$message0,$message1,$message2) = ProcessLoginRequest($query);
        if(!$result){
           warn("Tell client that login failed");
           manageusers::CloseConnection();
           LoginUserFailedForm("The Login Request failed. Please try again or contact the office.");
           return; #exit;
        }
        elsif ($result == 1) {
          #Client already logged in so tell them
          manageusers::CloseConnection();
          CreateAlreadyLoggedinForm($message0);
          return;
        }

        elsif ($result == 2){
          warn("Not logged in so send client login form");
          manageusers::CloseConnection();
          CreateLoginForm($message0, $message1, $message2);
          return; #exit;
        }
        };