Моему сценарию TCL не удалось оценить ответ тела HTTP POST

когда я использую инструмент Fiddler, я могу получить ответ HTTP POST,

HTTP/1.0 200 Ok
Server: xxxx TinyServer
MIME-version: 1.0
Cache-Control: no-store, no-cache;
Pragma: no-cache;
Set-Cookie: session=0000743A; path=/;
Content-Type: text/xml
Expires: -1
Content-Length: 3509

<column><column_oid>1.3.6.1.4.1.664.5.63.900.1.20.17.1.1.1</column_oid><oid_value_pairs><![CDATA[1.3.6.1.4.1.664.5.63.900.1.20.17.1.1.1.4822:......
MORE....

Но когда я попробовал ту же операцию HTTP POST, используя свой сценарий TCL, я получаю сообщение об ошибке.

set token [::http::geturl \
            "http://130.59.62.16/web/common/ajax/tcl/ajax_multi_get_xml.tcl" \
            -query "" -headers [array get Headers]]      

state(-keepalive)      = 0
state(-protocol)       = 1.1
state(-queryblocksize) = 8192
state(-queryprogress)  =
state(-strict)         = 1
state(-timeout)        = 0
state(-type)           = application/x-www-form-urlencoded
state(-validate)       = 0
state(binary)          = 0
state(body)            = <hr>
<pre><b>Session Variables:</b>


</pre><pre><b>Global Variables:</b>
base_oid = ""
rstr = ""


<b>Local Variables:</b>


</pre><hr>
can't read "oidlist": no such variable<br><b>from /web/common/ajax/tcl/ajax_multi_get_xml.tcl:8:</b><pre>
  1:
   2:    set rstr ""
   3:    if {[catch {set baseOID}] } {
   4:       set base_oid ""
   5:    } else {
   6:       set base_oid $baseOID
   7:    }
 <font color=red>  8:
 </font>  9:    snmp_getmulti $oidlist value err $count $base_oid
  10:    echo -n "<rvals>$value</rvals>"
  11: </pre>

Используя Firefox Web Developer, когда я перемещал нужную страницу, она показывала, что я выполняю операцию POST, пожалуйста, найдите скриншот ниже.

Здесь у меня нет запроса в моей операции POST, поэтому я оставил пробелы в своем geturl. Этот тип URL-адреса, как я могу использовать операцию запроса.

введите здесь описание изображения

Что я пропустил между инструментом Fiddler и Моим скриптом, я мог просмотреть с помощью Firefox Окно консоли веб-разработчика


person Mallikarjunarao Kosuri    schedule 24.12.2013    source источник
comment
Какие точные заголовки отправляются браузером? (И этот вызов http::geturl выполняет GET, а не POST…)   -  person Donal Fellows    schedule 24.12.2013
comment
Если вам нужен POST, вам нужно поставить флаг -query с ::http::geturl, см. документацию.   -  person Hai Vu    schedule 25.12.2013
comment
Спасибо всем, пожалуйста, найдите снимок экрана выше.   -  person Mallikarjunarao Kosuri    schedule 26.12.2013


Ответы (1)


Правильный способ отладить это -

  1. Захват рабочего запроса от Fiddler
  2. Используйте Fiddler для захвата неработающего запроса из сценария TCL.
  3. Выберите рабочие и нерабочие запросы в списке веб-сеансов Fiddler.
  4. Щелкните правой кнопкой мыши и выберите «Сравнить сеансы».

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

person EricLaw    schedule 26.12.2013