Имя: Пароль:
1C
1С v8
ЗУП КОРП
,
0 DeniIT
 
23.03.12
14:04
Вылезает ошибка при попытке выгрузить список вакансий на сайт SuperJob.ru
1 DeniIT
 
23.03.12
14:04
{ОбщийМодуль.ОбменВакансиямиИРезюмеССайтами.Модуль(965)}: Ошибка при вызове метода контекста (Прочитать)
   ДокументDOM            = ПостроительDOM.Прочитать(ЧтениеXML);
по причине:

по причине:
Ошибка разбора XML:  - [6,8]
Фатальная ошибка:
Opening and ending tag mismatch: hr line 0 and body
2 Azverin
 
23.03.12
14:05
(0) это стандартная фишка такая?)
3 DeniIT
 
23.03.12
14:08
(2) да, в типовой конфе
4 Быдло замкадное
 
23.03.12
14:22
нимуя себе.. вот это сервис)

Скоро в 1С будут кнопки налить чаю, сходить покурить
5 Длинный Клиент
 
23.03.12
14:26
(0)попробуйте в параметрах вилки ЗП min указать 100000
6 DeniIT
 
23.03.12
14:44
(5) не помогло(( может кто че еще подскажет все таки?
7 Gesperid
 
23.03.12
14:57
(6) а если 150000?
8 DeniIT
 
23.03.12
15:03
(7) очень смешно
9 DeniIT
 
23.03.12
15:03
по делу может кто че скажет?!
10 DeniIT
 
23.03.12
15:12
ап
11 GenV
 
23.03.12
15:22
(0) Opening and ending tag mismatch - Не совпадают открывающие и закрывающие теги. Нужно смотреть исходные данные для ЧтениеXML и код.
12 DeniIT
 
23.03.12
15:34
Функция ПроверитьОтветССайтаSuperJobНаНаличиеОшибок(ТекстОтвета) Экспорт
   
   ТекстОшибки            = "";
   
   ЧтениеXML = Новый ЧтениеXML();
   ЧтениеXML.УстановитьСтроку(ТекстОтвета);
   ПостроительDOM        = Новый ПостроительDOM;
   ДокументDOM            = ПостроительDOM.Прочитать(ЧтениеXML);
   ЧтениеXML.Закрыть();
   РазыменовательПИ    = Новый РазыменовательПространствИменDOM(ДокументDOM);
   
   СписокОшибок        = ДокументDOM.ВычислитьВыражениеXPath("/root/errors/error", ДокументDOM, РазыменовательПИ);
   СледующийУзел        = СписокОшибок.ПолучитьСледующий();
   Пока СледующийУзел <> Неопределено Цикл
       Если СокрЛП(СледующийУзел.ТекстовоеСодержимое) = "Ничего не найдено!!!!!!" Тогда // отсутствие результатов поиска не является ошибкой
           СледующийУзел    = СписокОшибок.ПолучитьСледующий();
           Продолжить;
       КонецЕсли;
       
       Если Не ПустаяСтрока(ТекстОшибки) Тогда
           ТекстОшибки = ТекстОшибки + Символы.ПС;
       КонецЕсли;
       Если СокрЛП(СледующийУзел.ТекстовоеСодержимое) = "Полученный md5 хэш передаваемого запроса не верен" Тогда
           ТекстОшибки        = ТекстОшибки + "Указанный пароль не верен";
       Иначе
           ТекстОшибки        = ТекстОшибки + СокрЛП(СледующийУзел.ТекстовоеСодержимое);
       КонецЕсли;
       СледующийУзел    = СписокОшибок.ПолучитьСледующий();
   КонецЦикла;
   
   СписокОшибок        = ДокументDOM.ВычислитьВыражениеXPath("/root/vacancies/vacancy/errors/error", ДокументDOM, РазыменовательПИ);
   СледующийУзел        = СписокОшибок.ПолучитьСледующий();
   Пока СледующийУзел <> Неопределено Цикл
       Если СокрЛП(СледующийУзел.ТекстовоеСодержимое) = "Ничего не найдено!!!!!!" Тогда // отсутствие результатов поиска не является ошибкой
           СледующийУзел    = СписокОшибок.ПолучитьСледующий();
           Продолжить;
       КонецЕсли;
       
       Если Не ПустаяСтрока(ТекстОшибки) Тогда
           ТекстОшибки = ТекстОшибки + Символы.ПС;
       КонецЕсли;
       Если СокрЛП(СледующийУзел.ТекстовоеСодержимое) = "Полученный md5 хэш передаваемого запроса не верен" Тогда
           ТекстОшибки        = ТекстОшибки + "Указанный пароль не верен";
       Иначе
           ТекстОшибки        = ТекстОшибки + СокрЛП(СледующийУзел.ТекстовоеСодержимое);
       КонецЕсли;
       СледующийУзел    = СписокОшибок.ПолучитьСледующий();
   КонецЦикла;
   
   Возврат ТекстОшибки;
   
КонецФункции
13 DeniIT
 
23.03.12
15:34
ошибка выскакивает на строке ДокументDOM = ПостроительDOM.Прочитать(ЧтениеXML);
14 DeniIT
 
23.03.12
15:39
Значение в переменной ТекстОтвета:

<html>
<head><title>414 Request-URI Too Large</title></head>
<body bgcolor="white">
<center><h1>414 Request-URI Too Large</h1></center>
<hr><center>nginx/1.0.8</center>
</body>
</html>

может тут че то не так?
15 DeniIT
 
23.03.12
16:24
up up up
16 GenV
 
23.03.12
19:14
(14) Тебе все портит тег <hr>, т.к. при разборе он воспринимается как открывающий тэг.
Как вариант перед ЧтениеXML.УстановитьСтроку(ТекстОтвета); код:
ТекстОтвета = СтрЗаменить(ТекстОтвета, "<hr>", "");
ЗЫ Хоть это и не даст 100% гарантии.
17 DeniIT
 
25.03.12
08:00
а по каким портам одинэсина в инет лезет не в курсе? а то тут админы доступ перекрыли
18 DeniIT
 
25.03.12
13:37
теперь ошибку от сервера выдает "Не указан md5 хэш передаваемого запроса". В чем проблема?
19 DeniIT
 
25.03.12
13:40
20 DeniIT
 
25.03.12
14:03
help
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший