--[[





function function_traduction(string_parolas_value, string_parolas_substituto)
pcache = INIFile.GetValue(archivo_ini, "XOOPSERVER", string_parolas_value);
if (pcache == "") or (pcache == nil) then
pcache = string_parolas_substituto;
else
--
end
end


function_traduction("_MENU", "menu");
_MENU = pcache;

-- function_traduction("_CHANGE_IP", "change ip");
--_CHANGE_IP = pcache;
_CHANGE_IP = INIFile.GetValue(archivo_ini, "XOOPSERVER", "_CHANGE_IP");

-- full_name = INIFile.GetValue("C:\\Data.ini", "PERSONAL", "Name");

function_traduction("_CLEAR_CACHE", "clear cache");
_CLEAR_CACHE = pcache;

function_traduction("_CREATE_DB", "create db");
_CREATE_DB = pcache;


function_traduction("_RESTART_MYSQL", "restart mysql");
_RESTART_MYSQL = pcache;


function_traduction("_EXIT", "exit");
_EXIT = pcache;







if HTTP.TestConnection("http://127.0.0.1", 20, 80, nil, nil) then
---
instances_of_file = 0;
file_to_check_for = "skype.exe"; --have all lowercase
processes = System.EnumerateProcesses();

for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
-- System.TerminateProcess(j);
Dialog.Message("Notice", "Port 80 in use. Please, check your Skype config.");
end
end
---
Dialog.Message("Notice", "Port 80 in use.");
else


]]--



File.Run("subst.exe", "w: .", _SourceFolder, SW_MINIMIZE, true);

Application.Sleep(500);

if File.DoesExist("w:\\xsas.exe") then

if File.DoesExist("w:\\usr\\local\\apache2\\bin\\apache.exe") then
File.Run("w:\\usr\\local\\apache2\\bin\\apache.exe", "-f w:\\usr\\local\\apache2\\conf\\httpd.conf -d w:\\usr\\local\\apache2\\", "w:\\usr\\local\\apache2\\", SW_MINIMIZE, false);
else
--
end


if File.DoesExist("w:\\usr\\local\\mysql\\bin\\mysqld-opt.exe") then
File.Run("w:\\usr\\local\\mysql\\bin\\mysqld-opt.exe", "--defaults-file=my-small.cnf", "w:\\usr\\local\\mysql\\bin\\", SW_MINIMIZE, false);
else
--
end
Application.Sleep(3000);
File.OpenURL("http://localhost/xoops2/", SW_MAXIMIZE);
Application.Restore();
Audio.Load(CHANNEL_BACKGROUND, "autoplay\\audio\\windows_vista_hardware_insert.ogg", true, false);

else
-- Dialog.Message("DRIVE VIRTUAL","Não foi possível criar o drive virtual W.");
-- File.OpenEmail("mikhail.miguel@gmail.com", SW_MINIMIZE);
-- File.OpenURL("http://www.xoopscube.org", SW_SHOWNORMAL);
-- Application.Exit(0);
end