/
MadDAD
/
alterplast
Обзор
Документация
Войти
/
MadDAD
/
alterplast
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
OpenConf_Scripts/CommonServices_Test.js
58 строк
1 KB
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42
988c847
Код
Авторство
О чём код?
/* * ������ ������ � �������� OpenConf.CommonServices * ��� ������������� � �������� ������� �������� ��� OpenConf * * $Date: 2005/03/11 05:22:05 $ * $Revision: 1.6 $ */ function HelloMacro() { CommonScripts.Echo("Hello, World!"); } /* * ���������� ������� ������ ������� */ function Version(_) { return "$Revision: 1.6 $".replace(/\s|\$/ig, "").replace(/^Revision:/, ""); } /* * �������� ������ OpenConf.CommonServices */ function TestCommonServicesVersion() { CommonScripts.Echo(CommonScripts.Version); if (CommonScripts.Version < "1.26") { CommonScripts.Echo("< 1.26"); } if (CommonScripts.Version > "1.23") { CommonScripts.Echo(">1.23"); } if (CommonScripts.Version == "1.24") { CommonScripts.Echo("== 1.24"); } } /* * ��������� ������������� ������� */ function Init(_) // ��������� ��������, ����� ��������� �� �������� � ������� { try { var ocs = new ActiveXObject("OpenConf.CommonServices"); ocs.SetConfig(Configurator); SelfScript.AddNamedItem("CommonScripts", ocs, false); } catch (e) { Message("�� ���� ������� ������ OpenConf.CommonServices", mRedErr); Message(e.description, mRedErr); Message("������ " + SelfScript.Name + " �� ��������", mInformation); Scripts.UnLoad(SelfScript.Name); } } Init();