ACE3/addons/core/scripts/Version/checkVersionNumber.sqf

// by commy2
#include "\z\ace\addons\core\script_component.hpp"

sleep 1;  //wait for module

_files = [];

if (missionNamespace getVariable ["ACE_Version_CheckAll", false]) then {
  {
    if (toLower _x find "a3_" != 0 && {!(toLower _x in (missionNamespace getVariable ["ACE_Version_Whitelist", []]))}) then {
      _files pushBack _x;
    };
  } forEach activatedAddons;
} else {
  {
    if (toLower _x find "ACE_" == 0) then {
      _files pushBack _x;
    };
  } forEach activatedAddons;
};

_versionMain = parseNumber getText (configFile >> "CfgPatches" >> "ACE_Core" >> "version");

_versions = [];
{
  _version = parseNumber getText (configFile >> "CfgPatches" >> _x >> "version");
  _versions set [_forEachIndex, _version];
} forEach _files;

if (isServer) then {
  diag_log text format ["[ACE] Server: ACE_core is Version %1.", _versionMain];

  {
    if (toLower _x find "ACE_" == 0) then {//
      _version = _versions select _forEachIndex;
      if (_version != _versionMain) then {
        diag_log text format ["[ACE] Server: %1 is Version %2.", _x, _version];
      };
    };
  } forEach _files;

  ACE_Version_ServerVersions = [_files, _versions];
  publicVariable "ACE_Version_ServerVersions";
} else {
  diag_log text format ["[ACE] Client: ACE_core is Version %1.", _versionMain];

  {
    if (toLower _x find "ACE_" == 0) then {//
      _version = _versions select _forEachIndex;
      if (_version != _versionMain) then {
        diag_log text format ["[ACE] Client: %1 is Version %2.", _x, _version];
      };
    };
  } forEach _files;

  ACE_Version_ClientVersions = [_files, _versions];
};

// Begin client version check
if (!isServer) then {
  // Wait for server to send the servers files and version numbers
  waitUntil {
    sleep 1;
    !isNil "ACE_Version_ClientVersions" && {!isNil "ACE_Version_ServerVersions"}
  };

  _client = profileName;

  _files = ACE_Version_ClientVersions select 0;
  _versions = ACE_Version_ClientVersions select 1;

  _serverFiles = ACE_Version_ServerVersions select 0;
  _serverVersions = ACE_Version_ServerVersions select 1;

  // Compare client and server files and versions
  _missingAddons = [];
  _oldVersionsClient = [];
  _oldVersionsServer = [];
  {
    _serverVersion = _serverVersions select _forEachIndex;

    _index = _files find _x;
    if (_index == -1) then {
      _missingAddons pushBack _x;
    } else {

      _clientVersion = _versions select _index;

      if (_clientVersion < _serverVersion) then {
        _oldVersionsClient pushBack [_x, _clientVersion, _serverVersion];
      };

      if (_clientVersion > _serverVersion) then {
        _oldVersionsServer pushBack [_x, _clientVersion, _serverVersion];
      };
    };
  } forEach _serverFiles;

  // find client files which the server doesn't have
  _missingAddonsServer = [];
  {
    _index = _serverFiles find _x;
    if (_index == -1) then {
      _missingAddonsServer pushBack _x;
    }
  } forEach _files;

  // display and log error messages
  _fnc_cutComma = {
    _string = _this;
    _string = toArray _string;

    _count = count _string;
    _string set [_count - 2, toArray "." select 0];
    _string set [_count - 1, -1];
    _string = _string - [-1];

    toString _string;
  };

  _missingAddon = false;
  if (count _missingAddons > 0) then {
    _missingAddon = true;

    _error = format ["[ACE] %1: ERROR missing addon(s): ", _client];
    {
      _error = _error + format ["%1, ", _x];

      if (_forEachIndex > 9) exitWith {};//
    } forEach _missingAddons;

    _error = _error call _fnc_cutComma;

    diag_log text _error;
    [_error, "{systemChat _this}"] call FUNC(execRemoteFnc);
  };

  _missingAddonServer = false;
  if (count _missingAddonsServer > 0) then {
    _missingAddonServer = true;

    _error = format ["[ACE] %1: ERROR missing server addon(s): ", _client];
    {
      _error = _error + format ["%1, ", _x];

      if (_forEachIndex > 9) exitWith {};//
    } forEach _missingAddonsServer;

    _error = _error call _fnc_cutComma;

    diag_log text _error;
    [_error, "{systemChat _this}"] call FUNC(execRemoteFnc);
  };

  _oldVersionClient = false;
  if (count _oldVersionsClient > 0) then {
    _oldVersionClient = true;

    _error = format ["[ACE] %1: ERROR outdated addon(s): ", _client];
    {
      _error = _error + format ["%1 (client: %2, server: %3), ", _x select 0, _x select 1, _x select 2];

      if (_forEachIndex > 9) exitWith {};//
    } forEach _oldVersionsClient;

    _error = _error call _fnc_cutComma;

    diag_log text _error;
    [_error, "{systemChat _this}"] call FUNC(execRemoteFnc);
  };

  _oldVersionServer = false;
  if (count _oldVersionsServer > 0) then {
    _oldVersionServer = true;

    _error = format ["[ACE] %1: ERROR outdated server addon(s): ", _client];
    {
      _error = _error + format ["%1 (client: %2, server: %3), ", _x select 0, _x select 1, _x select 2];

      if (_forEachIndex > 9) exitWith {};//
    } forEach _oldVersionsServer;

    _error = _error call _fnc_cutComma;

    diag_log text _error;
    [_error, "{systemChat _this}"] call FUNC(execRemoteFnc);
  };

  ACE_Version_ClientErrors = [_missingAddon, _missingAddonServer, _oldVersionClient, _oldVersionServer];
};