sub Main {
      my $action = $query->param('action');
 {
      #warn("Request for LoginForm manage_users.cgi: '$action'");
      ($action eq "getloginform")  && do {
        manageusers::OpenConnection();
        #warn("Just before ProcessLoginRequest - create session = '$query'");
        my ($result,$message0,$message1,$message2) = ProcessLoginRequest($query);
        warn("result = '$result'   message0 = '$message0'   message1 = '$message1'  message2 = '$message2'");
        if(!$result){
           #warn("Tell client that login failed");
           manageusers::CloseConnection();
           LoginUserFailedForm("The Login Request failed due to some internal errot. Please try again or contact the office.");
           exit(0);
		   #return; #exit;
        }
        elsif ($result == 1) {
          warn("Already logged in so send client already logged in form This is in the initial action GetLoginForm");
          manageusers::CloseConnection();
          CreateAlreadyLoggedinForm($message0);
          exit (0); 
		  #return;
        }

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