Question

我有一个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 是提交按钮。知道为什么不工作吗？如果您需要更多信息，请立即告诉我。任何帮助将受到高度赞赏。

Answer 1

问题是html不包含8021x_mode的选择any。

我收到此错误：

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

要检查表单，我建议您使用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插件来抓取POST到/goform/FormUpdateVAP的格式，然后执行POST请求而不是勾选WWW::Mechanize。

为什么我不能在Perl中使用WWW :: Mechanize :: Firefox提交表单？

1 个答案: