Question

我需要制作一个登录网页的Tcl程序，我需要填写一些信息并获取一些信息。该页面有许多形式，包括不同类型的输入，收音机/检查按钮，输入字符串等通常。

我可以登录页面没问题，填写表格没有问题，但我必须填写该特定表单的每个输入，否则它将保存为空（我没有指定的东西）

以下是一个例子：

这是表格：

--- FORM report. Uses POST to URL "/goform/FormUpdateBridgeConfiguration"
Input: NAME="management_ipaddr" (TEXT)
Input: NAME="management_mask" (TEXT)
Input: NAME="upstr_addr_type" VALUE="DHCP" (RADIO)
Input: NAME="upstr_addr_type" VALUE="STATIC" (RADIO)
--- end of FORM

这是我用来填补它的命令

eval exec curl $params -d upstr_addr_type=STATIC https://$MIP/goform/FormUpdateBridgeConfiguration -o /dev/null 2> /dev/null

其中params是：

"\--noproxy $MIP \--connect-timeout 5 \-m 5 \-k \-S \-s \-d \-L \-b Data/curl_cookie_file "

是的，我知道这很可怕，但事实就是如此。

在这种情况下，我想将upstr_addr_type的值更改为STATIC，但是当我总结它时，我将丢失来自management_ipaddr和management_mask的信息。

这是一个小例子，我必须为每个表格和更多的变量做这个，所以它对我来说是一个真正的问题。

我想出它的概念问题或类似的东西，我看起来和看起来更多，尝试-F -X GET -GET - 几乎cURL手册上的每一件事，有人可以在这里指导我

Answer 1

如果您知道management_ipaddr和management_mask的值应该是什么，那么您可以将它们作为额外的-d参数提供。将它包装在一个过程

中可能是有意义的

proc UpdateBridgeConfiguration {management_ipaddr management_mask upstr_addr_type} {
    global MIP params
    eval exec curl $params \
            -d management_ipaddr=$management_ipaddr \
            -d management_mask=$management_mask \
            -d upstr_addr_type=$upstr_addr_type \
            "https://$MIP/goform/FormUpdateBridgeConfiguration" \
            -o /dev/null 2> /dev/null
    # You ought to replace the first line of the above call with:
    #   exec curl {*}$params \
    # Provided you're not on Tcl 8.4 or before...
}

就像那样，你会发现通话更容易。（您不需要为此指定-X POST;它是提供-d时的默认行为。）

要获取现有值，您需要从正确的URL（我无法猜到的）中获取它们，并从生成的HTML中提取它们。这可能涉及对检索到的文档使用正则表达式。这非常糟糕，但有时候你会遇到这种情况。（您可以使用tDOM正确解析HTML - 只要它不是太错误 - 然后使用其XPath支持来正确查询值，但这相当复杂并且引入了对外部包的依赖。）知道什么使用正确的RE可能很棘手，但它可能涉及抓取表单的副本并模糊地执行某些事情：

regexp -nocase {<input type="text" name="management_ipaddr" value="([^<"">]*)"} $formSource -> management_ipaddr
regexp -nocase {<input type="text" name="management_mask" value="([^<"">]*)"} $formSource -> management_mask

虽然一般来说它可以用各种方式编码，但这对IP地址或掩码来说是不太可能的！另一方面，属性的顺序可以变化;你必须根据你真正处理的内容来定制你的RE，而不仅仅是它可能是什么......

卷曲调用将类似于

set formSource [exec curl "http://$MIP/the/right/url/here" {*}$params 2>/dev/null]

当您不必发送数据并且想要使用结果时，这会更简单。

cURL用tcl填充HTML表单

1 个答案: