Hello,
I am working with WWW::Mechanize in order to contact a page that
processes a request for me. My problem is that the final result page
needs 2-3 minutes on that server to be calculated. Inbetween another not
important page is shown that indicates that the server is working on my
request.
My problem is how to ignore that intermediate page but get that last
important resultpage.
Thats the code:
my $mech = WWW::Mechanize->new();
$mech->get($url3);
my $upload = File::Spec->catfile($dir, "Temp");
if($mech->success())
{
$mech->form_number(1);
$mech->set_fields(email => "", -uploaded_file => $upload,
-case => "upper", -seqnos => "off", -outorder => "input",);
$mech->tick(-in => "Mlalign_id_pair");
$mech->tick(-in => "Mfast_pair");
$mech->tick(-in => "Mclustalw_aln");
$mech->tick(-output => "fasta_aln");
$mech->tick(-output => "score_html");
$mech->submit();
if($mech->success())
{
open(FILE, ">", "TCoffee_$multizFile.html");
print FILE $mech->content();
close FILE;
}
}
$mech-success and then $mech->content() prints just that intermediate
page that I want to ignore.
Thank you for help.
Sebastian
