sub GetWebLogic {
       $url = "http://" . $server . ":" . $port . "/HttpController?GetPage=
   +UserLogonForm";
       if ($Testing eq "Yes" ) { print "Checking Dynamic Page\n"; }
       $ua = new LWP::UserAgent;
       $request = HTTP::Request->new(GET => $url);
       $response = $ua->request($request);
       if ($response->is_success) { $dynamic = $response->content; }

       @dynamic = split(/\n/,$dynamic);
       
       foreach $line (@dynamic) {
           ## Check the output of the web page for the HTML <HEAD> tag
           if ($line =~ /<HEAD>/i) { 
               if ($Testing eq "Yes") { print "Found the Dynamic HTML <HEAD
   +> tag\n"; }
               $DynamicPageCheckOK = "Yes";
           }
    }  # HERE
       if ($DynamicPageCheckOK eq "Yes") { 
               ## Page returned do noting
           } else {
               ## Page didn't return generate an error
               &GenerateServerError;
           }
   #    }      # MOVE THIS

   }