Re^4: (OT) How to override the javascript alert when submitting a form using WWW::Mechanize::Firefox

Corion, my script also gives me a javascript alert.

My larger script uploads many data files. Some data trigger the alert and others don't, but I have no way of predicting which data will trigger the alert. The alert is not a problem, other than the fact that I need to get past it.

When the alert occurs, I can use $mech->back to escape it. However, I don't know of a way to detect when it occurs.

"$mech->is_visible()" in conditional statements don't work, as you can see if you run the script--the alert takes over the whole screen, but "form_with_fields('speciesList')" is returned as visible. Neither "$mech->submit()" nor "$mech->submit_form()" work for me on this webpage--the form just gets cleared and the page reloads without submitting.

Any ideas? I would like to either disable the javascript alert (but not all javascript) at this step, or detect when it is triggered and use "$mech->back" to escape it.

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new(autoclose => 0);
$mech->get('http://david.abcc.ncifcrf.gov/summary.jsp');
$mech->click({ xpath => ('//*[@href="Upload a Gene List or Population"
+]', single => 1), synchronize => 0 });
$mech->form_name('frmManager');
$mech->set_fields(
        'pasteBox' =>     "RRI1, YLR149C, FUN19, YBR285W, ALD3, CUE5, 
+RTC3, AIM3, YDL199C, FMP45, AST2, GIP2,
                YKL091C, YKL133C, GLG2, SYM1, VHS3, YJR124C, MCH1, MHO
+1, IKS1, RKM1, STF2, SAC1, ATG7, YAK1",    
        'Identifier' => "OFFICIAL_GENE_SYMBOL",
);
$mech->click ({ xpath => ('//input[@name="rbUploadType" and @value="li
+st"]', single => 1), synchronize => 0 }); 
$mech->click({xpath => ('//*[@value="Submit List"]', single => 1), syn
+chronize => 0});
sleep 2;
if ($mech->is_visible($mech->form_with_fields('speciesList'))) {
    print "It's visible.\n";
}
[download]

Comment on Re^4: (OT) How to override the javascript alert when submitting a form using WWW::Mechanize::Firefox Download Code

Replies are listed 'Best First'.
Re^5: (OT) How to override the javascript alert when submitting a form using WWW::Mechanize::Firefox by Corion (Patriarch) on May 03, 2013 at 08:45 UTC
There is no convenient way to detect `window.alert()` from WWW::Mechanize::Firefox. You can assign a dummy function to `window.alert` to override it. This will prevent alert boxes popping up until the next page load: `my $window= $mech->repl->expr('window'); $window->{alert}= sub {}; ...` [download] Alternatively, you can put the override into Javascript directly: `$mech->eval_in_page(<<'JS'); window.alert= function() {}; JS` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: (OT) How to override the javascript alert when submitting a form using WWW::Mechanize::Firefox
by Corion (Patriarch) on May 03, 2013 at 08:45 UTC

There is no convenient way to detect window.alert() from WWW::Mechanize::Firefox. You can assign a dummy function to window.alert to override it. This will prevent alert boxes popping up until the next page load:

my $window= $mech->repl->expr('window');
$window->{alert}= sub {};
...
[download]

Alternatively, you can put the override into Javascript directly:

$mech->eval_in_page(<<'JS');
    window.alert= function() {};
JS
[download]

[reply]
[d/l]
[select]