Hi,
I was trying to post with the following script to www.easyjet.com but failed
to get the proper response (the corresponding flights). Then (with no reason
at all) I gave value to a hidden field, and as a response I got an message
that this field is readonly and thus I cannot change the value BUT I got the
proper response.
Does anyone have a clue WHY does this happen?

#!/usr/local/ActivePerl-5.6/bin/perl -w
use warnings;
use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();
$agent->agent_alias( 'Windows IE 6' );

$agent->get('http://www.easyjet.com/en/book/index.asp');
 die "Can't even get the home page: ", $agent->response->status_line
  unless $agent->success;
  my $form = $agent->form_number(1);
  $agent->field(orig => "ATH");
  $agent->field(dest => "LTN");
  $agent->field(oDay => "01");
  $agent->field(oMonYear => "092004");
  $agent->field(numOfAdults => "1");
  $agent->field(numOfPax => "0"); #This is the hidden field.
  $agent->submit();
  print $agent->content();



Reply via email to