1

我有一个 HTML，这是我正在处理的表单的一部分

<form action="/goform/FormUpdateVAP" autocomplete="off" name="myform" id="formid" method="POST">
<table>
    <tbody>             
            <tr>
                <td align="right"><span class="label">Name:</span></td>
                <td><input id="essid" name="essid"  value="X" type="text"></td>
            </tr>
            <tr>
                <td align="right"><input id="broadcast_essid" name="broadcast_essid" value="any" checked="" type="checkbox"></td>
                <td><span class="label">Broadcast name:</span></td>
            </tr>
    </tbody>
</table>
<!-- BEGIN RIGHT COLUMN -->
<table>
    <tbody><tr>
        <td>
            <input name="authentication" id="authentication" value="any" onclick="Update();" type="checkbox"><span class="label"><b>authentication</b></span>
        </td>
        <td>
            <input onclick="Update();" name="wp" id="wp" value="any" type="checkbox"><span class="label"><b>Wp</b></span>
            <select id="8021x_mode" name="8021x_mode" onchange="Update();"><option value="wpa">WPA</option>
            <option value="wep">WEP</option>
            </select>
        </td>

    </tr>
    <tr>
        <td height="26">&nbsp;
            <input onclick="Update();" name="w_p" id="w_p" value="any" type="checkbox"><span class="label"><b>Wp</b></span>
            <select id="8021x_mode" name="8021x_mode" onchange="Update();"><option value="wpa">WPA</option>
            <option value="wep">WEP</option>
            </select>
        </td>
    </tr>
    <tr>
    <td>
        <input id="cancel" name="cancel" value="Cancel" onclick="window.location.href = '/fg/list.asp';" type="button">

    </td>
    <td>
        <input id="add-2" name="add" value="Save" type="submit">
    </td>
</tr>
</tbody>
</table>

我正在尝试填写名称和广播名称来提交它。并检查8021x_mode和wp复选框。如果我勾选8021x_mode并设置表单提交的字段就好了。但是当我尝试勾选wp时，它不会提交。我没有收到错误消息。到目前为止，这是我的代码：

use WWW::Mechanize::Firefox;
use Crypt::SSLeay;
use URI::Fetch;
use HTML::TagParser;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0; #not verifying certificate

my $url = 'https://';
$url = $url.@ARGV[0]; 
my $mech = WWW::Mechanize::Firefox->new;
$mech->get($url);

$mech->form_id('formid');
$mech->tick( '8021x_mode','any'); 
$mech->tick( 'wp','any'); --after I add this the form doesn't submit
my $name = @ARGV[1];

$mech->set_fields(
    'vap_name' => $name, 
    'essid' => $name,
);
$mech->click_button( id => 'add-2' );
$mech->reload();

add-2是提交按钮。知道为什么不工作吗？如果您需要更多信息，请现在告诉我。任何帮助将不胜感激。

4

1 回答 1

0

问题是 html 不包含any8021x_mode 的选择。

我收到此错误：

在 test.pl 第 24 行找不到名称为“8021x_mode”且值为“any”的复选框的元素。

要检查表格，我建议您使用mech-dump实用程序（与 一起安装WWW::Mechanize）

$ mech-dump --forms http://domain.tld/path_to_forms
POST /goform/FormUpdateVAP [myform]
  essid=X                        (text)
  broadcast_essid=<UNDEF>        (checkbox) [*<UNDEF>/off|any]
  authentication=<UNDEF>         (checkbox) [*<UNDEF>/off|any/authentication]
  wp=<UNDEF>                     (checkbox) [*<UNDEF>/off|any/Wp]
  8021x_mode=wpa                 (option)   [*wpa/WPA|wep/WEP]
  w_p=<UNDEF>                    (checkbox) [*<UNDEF>/off|any/Wp]
  8021x_mode=wpa                 (option)   [*wpa/WPA|wep/WEP]
  cancel=Cancel                  (button)
  add=Save                       (submit)

如您所见，any别无选择...

也许javascript那里正在做一些我们不知道的事情。

一种解决方法是使用LiveHttpHeaders Firefox插件来捕获POSTed 到的表单/goform/FormUpdateVAP，然后POST使用WWW::Mechanize.

于 2013-01-15T20:48:41.813 回答