--[[
--=================================================--
-- Ferifica se a porta 80 está em uso
--=================================================--

input_set_text("Checking ports 80 and 3306...");
-- input_set_text("Checking port 80 for Apache web server...");

if HTTP.TestConnection("127.0.0.1", 1, "80", nil, nil) then

	WinCmd.Input("netstat -b");
	if (WinCmd.Error() == "") then
	input_set_text(WinCmd.Output());
	else
	input_set_text(WinCmd.Output());
	input_set_text(WinCmd.Error());
	end
	input_set_text("Another web server using the port 80...");
	Application.ExitScript();
	else
	input_set_text("Ok, port 80 avaliable...");
end

--=================================================--
-- Ferifica se a porta 3306 está em uso
--=================================================--

-- input_set_text("Checking port number 3306 for MySQL database server...");

if HTTP.TestConnection("127.0.0.1", 1, "3306", nil, nil) then
	WinCmd.Input("netstat -b");
	if (WinCmd.Error() == "") then
	input_set_text(WinCmd.Output());
	else
	input_set_text(WinCmd.Output());
	input_set_text(WinCmd.Error());
	end	
	input_set_text("Another server using the MySQL port (#3306)...");	
	Application.ExitScript();
	else
	input_set_text("Ok, port 3306 avaliable...");
end
]]--