From b7c258455e11d8b8978b82077596b7100c9ab5cf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9A=D0=B0=D0=BF=D1=80=D0=B0=D0=BB=D0=BE=D0=B2=20=D0=90?= =?UTF-8?q?=D0=BB=D0=B5=D0=BA=D1=81=D0=B0=D0=BD=D0=B4=D1=80?= Date: Tue, 23 Jun 2020 18:28:39 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=BA=D1=80=D0=B8=D0=BF=D1=82=20=D0=B4?= =?UTF-8?q?=D0=BB=D1=8F=20=D0=BE=D0=B1=D0=BD=D0=BE=D0=B2=D0=BB=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D1=8F=20=D0=BF=D0=BB=D0=B0=D1=82=D1=84=D0=BE=D1=80=D0=BC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Скрипты/.project | 11 +++++++++ Скрипты/ОбновлениеПлатформ.sbsl | 41 +++++++++++++++++++++++++++++++++ 2 files changed, 52 insertions(+) create mode 100644 Скрипты/.project create mode 100644 Скрипты/ОбновлениеПлатформ.sbsl diff --git a/Скрипты/.project b/Скрипты/.project new file mode 100644 index 0000000..f521fec --- /dev/null +++ b/Скрипты/.project @@ -0,0 +1,11 @@ + + + Скрипты + + + + + + + + diff --git a/Скрипты/ОбновлениеПлатформ.sbsl b/Скрипты/ОбновлениеПлатформ.sbsl new file mode 100644 index 0000000..4175228 --- /dev/null +++ b/Скрипты/ОбновлениеПлатформ.sbsl @@ -0,0 +1,41 @@ +/******************************************************************************* + * Copyright (c) 2020 Alexander Kapralov and Contributors + * This program and the accompanying materials are made available under + * the terms of the BSD 3-Clause License which is available at + * https://spdx.org/licenses/BSD-3-Clause.html#licenseText + * + * SPDX-License-Identifier: BSD-3-Clause + * + * Contributors: + * + * + ******************************************************************************/ + +конст НачальнаяВерсияПлатформы = "8.3.10" + + +метод Скрипт() + пер библиотекаСписокИнформационныхБаз = новый ПроцессОс("/opt/Executor/bin/executor_j11.sh", + ["-s", "../Библиотеки/СписокИнформационныхБаз.sbsl", + "-m", "ИспользуемыеВерсии"]) + + библиотекаСписокИнформационныхБаз.Запустить() + + пер результатВыполненияСкрипта = новый ЧтениеДанных(библиотекаСписокИнформационныхБаз.ПотокВывода) + если не результатВыполненияСкрипта.ЧтениеЗавершено() + Консоль.Записать("Результат выполнении скрипта: ") + ; + + пока не результатВыполненияСкрипта.ЧтениеЗавершено() + Консоль.Записать(результатВыполненияСкрипта.ПрочитатьСтроку()) + ; + + пер ошибкиВыполненияСкрипта = новый ЧтениеДанных(библиотекаСписокИнформационныхБаз.ПотокОшибок) + если не ошибкиВыполненияСкрипта.ЧтениеЗавершено() + Консоль.Записать("Ошибки при выполнении скрипта: ") + ; + + пока не ошибкиВыполненияСкрипта.ЧтениеЗавершено() + Консоль.Записать(ошибкиВыполненияСкрипта.ПрочитатьСтроку()) + ; +; \ No newline at end of file