Жизнь замечательных грибов
При стандартной установке веб сервера на astra linux, после запуска сервиса apache, в браузере по адресу localhos всегда будем получать ошибку в логах «authentication not configured». Решением является добавление в /etc/apache2/apache2.conf тега:
|
1 |
AstraMode off |
Зачем это и почему мне не ведомо..
Довелось давече попробовать по распознавать текст при помощи сервиса Vision OCR от Яндекс облако. Результатом родился класс на PHP:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 |
<?php class TCloud { public $token=""; public $cloud_id=""; public $folder_id=""; public $zone=""; public $iam_token=""; public $debig=false; /** * Инициализация класса * @param type $token - токен * @param type $cloud_id - идентификатор облака * @param type $folder_id - идентификатор папки * @param type $zone - идентификатор зоны */ public function __construct($token,$cloud_id,$folder_id,$zone,$debug=false) { $this->token=$token; $this->cloud_id=$cloud_id; $this->folder_id=$folder_id; $this->zone=$zone; $this->debug=$debug; } /** * Получение IAM токена * Подробнее: https://yandex.cloud/ru/docs/iam/operations/iam-token/create#api_1 * @return bool */ public function GetIAMToken(){ $ch = curl_init("https://iam.api.cloud.yandex.net/iam/v1/tokens"); curl_setopt($ch, CURLOPT_VERBOSE, $this->debug); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); curl_setopt($ch, CURLOPT_POST, 1); $data["yandexPassportOauthToken"]=$this->token; curl_setopt( $ch, CURLOPT_POSTFIELDS, json_encode($data)); $res=curl_exec($ch); if (curl_errno($ch)) { $error_msg = curl_error($ch); var_dump($res); var_dump($error_msg); return false; } $res= json_decode($res); if ($res==null){return false;}; $this->iam_token=$res->iamToken; return true; } /** * Распознать картинку * @param type $mimetype - тип входящего файла (JPEG, PNG, PDF) * @param type $model - режим распозанвания (page) * @param type $content - контент в формате BASE64 * @param type $languageCodes - языки для распознавания (*), массив * Подробнее: https://yandex.cloud/ru/docs/vision/quickstart */ public function OCR($mimetype="JPEG",$model="page",$content,$languageCodes=["*"]){ $ch = curl_init("https://ocr.api.cloud.yandex.net/ocr/v1/recognizeText"); curl_setopt($ch, CURLOPT_VERBOSE, $this->debug); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); curl_setopt($ch, CURLOPT_HTTPHEADER, [ "Content-Type: application/json", "Authorization: Bearer ".$this->iam_token, "x-folder-id: ".$this->folder_id, "x-data-logging-enabled: true" ]); $data["mimeType"]=$mimetype; $data["languageCodes"]=$languageCodes; $data["model"]=$model; $data["content"]=$content; curl_setopt( $ch, CURLOPT_POSTFIELDS, json_encode($data)); $res=curl_exec($ch); if (curl_errno($ch)) { $error_msg = curl_error($ch); var_dump($res); var_dump($error_msg); die(); } return $res; } } |
Результатом возвращается json с блоками распознанного текста/таблиц.
В PHP версиях до 7.1, в некоторых скриптах используется команда Eval, позволяющая выполнить переданный на входе текст, как команду PHP. В последующих версия PHP, данная команда помечена как Deprecated. При апргрейде, соответственно часть скриптов перестают работать. Вот моё решение по замене:
|
1 2 3 4 |
function eval($str){ file_put_content("tmp.php",$str); include 'tmp.php'; } |
P.S. Совсем если честно не понял зачем было удалять эту команду из за «безопасности», если тому кому нужно вполне заменят её подобным костылём как у меня. Моё мнение: любое обновление не должно ломать старый код, исключения — крайние случаи. Этот случай явно не крайний.
Задача: загрузить в табличный документ на форме файл большого размера, с индикацией прогресса загрузки с использованием фоновой работы.
Решение: если поддержка фоновой работы в 1С была уже довольно давно, то асинхронная загрузка файлов на сервер появилась лишь начиная с версии 8.3.15.1489 ,Ну тоже уже давно, но руки добрались начать использовать только сейчас, т.к. ранее было не критично — не настолько большие файлы загружал/обрабатывал.
Итак, сначала на форме разместим индикатор загрузки. Для этого в реквизитах формы необходимо создать переменную типа «число», и перетащив её на форму выбрать тип «индикатор»:
На кнопку «Загрузить ЛС» навесим открытие диалогового окна:
|
1 2 3 |
Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx"; ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр); |
А чуть ниже определим обработчики оповещения о ходе загрузки файла на сервер и окончании загрузки файла, которые укажем при вызове процедуры «НачатьПомещениеФайлаНаСервер» (есть еще и «НачатьПомещениеФайловНаСервер»). В итоге код получится такой:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
&НаКлиенте Процедура ЗагрузитьЛС(Команда) этаформа.ИндикаторЗагрузкиЛС=0; Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx"; ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр); ОповещениеОЗавершении = новый ОписаниеОповещения("ПослеЗагрузкиФайлаЛС", ЭтаФорма); ОповещениеОХодеЗагрузки = новый ОписаниеОповещения("ОповещениеОХодеЗагрузкиЛС", ЭтаФорма); Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Перемещаю файл на сервер.."; НачатьПомещениеФайлаНаСервер(ОповещениеОЗавершении,ОповещениеОХодеЗагрузки,,,ПараметрыДиалога, УникальныйИдентификатор); КонецПроцедуры &НаКлиенте Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю.."; этаформа.ИндикаторЗагрузкиЛС=0; КонецПроцедуры &НаКлиенте Процедура ОповещениеОХодеЗагрузкиЛС (ПомещаемыйФайл, Помещено, ОтказОтПомещенияФайла,ДополнительныеПараметры) Экспорт этаформа.ИндикаторЗагрузкиЛС=Помещено; КонецПроцедуры |
В результате чего после выбора файла, по экрану побежит индикатор хода перемещения файла на сервер. Далее этот файл необходимо будет обработать на сервере фоново. И тут возникает один нюанс: мы не можем передать в фоновое задание ссылку на перемещенный файл во временном хранилище.Точнее можем, но фоновое задание это хранилище прочитать не может (это то ли глюк, то ли фича платформы — не понятно). Проблема.. Тогда делаем финт ушами: перед уходом в «фон», мы создадим временный файл во временной папке пользователя 1С, и передадим в фон уже не ссылку на него, а непосредственно имя временного файла. Для этого я просто написал функцию, которая на входе получает адрес загруженного файла, а на выходе даёт имя временного файла:
|
1 2 3 4 5 6 7 |
&НаСервере Функция СохранитьФайлНаСервере(АдресВременногоХранилища,расш) ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища); ИмяВременногоФайлаХар = ПолучитьИмяВременногоФайла(расш); ДвоичныеДанные.Записать(ИмяВременногоФайлаХар); возврат ИмяВременногоФайлаХар; КонецФункции |
Кроме того, чтобы мы могли передать результат в обработку по завершению фоновой работы, нам необходимо при запуске фонового задания передать в него некоторые параметры, а именно:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
&НаКлиенте Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю.."; этаформа.ИндикаторЗагрузкиЛС=0; инф=Новый Структура("ВременныйФайл,Расширение,ЛС_начало,ЛС_лс,ЛС_то,ЛС_дата_установки_пу,АдресВременногХранилища"); инф.ВременныйФайл=СохранитьФайлНаСервере(ОписаниеФайла.адрес,ОписаниеФайла.ссылканафайл.расширение); инф.Расширение=ОписаниеФайла.ссылканафайл.расширение; инф.ЛС_начало=объект.ЛС_начало; инф.ЛС_лс=объект.ЛС_лс; инф.ЛС_то=объект.ЛС_то; инф.ЛС_дата_установки_пу=объект.ЛС_дата_установки_пу; инф.АдресВременногХранилища=объект.ВрХранилищеФормы; КонецПроцедуры &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) объект.ВрХранилищеФормы=ПоместитьВоВременноеХранилище(0); ЗапуститьФЗЗагрузкиЛС(инф); ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС",1,ложь); КонецПроцедуры |
Функция которая будет работать фоново, должна размещаться в общем модуле. Это небольшой недостаток внешних обработок — фоново запускаются только процедуры-функции созданные внутри конфигурации. Но! до этого нам нужно опять же написать «обвязку» фонового задания, дабы мы имели возможность знать, работает или нет оно, а так-же на каком этапе. При запуске фонового задания, мы получаем идентификатор этого задания:
|
1 2 3 4 5 6 |
Функция ЗапуститьФЗЗагрузкиЛС(Параметры) МассивПараметров = Новый Массив; МассивПараметров.Добавить(Параметры); ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ДлительныеОперации.ЗагрузитьФайлыЛС",МассивПараметров); объект.ЛС_ФЗ = ФЗ.УникальныйИдентификатор; КонецФункции |
Который в дальнейшем будем использоваться для того чтобы «узнать» как поживает собственно это задание, подключив на клиенте обработчик ожидания, выполняющийся раз в секунду:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
&НаКлиенте Процедура ИндикаторВыполненияЗагрузкиФайловЛС() Экспорт пр=КакДелаУФЗЗагрузкиФайловЛС(); если пр=неопределено тогда этаформа.ИндикаторЗагрузкиЛС=100; ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС"); Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файлы обработаны"; иначе этаформа.ИндикаторЗагрузкиЛС=пр; конецесли; КонецПроцедуры &НаСервере Функция КакДелаУФЗЗагрузкиФайловЛС() ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(объект.идФЗ); если ФЗ=Неопределено тогда возврат неопределено; иначе если ФЗ.Состояние=СостояниеФоновогоЗадания.Завершено тогда возврат неопределено; конецесли; если ФЗ.Состояние=СостояниеФоновогоЗадания.ЗавершеноАварийно тогда Сообщить("Ошибка:"+ФЗ.ИнформацияОбОшибке.Описание); возврат неопределено; конецесли; конецесли; возврат 0; конецфункции |
Как видим, тут отслеживается состояние фонового задания (запущен, работает, завершен, завершен с ошибкой), но не отслеживается этап выполнения работ. Есть на самом деле два способа получения хода работы фонового задания:
Посему остаётся таки отлавливать сообщения сервера по известному идентификатору фонового задания:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
&НаСервере Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт Если Состояние = Неопределено Тогда Состояние = ФЗ.Состояние; КонецЕсли; МассивСообщений = Новый Массив; Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения); Если Сообщения <> Неопределено Тогда Для Каждого Сообщение Из Сообщения Цикл МассивСообщений.Добавить(Сообщение.Текст); КонецЦикла; КонецЕсли; Возврат МассивСообщений; КонецФункции |
А в самом фоновом здании, городить огород с выводом сообщений:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
// На входе: // парам.ВременныйФайл // парам.Расширение // парам.ЛС_начало // парам.ЛС_лс // парам.ЛС_то // парам.ЛС_дата_установки_пу // парам.АдресВременногХранилища Функция ЗагрузитьФайлыЛСРасширенно(парам) экспорт Сообщить("0%читаю файл на сервере"); ТабличныйДокументХар = Новый ТабличныйДокумент; ТабличныйДокументХар.Прочитать(парам.ВременныйФайл,СпособЧтенияЗначенийТабличногоДокумента.Значение); стар=0; Для Каждого ОбластьТД ИЗ ТабличныйДокументХар.Области Цикл ОбластьФайла = ТабличныйДокументХар.ПолучитьОбласть(ОбластьТД.Имя); КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали(); КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали(); НачСтрока=парам.ЛС_начало;КонСтрока=0; НачСтрока = ?(НачСтрока = 0, 2, НачСтрока); КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока); //перебираем все строки без первой строки Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл если стар<>Окр(нСтрокаТФ*100/КонСтрока) тогда Сообщить(Строка(Окр(нСтрокаТФ*100/КонСтрока))+"%обрабатываю файл"); стар=Окр(нСтрокаТФ*100/КонСтрока); конецесли; конеццикла; конеццикла конецфункции |
Посему модифицируем и обработчик ожидания, добавив парсинг сообщений сервера:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
&НаКлиенте Процедура ИндикаторВыполненияЗагрузкиФайловЛС() Экспорт пр=КакДелаУФЗЗагрузкиФайловЛС(); если пр=неопределено тогда этаформа.ИндикаторЗагрузкиЛС=100; ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС"); Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файлы обработаны"; иначе если пр.Количество()>0 тогда этаформа.ИндикаторЗагрузкиЛС=пр[0]; Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок=пр[1]; конецесли; конецесли; КонецПроцедуры &НаСервере Функция КакДелаУФЗЗагрузкиФайловЛС() ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(объект.ЛС_ФЗ); если ФЗ=Неопределено тогда возврат неопределено; иначе если ФЗ.Состояние=СостояниеФоновогоЗадания.Завершено тогда возврат неопределено; конецесли; если ФЗ.Состояние=СостояниеФоновогоЗадания.ЗавершеноАварийно тогда Сообщить("Ошибка:"+ФЗ.ИнформацияОбОшибке.Описание); возврат неопределено; конецесли; ФСообщения=СК_ГР_ДлительныеОперации.ПолучитьСообщенияФЗ(ФЗ,,истина); Если ФСообщения.Количество() > 0 Тогда Для Каждого Сообщение Из ФСообщения Цикл Если СтрНайти(Сообщение,"%")>0 тогда возврат СтрРазделить(Сообщение,"%"); конецесли; КонецЦикла; КонецЕсли; конецесли; возврат Новый Массив(); конецфункции |
По умолчанию, Raspberry Pi работает с 1-wire на gpio-4, однако можно руками указать какой именно пин использовать для поиска устройств. Или несколько пинов сразу. Для этого нужно открыть файл /boot/firmware/connfig.txt и указать руками нужный пин:
|
1 |
dtoverlay=w1-gpio,gpiopin=24 |
Соответственно для того чтобы поиск шел на нескольких пинов:
|
1 2 3 |
dtoverlay=w1-gpio,gpiopin=24 dtoverlay=w1-gpio,gpiopin=4 dtoverlay=w1-gpio,gpiopin=17 |
После перезагрузки устройства появятся в /sys/bus/w1/devices
