Дипломная работа: Организация работы офисной сети под управлением OC Linux

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
80
12. Информация о коммутаторах фирмы CISCO: [Электронный
ресурс], URL: http://www.cisco.com/ (дата обращения: 15.12.19).
14. Капустин Д.А., Информационно-вычислительные сети -
Ульяновск: УлГТУ, 2014. – 141с.
15. Комагоров В.П. Архитектура сетей и систем телекоммуникаций:
Учебное пособие – Томск: Изд-во Томского политехнического университета,
2013. – 151 с.
16. Моримото Р. К. Linux. Полное руководство / под редакцией Ноэл
М., Драуби О., Мистри Р., Амарис : М. Вильямс, 2013. — 1456 с.
17. Нортроп Т. Проектирование сетевой инфраструктуры Linux/под
редакцией Макин Дж. К.: Русская Редакция, 2014 – 592с.
18. Олифер В.Г., Компьютерные сети. Принципы, технологии,
протоколы — СПб.: Питер, 2015. — 943 с.
19. Олифер В.Г., Сетевые операционные системы : Питер, 2013 –
467с.
20. Платунова С.М. Администрирование вычислительных сетей на
базе Linux ─ СПб: НИУ ИТМО, 2013. ─ 127 с.
21. Токарев В.Л. Вычислительные системы, сети и
телекоммуникации — Тула, Промпилот, 2013. — 477 с.
22. Томас О,. Администрирование Linux / под редакцией Маклин Й :
Русская редакция, 2014. — 688 с.
23. Халабия Р.Ф. Администрирование вычислительных систем и
сетей – М.:МГУПИ, 2012. - 64 с.
81
ПРИЛОЖЕНИЕ 1
Настройка сервера 1С
&НаКлиенте
Процедура ВыполнитьЗапрос(Команда)
ВыполнитьHTTPЗапрос("http://example.com");
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьHTTPЗапрос(ПолныйАдресРесурса)
СтруктураURI = СтруктураURI(ПолныйАдресРесурса);
HTTPСоединение = Новый HTTPСоединение(СтруктураURI.Хост,
СтруктураURI.Порт);
HTTPЗапрос = Новый HTTPЗапрос(СтруктураURI.ПутьНаСервере);
Попытка
Результат = HTTPСоединение.Получить(HTTPЗапрос);
Исключение
// исключение здесь говорит о том, что запрос не дошел до HTTP-
Сервера
Сообщить("Произошла сетевая ошибка!");
ВызватьИсключение;
КонецПопытки;
// Анализируем фатальные ошибки
// В большинстве случаев нужно остановить работу и показать пользователю
сообщение об ошибке,
// включив в него HTTP-статус
// Ошибки 4XX говорят о неправильном запросе - в широком смысле
// Может быть неправильный адрес, ошибка аутентификации, плохой
формат запроса
82
// Подробнее смотри http://www.w3.org/Protocols/rfc2616/rfc2616-
sec10.html#sec10.4
Если Результат.КодСостояния >= 400 и Результат.КодСостояния < 500
Тогда
Сообщить("Код статуса больше 4XX, ошибка запроса. Код статуса: "
+ Результат.КодСостояния);
КонецЕсли;
// Ошибки 5XX говорят о проблемах на сервере (возможно, прокси-сервер)
// Это может быть программная ошибка, нехватка памяти, ошибка
конфигурации и т.д.
// Подробнее смотри http://www.w3.org/Protocols/rfc2616/rfc2616-
sec10.html#sec10.5
Если Результат.КодСостояния >= 500 и Результат.КодСостояния < 600
Тогда
Сообщить("Код статуса больше 5XX, ошибка сервера. Код статуса: "
+ Результат.КодСостояния);
КонецЕсли;
// Обрабатываем перенаправление
Если Результат.КодСостояния >= 300 и Результат.КодСостояния < 400
Тогда
Сообщить("Код статуса больше 3XX, Перенаправление. Код статуса:
" + Результат.КодСостояния);
Если Результат.КодСостояния = 302 Тогда
Сообщить("Код статуса 302, Постоянное перенаправление.");
АдресРесурса = Результат.Заголовки.Получить("Location");
Если АдресРесурса <> Неопределено Тогда
Сообщить("Выполняю запрос по новому адресу " +
АдресРесурса);
ВыполнитьHTTPЗапрос(АдресРесурса);
Иначе
83
Сообщить("Сервер не сообщил адрес ресурса!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Статусы 1XX и 2XX считаем хорошими
Если Результат.КодСостояния < 300 Тогда
Сообщить("Скорее всего все хорошо");
Сообщить("Код статуса: " + Результат.КодСостояния);
Источник: https://baza.diplomsite.ru/previewfile/1666