Using html::Form to submit a form with different buttons

[deeperperl]

Hello!

I am trying to see how we can automate the submission on a form. I am trying to use HTML::FORM to do this.

I am able to fill out all the values in the form except for one field.

In this field, I am adding the inputs and I need to click on the "Add" button which has no specific name.

I am unable to do this.

Here is a small snippet -

if ($name =~ /^\s*$/ && $input->{type} =~ /button/ && $input->{value} =~ /Add/) {
$input = $forms[0]->find_input( '' );

my $ua = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, 'POST';
$ua->cookie_jar({ file => "/tmp/mycookie" });
$response = $ua->request($forms[0]->click(''));
$forms[0]->dump;
}

Here is what I see in the dump:
raw_hosts=H1,H2 (text)
<NONAME>=Add (button)


Here are the form details as shown by the web developer form details:

Elements
Index Id Name Type Value Label Size Maximum Length State
0 isXHR text 0
1 Submit1 Submit submit Submit
2 Cancel1 Cancel button Cancel
3 type type select
4 property property select
5 where where[] select 4
6 macro macro
7 raw_hosts raw_hosts text
8 button Add <-- This is where I am having a problem.
9 hosts hosts select 5
10 desc desc textarea
11 who who select
12 cc cc text
13 Submit2 Submit submit Submit
14 Cancel2 Cancel button Cancel

Appreciate any help in this regard.

- S

 

[MillerH]

When trying to automate form processing, you should use the WWW::Mechanize which is a subclass of LWP::Useragent. It'll do most of the work for you.

- Miller

 

[deeperperl]

I changed the code to


use

http://WWW::Mechanize;

my $mech =

http://WWW::Mechanize->new();

$mech->get( $url );
...
$mech->click_button(value=>'Add');

I get “Nothing to request” message.

- S

 

[MillerH]

Can't really help you if that's all the code/information you're going to provide.

- M