Re: how to send form action?

Hi Toshiro,

Toshiro (mailing lists) wrote:
>> Get the form object.  perldoc HTML::Form.  Look for action() method.
>> Figure out what the JavaScript would set the action to.  Set it to that.
>>
>
There's an easier way. Get Firefox 1.5 and the TamperData plug-in 
(doesn't work with the 2.0 Beta). Activate the TamperData window. Load 
the desired page and submit the form. Look at the log generated by 
Tamper Data. It's all there.
> I've been trying to do what you suggested, but I don't know how to use
> Mech and HTML::Form together,
>
Try the following...

    $action="whatever";
   # initialize other variables as appropriate....

    $form = $mech->form_name($formname);  # one of several methods which 
return a form.
    if (!$form) {                                      
        # error processing
    }
    $mech->field($targetField,$targetValue);  # user your fieldnames and 
values here...
    $mech->field($usernameField,$userName);
    $mech->field($passwordField,$passWord;
    $form->action ( $action );
    $mech->click();

The above will work if the form is already defined. Sometimes javascript 
defines the form on the fly. In which case, try this:

    my $f = HTML::Form->parse(<<EOT, $loginpage );
    <form>
        <input name="min"           value="$cell">
        <input name="target"        value="Login">
        <input name="action"        value="doLogin">
        <input name="userid"        value="$userId">
        <input name="password"      value="$pswd">
    </form>
EOT

    $f->method ( "POST" ) ;
    $mech->get( $homepage  );
    $mech->{forms} = ( $f ) ;
    $mech->{form} =  $f ;
    $mech->submit();

Not really sure if these last few lines are kosher, but they worked ;-)

Cheers

Peter