Новый проект. DHCP сервер с выборкой из БД на Python

Задачей было написать аналог проекта DHCP2DB , но только на Python вместо C. В принципе […]

Читать далее »
Arduino Uno краткий обзор..

Ну на самом деле таких обзоров в «интернетиках» пруд пруди.. Ну чтож, внесу и я […]

Читать далее »
Получение данных из Active Directory посредством PHP

Сам за себя лучше всего расскажет мой кусок кода. Все сдобрено максимально большим количеством комментариев. […]

Читать далее »

Сброс соединения mpd5

20.07.2017 Павел Грибов Linux

Для того чтобы выполнить принудительный разрыв соединения mpd, необходимо в консоли выполнить:

ngctl
shutdown ngXXX:

1 2	ngctl shutdown ngXXX:

, где ngXXX можно посмотреть по ifconfig

Оставить комментарий mpd, ngctl

О понятности кода..

17.07.2017 Павел Грибов Из жизни, Мысли по ИТ

Вот если выбирать как писать код, вот так:

 $url = ($path == '') ? 'javascript:void(0)' : "index.php?content_page=$path";

1	$url = ($path == '') ? 'javascript:void(0)' : "index.php?content_page=$path";

Или вот так:

if ($path==""){
   $url='javascript:void(0)';
} else {
   $url="index.php?content_page=$path";
};

if ($path==""){

$url='javascript:void(0)';

} else {

$url="index.php?content_page=$path";

};

То я выберу последнее. И меня коробит немножко когда читаю код, написаный в «коротком» стиле. Не роботы же. Может конечно это сила привычки, и со временем, если постоянно писать «сокращенный» код то он становится читаемым «на лету». Но я всё-же за более «человечный» код, чтоб было понятно сразу, без разбора конструкции.

Оставить комментарий кородкий код, сокращение

1001-й способ ограничить пользователей 1С

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

Задача: разрешить пользователям проводить документы только внутри разрешенных им складов.

Частично данная задача успешно решается при помощи RLE и соответствующих ролей. Но! не полностью. Во всяком случае в конфигурации 1С Розница 2.2 нет возможности ограничить пользователя (без изменения конфигураци)…ну например реализовывать товар с «чужого» склада/Магазина, делать перемещение товаров на «чужие» склады (ограничения работают только для Ордеров???).

Решение: используем относительно новую фичу от 1С — подписка на события. А именно на событие «Запись». Данные по которым будем проверять можно пользователю записывать данный документ или нет, будем брать из специально созданного справочника.

krana-ot-2017-07-13-15-04-38.png»>

Функция ПолучитьГруппуПользователя()
 Запрос = Новый Запрос;
  	 Запрос.Текст = "ВЫБРАТЬ
  	                |	ГруппыПользователей.Наименование КАК Наименование
  	                |ИЗ
  	                |	Справочник.ГруппыПользователей КАК ГруппыПользователей
  	                |ГДЕ
  	                |	ГруппыПользователей.Состав.Пользователь.Ссылка = &Ссылка";
	 
	Запрос.УстановитьПараметр("Ссылка",  ПараметрыСеанса.ТекущийПользователь);
	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	группа="";
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		//сообщить(ВыборкаДетальныеЗаписи.Наименование);
		группа=ВыборкаДетальныеЗаписи.Наименование;
	конеццикла;	           
	возврат группа;
	
КонецФункции	

Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт
	отказываем=истина;
	естьправила=ложь;
 	гп=	ПолучитьГруппуПользователя();
	естьОтправитель=ложь;
	естьПолучатель=ложь;
    отказываемОтправитель=истина;
	отказываемПолучатель=истина;
	// проверяем соответствие складам "Откуда"
	 Запрос = Новый Запрос;
  	 Запрос.Текст = 
	 "ВЫБРАТЬ
	 |	ДополнительныеНастройкиПравГрибовСкладыОткуда.Склад.Ссылка КАК СкладСсылка
	 |ИЗ
	 |	Справочник.ДополнительныеНастройкиПравГрибов.РазрешенныеСклады КАК ДополнительныеНастройкиПравГрибовСкладыОткуда
	 |ГДЕ
	 |	ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ГруппаПользователей.Наименование = &ИмяГруппы
	 |	И ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ВидДокумента.Наименование = &ИмяДокумента";	 
	Запрос.УстановитьПараметр("ИмяГруппы", гп);
	Запрос.УстановитьПараметр("ИмяДокумента", Источник.Ссылка.Метаданные().Имя);
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		естьправила=Истина;		
		если Источник.Ссылка.Метаданные().Реквизиты.Найти("Склад")<>Неопределено тогда			
			если источник.Склад.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда отказываем=Ложь;
			конецесли;	
		конецесли;
		если Источник.Ссылка.Метаданные().Реквизиты.Найти("СкладОтправитель")<>Неопределено тогда		
			естьОтправитель=Истина;
			если источник.СкладОтправитель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда 
				отказываем=Ложь;				
				отказываемОтправитель=Ложь;
			конецесли;	
		конецесли;		
		если Источник.Метаданные().Реквизиты.Найти("СкладПолучатель")<>Неопределено тогда		
			естьПолучатель=Истина;
			если источник.Ссылка.СкладПолучатель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда 
				отказываем=Ложь;
				отказываемОтправитель=Ложь;
			конецесли;	
		конецесли;									
	конеццикла;	
 если естьправила=Ложь тогда
	 Отказ=ложь;
 иначе
	  //отрабатываем вариант что два склада отправитель и получатель!
	  если (естьОтправитель=Истина и естьПолучатель=Истина) тогда
		  если отказываемОтправитель=Ложь и отказываемПолучатель=Ложь тогда
		   отказ=ложь;	  
	   иначе
		   отказ=Истина;
		  конецесли;	  
		  иначе
			  отказ=отказываем;			  
	  конецесли
	  
  конецесли;
  
	 если отказ=Истина тогда сообщить("- вы не можете записать данный документ с данными складами - не хватает прав! Обратитесь к Кочанову Сергею.");
	 конецесли;	 	  
  
КонецФункции

Функция ПолучитьГруппуПользователя()

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| ГруппыПользователей.Наименование КАК Наименование

|ИЗ

| Справочник.ГруппыПользователей КАК ГруппыПользователей

|ГДЕ

| ГруппыПользователей.Состав.Пользователь.Ссылка = &Ссылка";

Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

группа="";

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

//сообщить(ВыборкаДетальныеЗаписи.Наименование);

группа=ВыборкаДетальныеЗаписи.Наименование;

конеццикла;

возврат группа;

КонецФункции

Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт

отказываем=истина;

естьправила=ложь;

гп= ПолучитьГруппуПользователя();

естьОтправитель=ложь;

естьПолучатель=ложь;

отказываемОтправитель=истина;

отказываемПолучатель=истина;

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

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| ДополнительныеНастройкиПравГрибовСкладыОткуда.Склад.Ссылка КАК СкладСсылка

|ИЗ

| Справочник.ДополнительныеНастройкиПравГрибов.РазрешенныеСклады КАК ДополнительныеНастройкиПравГрибовСкладыОткуда

|ГДЕ

| ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ГруппаПользователей.Наименование = &ИмяГруппы

| И ДополнительныеНастройкиПравГрибовСкладыОткуда.Ссылка.ВидДокумента.Наименование = &ИмяДокумента";

Запрос.УстановитьПараметр("ИмяГруппы", гп);

Запрос.УстановитьПараметр("ИмяДокумента", Источник.Ссылка.Метаданные().Имя);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

естьправила=Истина;

если Источник.Ссылка.Метаданные().Реквизиты.Найти("Склад")<>Неопределено тогда

если источник.Склад.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда отказываем=Ложь;

конецесли;

если Источник.Ссылка.Метаданные().Реквизиты.Найти("СкладОтправитель")<>Неопределено тогда

естьОтправитель=Истина;

если источник.СкладОтправитель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда

отказываем=Ложь;

отказываемОтправитель=Ложь;

конецесли;

если Источник.Метаданные().Реквизиты.Найти("СкладПолучатель")<>Неопределено тогда

естьПолучатель=Истина;

если источник.Ссылка.СкладПолучатель.Ссылка=ВыборкаДетальныеЗаписи.СкладСсылка тогда

отказываем=Ложь;

отказываемОтправитель=Ложь;

конецесли;

конеццикла;

если естьправила=Ложь тогда

Отказ=ложь;

иначе

//отрабатываем вариант что два склада отправитель и получатель!

если (естьОтправитель=Истина и естьПолучатель=Истина) тогда

если отказываемОтправитель=Ложь и отказываемПолучатель=Ложь тогда

если отказ=Истина тогда сообщить("- вы не можете записать данный документ с данными складами - не хватает прав! Обратитесь к Кочанову Сергею.");

конецесли;

КонецФункции

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

Програмное получение группы пользователя в 1С

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

Например можно так:



		
		
			
			

			
			Функция ПолучитьГруппуПользователя()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ГруппыПользователей.Наименование КАК Наименование
|ИЗ
| Справочник.ГруппыПользователей КАК ГруппыПользователей
|ГДЕ
| ГруппыПользователей.Состав.Пользователь.Ссылка = &amp;Ссылка";

Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
группа="";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
сообщить(ВыборкаДетальныеЗаписи.Наименование);
группа=ВыборкаДетальныеЗаписи.Наименование;
конеццикла;
возврат группа;

КонецФункции

Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт

сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?");
КонецФункции
			
				
					
				
					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
				
						Функция ПолучитьГруппуПользователя()
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ГруппыПользователей.Наименование КАК Наименование
|ИЗ
| Справочник.ГруппыПользователей КАК ГруппыПользователей
|ГДЕ
| ГруппыПользователей.Состав.Пользователь.Ссылка = &amp;Ссылка";
 
Запрос.УстановитьПараметр("Ссылка", ПараметрыСеанса.ТекущийПользователь);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
группа="";
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
сообщить(ВыборкаДетальныеЗаписи.Наименование);
группа=ВыборкаДетальныеЗаписи.Наименование;
конеццикла;
возврат группа;
 
КонецФункции
 
Функция ПроверкаВсяческихПрав(Источник, Отказ) Экспорт
 
сообщить("-- какойто негодяй из "+ПолучитьГруппуПользователя()+" хочет записать документ! Проверяем а нужно ли?");
КонецФункции

Оставить комментарий 1c, группа пользователей

Настройка репликации master-master на MySQL

10.07.2017 Павел Грибов MySQL

Шаг 1 на сервере 1

В файл my.cnf добавляем/изменяем следующие строки:

server-id = 1
log_bin = /var/log/mysql/mysql-bin.log
binlog_do_db = radme_rep
bind-address = 10.10.0.1

server-id = 1

log_bin = /var/log/mysql/mysql-bin.log

binlog_do_db = radme_rep

bind-address = 10.10.0.1

Перезапускаем mysql, создаем базу (в моем случае это radme_rep)
В консоли выполняем:

SHOW MASTER STATUS;
+------------------+----------+--------------+------------------+
| File | Position | Binlog_Do_DB | Binlog_Ignore_DB |
+------------------+----------+--------------+------------------+
| mysql-bin.000003 | 117 | radme_rep | |
+------------------+----------+--------------+------------------+
1 row in set (0.00 sec)

SHOW MASTER STATUS;

+------------------+----------+--------------+------------------+

+------------------+----------+--------------+------------------+

+------------------+----------+--------------+------------------+

1 row in set (0.00 sec)

Создаем пользователя и даем ему права на операции с БД (под ним будет заходить Сервер 2)

create user 'replicator'@'%' identified by 'password';
grant replication slave on *.* to 'replicator'@'%';

1 2	create user 'replicator'@'%' identified by 'password'; grant replication slave on . to 'replicator'@'%';

Шаг 2 на сервере 2

В файл my.cnf добавляем/изменяем следующие строки:

server-id = 2
log_bin = /var/log/mysql/mysql-bin.log
binlog_do_db = radme_rep
bind-address = 10.10.0.2

server-id = 2

log_bin = /var/log/mysql/mysql-bin.log

binlog_do_db = radme_rep

bind-address = 10.10.0.2

Перезапускаем mysql, создаем базу (в моем случае это radme_rep)
В консоли выполняем:

SHOW MASTER STATUS;
+------------------+----------+--------------+------------------+
| File | Position | Binlog_Do_DB | Binlog_Ignore_DB |
+------------------+----------+--------------+------------------+
| mysql-bin.000004 | 107 | radme_rep | |
+------------------+----------+--------------+------------------+
1 row in set (0.00 sec)

SHOW MASTER STATUS;

+------------------+----------+--------------+------------------+

+------------------+----------+--------------+------------------+

+------------------+----------+--------------+------------------+

1 row in set (0.00 sec)

Создаем пользователя и даем ему права на операции с БД (под ним будет заходить Сервер 1)

create user 'replicator'@'%' identified by 'password';
grant replication slave on *.* to 'replicator'@'%';

1 2	create user 'replicator'@'%' identified by 'password'; grant replication slave on . to 'replicator'@'%';

Шаг 3 на сервере 1

В консоли выполняем

slave stop; 
CHANGE MASTER TO MASTER_HOST = '10.10.0.2', MASTER_USER = 'replicator', MASTER_PASSWORD = 'password', MASTER_LOG_FILE = 'mysql-bin.000004', MASTER_LOG_POS = 107; 
slave start;

slave stop;

CHANGE MASTER TO MASTER_HOST = '10.10.0.2', MASTER_USER = 'replicator', MASTER_PASSWORD = 'password', MASTER_LOG_FILE = 'mysql-bin.000004', MASTER_LOG_POS = 107;

slave start;

Шаг 4 на сервере 2

В консоли выполняем

slave stop; 
CHANGE MASTER TO MASTER_HOST = '10.10.0.1', MASTER_USER = 'replicator', MASTER_PASSWORD = 'password', MASTER_LOG_FILE = 'mysql-bin.000003', MASTER_LOG_POS = 117; 
slave start;

slave stop;

CHANGE MASTER TO MASTER_HOST = '10.10.0.1', MASTER_USER = 'replicator', MASTER_PASSWORD = 'password', MASTER_LOG_FILE = 'mysql-bin.000003', MASTER_LOG_POS = 117;

slave start;

Шаг 5

На обоих серверах можно в my.cnf добавить строчку

slave-skip-errors = 1062

1	slave-skip-errors = 1062

Для пропуска ошибок вида Error ‘Duplicate entry…’ в случае одновременной записи в таблицу на обоих серверах (при небольшой нагрузке маловероятно). Иначе — необходимо настроить разный автоинскремент на серверах.

auto-increment-increment = 2
auto-increment-offset = 2

1 2	auto-increment-increment = 2 auto-increment-offset = 2

Как удалить репликацию данных?

В консоли на обоих серверах выполняем:

RESET MASTER;
stop slave;
CHANGE MASTER TO "";

RESET MASTER;

stop slave;

CHANGE MASTER TO "";

Далее останавливаем сервер и из папки mysql удаляем все файлы вида

relay-*
*.info

1 2	relay-* *.info

Посмотреть статус репликации можно так:

mysql> SHOW SLAVE STATUS \G;

Поле Seconds_Behind_Master должно стремится к нулю.

Оставить комментарий master-master, mysql, репликация

« 1 … 151 152 153 154 155 … 293 »

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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