Декабрь 2023

Red OS 7.3 настройка ssmtp

28.12.2023 Павел Грибов Linux, Из жизни

Часто бывает, что настраивать полноценный почтовый сервер на виртуалке нет ни необходимости ни желания, а почту отправлять…желание есть. Для этого и служит ssmtp. Фактически он подменяет в системе почтовую систему, и отправляет почту используя чужие почтовые сервера — например mail. yandex, gmail и т.д. Естественно понадобится учетная запись на этой почтовой системе, и открытый доступ для получения/отправки почты из вне. Далее установка и настройка ssmtp применительно к mail.yandex.ru

Установка ssmtp:

dnf install https://dl.fedoraproject.org/pub/epel/7/x86_64/Packages/s/ssmtp-2.64-14.el7.x86_64.rpm

1	dnf install https://dl.fedoraproject.org/pub/epel/7/x86_64/Packages/s/ssmtp-2.64-14.el7.x86_64.rpm

Далее откроем /etc/ssmtp/ssmtp.conf и приведем в соответствии с вашими учетными данными:

hostname=localhost
FromLineOverride=YES
AuthUser=моя_почта@yandex.ru
AuthPass=мой_пароль
smtp.yandex.ru:465
rewriteDomain=yandex.ru
UseTLS=YES
TLS_CA_File=/etc/pki/tls/certs/ca-bundle.crt
DEBUG=YES

hostname=localhost

FromLineOverride=YES

AuthUser=моя_почта@yandex.ru

AuthPass=мой_пароль

smtp.yandex.ru:465

rewriteDomain=yandex.ru

UseTLS=YES

TLS_CA_File=/etc/pki/tls/certs/ca-bundle.crt

DEBUG=YES

Так-же в /etc/ssmtp/revaliases нужно создать алиас вида:

root:моя_почта@yandex.ru:smtp.yandex.ru:465

1	root:моя_почта@yandex.ru:smtp.yandex.ru:465

И создать символическую ссылку, подменяющую sendmail:

ln -s /usr/sbin/ssmtp /usr/sbin/sendmail

1	ln -s /usr/sbin/ssmtp /usr/sbin/sendmail

На этом и всё. Попробовать отправить письмо можно прямо из консоли:

echo "Test text" | mail -s "Test title" -r моя_почта@yandex.ru donpadlo@gmail.com

1	echo "Test text" \| mail -s "Test title" -r моя_почта@yandex.ru donpadlo@gmail.com

Оставить комментарий redos, ssmtp, настройка почты

PosgreSQL: Разница дат

28.12.2023 Павел Грибов postgressql

Разницу дат в месяцах в запросе можно получить например так:

select extract(month from age(now(), '2023-11-01'))

1	select extract(month from age(now(), '2023-11-01'))

Соответственно в днях, часах, годах и т.п. можно получить подставив вместо month: day, hour, year и т.д.

Оставить комментарий age, postgresql, разница дат

Cпособы отправки письма из 1С

27.12.2023 Павел Грибов 1C

Итак, рассмотрю способы отправки письма из 1С. На самом деле навелосипедить можно и больше, но мне хватит 😉

1) На «прямую», без использования БСП:

	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP = "цукацукацука";
	Профиль.ПортSMTP = 465;
	
	Профиль.POP3ПередSMTP = ложь;
	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	
	Профиль.ИспользоватьSSLSMTP = ложь;
	
	Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь;
	
	Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru";
	Профиль.Пароль = "Hцукацукаg";
	Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru";
	Профиль.ПарольSMTP = "укацукацу";
	
	//Профиль.Таймаут = 60;
	
	Почта = Новый ИнтернетПочта;
	                                 
	Сообщить("Проверка cоединения..");
	Попытка
		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);
		Сообщить("POP3: соединение ОК");
		Сообщить("SMTP: соединение ОК");
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
	
	Попытка
		Почта.Подключиться(Профиль);
		
		Письмо = Новый ИнтернетПочтовоеСообщение;
		Письмо.Тема = Заголовок;
	
		// формируем адрес получателя	
		Получатель = Письмо.Получатели.Добавить(Кому);
		Получатель.ОтображаемоеИмя = Кому;
	
		// добавляем к письму имя отправителя
		Письмо.ИмяОтправителя              = "Сцукауцкания";
		Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания";
		сообщить(константы.СК_Почта_Отправитель.Получить());
		Письмо.Отправитель.Адрес           = "noreply@цукаука.ru";
	
		// добавляем текст
		Текст = Письмо.Тексты.Добавить(Тело);
		Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
		
		Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP);
		
		Сообщить("SMTP: посылка ОК");
		
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;

Профиль = Новый ИнтернетПочтовыйПрофиль;

Профиль.АдресСервераSMTP = "цукацукацука";

Профиль.ПортSMTP = 465;

Профиль.POP3ПередSMTP = ложь;

Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

Профиль.ИспользоватьSSLSMTP = ложь;

Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь;

Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru";

Профиль.Пароль = "Hцукацукаg";

Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru";

Профиль.ПарольSMTP = "укацукацу";

//Профиль.Таймаут = 60;

Почта = Новый ИнтернетПочта;

Сообщить("Проверка cоединения..");

Попытка

Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);

Сообщить("POP3: соединение ОК");

Сообщить("SMTP: соединение ОК");

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

Попытка

Почта.Подключиться(Профиль);

Письмо = Новый ИнтернетПочтовоеСообщение;

Письмо.Тема = Заголовок;

// формируем адрес получателя

Получатель = Письмо.Получатели.Добавить(Кому);

Получатель.ОтображаемоеИмя = Кому;

// добавляем к письму имя отправителя

Письмо.ИмяОтправителя = "Сцукауцкания";

Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания";

сообщить(константы.СК_Почта_Отправитель.Получить());

Письмо.Отправитель.Адрес = "noreply@цукаука.ru";

// добавляем текст

Текст = Письмо.Тексты.Добавить(Тело);

Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP);

Сообщить("SMTP: посылка ОК");

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

2) Используя БСП «Свежих» версий. Не могу сказать точно с какой версий, года примерно с двадцатого:

    УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(); 
 
	попытка                                                                                  
	ПараметрыСообщения = Новый Структура;
	ПараметрыСообщения.Вставить("Кому",     Кому);
	ПараметрыСообщения.Вставить("Тема",     Заголовок);
	ПараметрыСообщения.Вставить("Тело",     Тело);

		Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗаписьПочты, ПараметрыСообщения);
		РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗаписьПочты, Письмо);		
	исключение
		сообщить("ой!");
		Сообщить(ОписаниеОшибки());
	конецпопытки;

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();

попытка

ПараметрыСообщения = Новый Структура;

ПараметрыСообщения.Вставить("Кому", Кому);

ПараметрыСообщения.Вставить("Тема", Заголовок);

ПараметрыСообщения.Вставить("Тело", Тело);

Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗаписьПочты, ПараметрыСообщения);

РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗаписьПочты, Письмо);

исключение

сообщить("ой!");

Сообщить(ОписаниеОшибки());

конецпопытки;

3) Используя БСП «старых версий»… Очень старых… Где-то года 2015 и ранее:

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "цуацукау", тело,"HTML");
		РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);

УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();

ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "цуацукау", тело,"HTML");

РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);

Оставить комментарий 1с, бсп, отправка почты

infostart.ru Всё!

27.12.2023 Павел Грибов Из жизни

К сожалению в связи с последними событиями со стороны infostart, а именно:

вывод денежных средств теперь возможен только для самозанятых, что для меня не приемлемо
односторонний разрыв ранее подписанного договора о сотрудничестве по инициативе infostart

Вынужден признать, что для меня infostart кончился, и далее публиковать свои разработки и как либо сотрудничать с этим ресурсом не считаю возможным.

Попытаюсь добиться чтобы вернули деньги которые остались на балансе и удалили мой профиль вместе со всеми публикациями.

Оставить комментарий infostart, самозанятость

Русификация дисплея SSD1306

25.12.2023 Павел Грибов arduino

В интернете полно инструкций по русификации данного дисплея. Фактически все рекомендации сводятся к замене в папке C:\Users\USER\Documents\Arduino\libraries\Adafruit_GFX_Library (у вас другой путь) файла glcdfont.c вот этим файлом, и далее использованием вот этой функции для конвертации UTF-8 в кодировку windows-1251:

String utf8rus(String source){
  int i,k;
  String target;
  unsigned char n;
  char m[2] = { '0', '\0' };
  k = source.length(); i = 0;
  while (i < k) {
    n = source[i]; i++;
    if (n >= 0xC0) {
      switch (n) {
        case 0xD0: {
          n = source[i]; i++;
          if (n == 0x81) { n = 0xA8; break; }
          if (n >= 0x90 && n <= 0xBF) n = n + 0x30;
          break;
        }
        case 0xD1: {
          n = source[i]; i++;
          if (n == 0x91) { n = 0xB8; break; }
          if (n >= 0x80 && n <= 0x8F) n = n + 0x70;
          break;
        }
      }
    }
    m[0] = n; target = target + String(m);
  }
return target;
}

String utf8rus(String source){

int i,k;

String target;

unsigned char n;

char m[2] = { '0', '\0' };

k = source.length(); i = 0;

while (i < k) {

n = source[i]; i++;

if (n >= 0xC0) {

switch (n) {

case 0xD0: {

n = source[i]; i++;

if (n == 0x81) { n = 0xA8; break; }

if (n >= 0x90 && n <= 0xBF) n = n + 0x30;

break;

}

case 0xD1: {

n = source[i]; i++;

if (n == 0x91) { n = 0xB8; break; }

if (n >= 0x80 && n <= 0x8F) n = n + 0x70;

break;

}

m[0] = n; target = target + String(m);

}

return target;

}

У меня увы, этот метод не сработал, как бы я не бился. И файл со скетчем переводил и в UTF-8 и в кодировку windows-1251 и чего только не делал. Ну не работает и всё тут. Потом на какое-то время заработало, потом опять перестало. Разобраться почему я так и не смог. В результате пошел другим путем — написал онлайн конвертор UTF-8 в восьмеричный формат кодировки windows-1251, после чего стало возможным вставлять в IDE код вида:

display.print("\307\300\317\323\321\312...");

1	display.print("\307\300\317\323\321\312...");

Пусть не сильно читаемо в коде, но зато работает максимально стабильно. Конвертер ниже:

Кроме того, обнаружил еще одну не объяснимую ошибку при работе с данным дисплеем: если в программе интенсивно используется вывод в консоль при помощи Serial.println то на дисплее возникают артефакты в виде шума.

Оставить комментарий arduino, SSD1306, русификация

1 2 3 »

Декабрь 2023
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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