ЖЗГ - Страница 76 из 283 - Жизнь замечательных грибов

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

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

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

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

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

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

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

Настройка сервера GIT на CentOS 7.8

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

1) Установим git:

yum install git

1	yum install git

2) Установим gitweb:

git clone git://git.kernel.org/pub/scm/git/git.git
cd git/
make GITWEB_PROJECTROOT="/srv/git" prefix=/usr gitweb
sudo cp -Rf gitweb /var/www/

git clone git://git.kernel.org/pub/scm/git/git.git

cd git/

make GITWEB_PROJECTROOT="/srv/git" prefix=/usr gitweb

sudo cp -Rf gitweb /var/www/

, где в переменную GITWEB_PROJECTROOT прописываем путь, где будут храниться репозитарии

3) Настроим Apache:

ServerName gitserver
DocumentRoot /var/www/gitweb
Options +ExecCGI +FollowSymLinks +SymLinksIfOwnerMatch
AllowOverride All
order allow,deny
Allow from all
AddHandler cgi-script cgi
DirectoryIndex gitweb.cgi

ServerName gitserver

DocumentRoot /var/www/gitweb

Options +ExecCGI +FollowSymLinks +SymLinksIfOwnerMatch

AllowOverride All

order allow,deny

Allow from all

AddHandler cgi-script cgi

DirectoryIndex gitweb.cgi

4) Возможно понадобиться установить дополнительно модули для Perl:

yum install perl-Digest-MD5 perl-CGI -y

1	yum install perl-Digest-MD5 perl-CGI -y

5) Создание репозитария:

cd /srv/git
mkdir newrep
cd newrep
git init

cd /srv/git

mkdir newrep

cd newrep

git init

Оставить комментарий centos, gitweb, webgit

Взаимодействие с HTTP сервисом 1с через PHP

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

Приём данных и ответ от 1С :

Функция telegram_callbacktcallback(Запрос)
	 
  	ЧтениеJSON = Новый ЧтениеJSON; 
 	ЧтениеJSON.УстановитьСтроку(Запрос.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8)); 
 	JSONM = ПрочитатьJSON(ЧтениеJSON); 
 	ЧтениеJSON.Закрыть();	 
	
	
	HTTPОтвет = Новый HTTPСервисОтвет(200);
	HTTPОтвет.УстановитьТелоИзСтроки("Всем привет");
	HTTPОтвет.Заголовки["Content-Type"] = "text/html; charset=utf-8";
	Возврат HTTPОтвет;	

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

Функция telegram_callbacktcallback(Запрос)

ЧтениеJSON = Новый ЧтениеJSON;

ЧтениеJSON.УстановитьСтроку(Запрос.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));

JSONM = ПрочитатьJSON(ЧтениеJSON);

ЧтениеJSON.Закрыть();

HTTPОтвет = Новый HTTPСервисОтвет(200);

HTTPОтвет.УстановитьТелоИзСтроки("Всем привет");

HTTPОтвет.Заголовки["Content-Type"] = "text/html; charset=utf-8";

Возврат HTTPОтвет;

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

Обращение к сервису 1С из PHP:

<?php
mb_internal_encoding("UTF-8");
$bodyz = file_get_contents('php://input');
$body =$bodyz;

$data=Date("d-m-Y H:i:s")." Ent:".serialize($body)."\n";
file_put_contents('telegram.log', $data, FILE_APPEND);

        $url = "https://сервер:80/путь/вызов";
        $ch = curl_init($url);
            curl_setopt($ch, CURLOPT_USERPWD, "ЛОГИН.:ПАРОЛЬ");
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
            curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
            curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));

            curl_setopt($ch, CURLOPT_POST, 1);
            curl_setopt($ch, CURLOPT_POSTFIELDS,$bodyz);
            $response = curl_exec($ch);
            var_dump($response);

        if(curl_errno($ch)){
            throw new Exception(curl_error($ch));
        };
        echo $response;
$data=Date("d-m-Y H:i:s")." Exit:".serialize($response)."\n";
file_put_contents('telegram.log', $data, FILE_APPEND);
?>

<?php

mb_internal_encoding("UTF-8");

$bodyz = file_get_contents('php://input');

$body =$bodyz;

$data=Date("d-m-Y H:i:s")." Ent:".serialize($body)."\n";

file_put_contents('telegram.log', $data, FILE_APPEND);

$url = "https://сервер:80/путь/вызов";

$ch = curl_init($url);

curl_setopt($ch, CURLOPT_USERPWD, "ЛОГИН.:ПАРОЛЬ");

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));

curl_setopt($ch, CURLOPT_POST, 1);

curl_setopt($ch, CURLOPT_POSTFIELDS,$bodyz);

$response = curl_exec($ch);

var_dump($response);

if(curl_errno($ch)){

throw new Exception(curl_error($ch));

};

echo $response;

$data=Date("d-m-Y H:i:s")." Exit:".serialize($response)."\n";

file_put_contents('telegram.log', $data, FILE_APPEND);

Оставить комментарий в 1с из php

1С: выполнение запроса в другой базе

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

Задача: из текущей базы получить данные другой базы

Решение: используем COM соедниение

Функция ПолучитьПодключениеКСервернойБД()
	ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";
	V83COMConnector= Новый COMОбъект("V83.COMConnector");
	Попытка
		Base1С = V83COMConnector.Connect(ПараметрыСоед);
		сообщить(Base1С);
	Исключение
		сообщить ("Ошибка подключения!");
		Base1С=неопределено;
	КонецПопытки;
    возврат Base1С;
КонецФункции

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)
//получаю остатки
		Запрос = Новый Запрос;
		Запрос.Текст = 
			"ВЫБРАТЬ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток
			|ИЗ
			|	РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты
			|ГДЕ
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет
			|	И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)
			|
			|СГРУППИРОВАТЬ ПО
			|	vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,
			|	vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";
		
		Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);
		Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

возврат ВыборкаДетальныеЗаписи;

конецфункции

Функция ПолучитьПодключениеКСервернойБД()

ПараметрыСоед = "Srvr='"+объект.Сервер+"';Ref='"+объект.ИмяБазы+"';Usr='"+объект.Логин+"';Pwd='"+объект.Пароль+"';";

V83COMConnector= Новый COMОбъект("V83.COMConnector");

Попытка

Base1С = V83COMConnector.Connect(ПараметрыСоед);

сообщить(Base1С);

Исключение

сообщить ("Ошибка подключения!");

Base1С=неопределено;

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

возврат Base1С;

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

функция ПолучитьОстаткиВТекущейБазе(Дата1,ЛицевойСчет)

//получаю остатки

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

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

"ВЫБРАТЬ

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф КАК Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги КАК ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления КАК ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку КАК ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток КАК РасходКонечныйОстаток

|ИЗ

| РегистрНакопления.vscРасчетыСАбонентами.ОстаткиИОбороты(ДАТАВРЕМЯ(2000, 1, 1, 0, 0, 0), &Дата1, , , ) КАК vscРасчетыСАбонентамиОстаткиИОбороты

|ГДЕ

| vscРасчетыСАбонентамиОстаткиИОбороты.ЛицевойСчет = &ЛицевойСчет

| И vscРасчетыСАбонентамиОстаткиИОбороты.ВидРасчетов <> ЗНАЧЕНИЕ(Перечисление.vscВидыРасчетов.Корректировка)

|СГРУППИРОВАТЬ ПО

| vscРасчетыСАбонентамиОстаткиИОбороты.Тариф,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидУслуги,

| vscРасчетыСАбонентамиОстаткиИОбороты.ВидНачисления,

| vscРасчетыСАбонентамиОстаткиИОбороты.ДоговорНаПоставку,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаНачальныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.СуммаКонечныйОстаток,

| vscРасчетыСАбонентамиОстаткиИОбороты.РасходКонечныйОстаток";

Запрос.УстановитьПараметр("Дата1", КонецДня(Дата1)+1);

Запрос.УстановитьПараметр("ЛицевойСчет", ЛицевойСчет);

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

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

возврат ВыборкаДетальныеЗаписи;

конецфункции

Обратить внимание! В качестве передаваемых параметров нельзя использовать объекты. ТОЛЬКО примитивные типы. Типа строка,номер и т.д.

Оставить комментарий выборка, другая бд

Boulder Dash в консоли..

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

Дождались! Теперь в культовый Boulder Dash можно поиграть на сервере в консоли SSH. Что для этого сделать?

1. Скачать исходники здесь: https://sourceforge.net/projects/ascii-dash/files/
2. Распаковать. Заменить файл sounds.cpp, моим «патченным». Патч отключает использование звуковой карты (какая на сервере может быть звуковая карта??)
3. Скомпилировать согласно иструкции из readme.txt

Наслаждайтесь…

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

Windows со встроенным SSH клиентом

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

Сегодня стало для меня открытием, что Windows 10 содержит в «базе» SSH и Telnet клиенты. С одним нюансом — подключается к удаленным серверам с кодировкой локали cp1251. Соответственно, чтобы полноценно работать на удаленном клиенте, нужно поставить локаль ru_RU.cp1251, при помощи:

apt-get install locales
dpkg-reconfigure locales

1 2	apt-get install locales dpkg-reconfigure locales

Выбрать помимо en_US.UTF8, еще и ru_RU.cp1251

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

« 1 … 74 75 76 77 78 … 283 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
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