Жизнь замечательных грибов
Ну не хотят еще до сих пор разработчики драйверов под Linux писать их нормально. Ну как можно сделать драйвера, без возможности добавить свои размеры бумаги? Только хардкор, только ручная правка файла ppd для CUPS.
В ниже представленном драйвере, добавлен размер бумаги 58х28мм, один из распространённых размеров для печати этикеток.
Решим задачу кросплатформенно:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TForm1.GetUserLogin(Sender: TObject); {$IFDEF MSWINDOWS} const envVar = 'USERNAME'; {$ENDIF} {$IFDEF UNIX} envVar = 'USER'; {$ENDIF} begin user_login:=SysUtils.GetEnvironmentVariable(envVar); MessageDlg(user_login, mtInformation,[mbOk],0); end; |
Задача: обеспечить вход на сайт только при наличии действующего сертификата формата p12.
Решение:
Инструкция создана на основе нескольких источников, в т.ч. этого и этого, но с внесением поправок что год уже конец 2022, и появились некоторые нюансы, что старые инструкции не работают по умолчанию для новых дистрибутивов.
Сначала создадим корневой сертификат сервера и необходимые для дальнейшей работы файлы и папки. Для этого создадим в любой папке файл root_cer.sh с содержимым вида:
|
1 2 3 4 5 6 7 8 9 10 11 |
mkdir db # БД сертификатов mkdir certs # ключ и сертификат сервера mkdir db/certs # пользовательские сертификаты mkdir db/newcerts # новые сертификаты mkdir p12 # сертификаты для передачи клиентам (p12) touch db/index.txt echo "01" > db/serial openssl req -new -newkey rsa:2048 -nodes -keyout certs/server.key -x509 -days 1024 \ -subj /C=RU/ST=Vol/L=Vol/O=LTD\ ElkiPalki/OU=Sale/CN=zz/emailAddress=wefwerfwe@gmail.com \ -out certs/server.crt |
, где:
rsa:2048- длина ключа, -days — сколько дней действителен сертификат, -x509 — создаём самоподписаный сертификат, /C — страна, /ST — область, /L — город, /O — организация, /OU — отдел,
Результатом работы будут два файла в папке certs: servert.crt (сертификат) и serverk.key (закрытый ключ). Данные закрытого ключа можно посмотреть при помощи:
|
1 2 |
openssl rsa -noout -text -in server.key openssl x509 -noout -text -in server.crt |
В файле db/serial записывается текущий серийный номер
подписываемого сертификата в шестнадцатиричном формате.
В файл db/index.txt сохраняются данные о подписываемых сертификатах.
Далее необходимо создать файл с настройками для генерации пользовательских сертификатов ca.config:
|
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 |
[ ca ] default_ca = CA_CLIENT # При подписи сертификатов использовать секцию CA_CLIENT [ CA_CLIENT ] dir = ./db # Каталог для служебных файлов certs = $dir/certs # Каталог для сертификатов new_certs_dir = $dir/newcerts # Каталог для новых сертификатов database = $dir/index.txt # Файл с базой данных # подписанных сертификатов serial = $dir/serial # Файл содержащий серийный номер # сертификата # (в шестнадцатиричном формате) certificate = ./certs/server.crt # Файл сертификата CA private_key = ./certs/server.key # Файл закрытого ключа CA default_days = 365 # Срок действия подписываемого # сертификата default_crl_days = 7 # Срок действия CRL (см. $4) default_md = sha256 # Алгоритм подписи policy = policy_anything # Название секции с описанием политики в отношении данных сертификата [ policy_anything ] countryName = optional # Код страны - не обязателен stateOrProvinceName = optional # ...... localityName = optional # ...... organizationName = optional # ...... organizationalUnitName = optional # ...... commonName = supplied # ...... - обязателен emailAddress = optional # ...... |
Для автоматизации генерации клиентских сертификатов можно собрать небольшой bash скрипт:
|
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 |
#!/bin/bash NO_ARGS=0 BASE_DIR="" P12_DIR="$BASE_DIR/p12" CA_CFG="$BASE_DIR/ca.config" # Конфигурационный файл для подписи CERTS="$BASE_DIR/db/certs" # Каталог для хранения сертификатов CA_FILE="$BASE_DIR/certs/server.crt" # Доверенный сертификат (Им подписывам) usage () { echo "Скрипт `basename $0` предназначен для создания клиентских SSL сертификатов." echo "" echo "Использование: `basename $0` email name password" } if [ $# -eq "$NO_ARGS" ] # Сценарий вызван без аргументов? then usage # Если запущен без "аргуменотов" - вывести справку exit $E_OPTERROR # и выйти с кодом ошибки fi EMAIL=$1 echo "Email:$EMAIL" NAME=$2 echo "Name:$NAME" PASSWORD=$3 echo "Password:$PASSWORD" # создаём запрос на клиентский сертификат openssl req -new -newkey rsa:2048 -nodes -keyout "$CERTS/$NAME.key" \ -subj /C=RU/CN=usr/emailAddress="$EMAIL" \ -out "$CERT/$NAME.csr" # подписываем запрос на сертификат при помощи доверенного сертификата openssl ca -config "$CA_CFG" -in "$CERT/$NAME.csr" -out "$CERT/$NAME.crt" -batch # создаём файл p12 для передачи клиенту openssl pkcs12 -export -in "$CERT/$NAME.crt" -inkey "$CERTS/$NAME.key" \ -certfile "$CA_FILE" -out "$P12_DIR/$NAME.p12" -passout pass:"$PASSWORD" |
На входе скрипта необходимо задать email, имя пользователя без пробелов и пароль на установку сертификата. На выходе будет запись в БД сертификатов и непосредственно сам контейнер p12 в папке p12 для передачи клиенту.
И ещё один полезный скрипт, для автоматизации отзыва сертификатов revote.sh:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#!/bin/bash NO_ARGS=0 BASE_DIR="" CA_CFG="$BASE_DIR/ca.config" CERTS="$BASE_DIR/db/newcerts" usage () { echo "Скрипт `basename $0` предназначен для отзыва клиентских SSL сертификатов." echo "" echo "Использование: `basename $0` serial" } if [ $# -eq "$NO_ARGS" ] # Сценарий вызван без аргументов? then usage # Если запущен без "аргуменотов" - вывести справку exit $E_OPTERROR # и выйти с кодом ошибки fi SERIAL=$1 echo "Отзываю сертификат: $CERTS/$SERIAL.pem" openssl ca -config "$CA_CFG" -revoke "$CERTS/$SERIAL.pem" # составим список отозваных в файл revoked.crl openssl ca -gencrl -config "$CA_CFG" -out revoked.crl |
Посмотреть список отозваных сертификатов можно при помощи команды:
|
1 |
openssl crl -in revoked.crl -text -noout |
Осталось только настроить apache для того что бы он пускал на сайт, только при наличии сертификата, добавив:
|
1 2 |
SSLCACertificateFile /path/to/server.crt SSLVerifyClient require |
Задача: создать по шаблону файл формата Word на сервере 1С предприятие. Кросплатформенно (т.е. никаких COMОбъект).
Первоначально было сделано на основе сохранения табличного документа генерируемого из Макета. Однако в нём сложно получить вычурную разметку, которая необходима в моем случае.
Решение: используем функционал БСП УправлениеПечатью, а именно функцию ИнициализироватьМакетОфисногоДокумента.
1.Создаем документа в формате OpenXML. Любым редактором. Хоть Word хоть LibreOffice. Без разницы. Разметку в нём делаем в соответствии с разделителями вида:
|
1 2 3 |
{v8 Область.<Имя области>} {v8 <ИмяПараметра>} {/v8 Область.<Имя области>} |
Подробнее о разметке тут
2. Создаем в конфигураторе 1С документ и макет с бинарными данными и загружаем в него этот файл.
3. В Менеджере документа размещаем:
|
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 91 92 |
Функция СгенерироватьДокументБСП(Ссылка,ИмяМакета) Экспорт ДанныеМакета = ПолучитьДанныеМакета(ИмяМакета); ОфисныеДокументы = Новый Соответствие; АдресХранилищаОфисныйДокумент = СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакета, ИмяМакета); докбин= Новый ХранилищеЗначения( ПолучитьИзВременногоХранилища(АдресХранилищаОфисныйДокумент) ); фф=докбин.Получить(); возврат фф; КонецФункции функция СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакетов, ИмяМакета) //Тестовые данные, могут быть получены ранее в другой функции или в этой функции ДанныеОбъекта = Новый Структура; ДанныеОбъекта.Вставить("Кому", "ООО НАША ОРГАНИЗАЦИЯ"); ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета]; ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов; Области = ДанныеМакетов.ОписаниеОбластей; Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета, ИмяМакета); Если Макет = Неопределено Тогда Возврат ""; КонецЕсли; ЗакрытьОкноПечатнойформы = Ложь; Попытка ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета, Макет); АдресХранилищаПечатнойФормы = ""; Если ПечатнаяФорма = Неопределено Тогда УправлениеПечатью.ОчиститьСсылки(Макет); Возврат ""; КонецЕсли; // Вывод верхней части документа - обычная область с параметрами. Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Шапка"]); УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта); АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма); Исключение ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); ЗакрытьОкноПечатнойФормы = Истина; Возврат ""; КонецПопытки; УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы); УправлениеПечатью.ОчиститьСсылки(Макет); Возврат АдресХранилищаПечатнойФормы; Конецфункции функция ПолучитьДанныеМакета(Знач ИмяМакета) ОписаниеОбластей = Новый Соответствие; ДвоичныеДанныеМакетов = Новый Соответствие; ТипыМакетов = Новый Соответствие; ДвоичныеДанныеМакетов.Вставить(ИмяМакета, ПолучитьМакет(ИмяМакета)); ОписаниеОбластей.Вставить(ИмяМакета, ОписаниеОбластейМакетаОфисногоДокумента()); Макет = Новый Структура; Макет.Вставить("ОписаниеОбластей", ОписаниеОбластей); Макет.Вставить("ДвоичныеДанныеМакетов", ДвоичныеДанныеМакетов); Макет.Вставить("ТипыМакетов", ТипыМакетов); Макет.Вставить("ЛокальныйКаталогФайловПечати", Неопределено); Если НЕ Макет.Свойство("ТипыМакетов") Тогда Макет.Макеты.Вставить("ТипыМакетов", Новый Соответствие); КонецЕсли; Возврат Макет; Конецфункции функция ОписаниеОбластейМакетаОфисногоДокумента() ОписаниеОбластей = Новый Структура; УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Шапка", "Общая"); Возврат ОписаниеОбластей; Конецфункции |
4. В Форме документа размещаем:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
&НаСервере Функция СформироватьДокументНаСервереБСП(); бинарныеданные=Документы.ascsdc.СгенерироватьДокументБСП(объект,"Шаблон_2"); возврат бинарныеданные; КонецФункции &НаКлиенте Процедура ГенерацияБСП(Команда) БинарныеДанные=СформироватьДокументНаСервереБСП(); врмф=ПолучитьИмяВременногоФайла(".docx"); БинарныеДанные.Записать(врмф); Попытка ОбъектВорд = Новый COMОбъект("Word.Application"); Исключение Сообщить("Ошибка при запуске Microsoft Word (3): " + ОписаниеОшибки(), СтатусСообщения.Внимание); КонецПопытки; //Путь к шаблону ОбъектВорд.Documents.Add(врмф); ШаблонВорд = ОбъектВорд.ActiveDocument; ОбъектВорд.Application.Visible = Истина; ОбъектВорд.Activate(); КонецПроцедуры |
В приведенном примере, файл формируется на сервере и открывается для наглядности в Word уже «готовым» на клиенте. В принципе ничего не мешает эту фазу исключить и сразу сохранять полученный с сервера файл куда угодно.
Иногда при попытке установить (apt-get update) какой то пакет в Ubuntu можно увидеть ошибки вида:
|
1 2 3 |
Ош http://security.ubuntu.com vivid-security/multiverse i386 Packages 404 Not Found [IP: 91.189.91.24 80] W: Не удалось получить http://ru.archive.ubuntu.com/ubuntu/dists/vivid/main/source/Sources 404 Not Found [IP: 213.180.204.183 80] |
Скорее всего это лишь означает, что версия Ubuntu устарела, и обновления и пакеты далее доступны по другому адресу:
http://old-releases.ubuntu.com/ubuntu/pool/main/
Что делать: открываем файл источников ПО, и заменяем ссылки вида http://security.ubuntu.com на http://old-releases.ubuntu.com/
|
1 |
mcedit /etc/apt/sources.list |