in reply to Re^3: fetch HTML page, do javascript, read output from alert/msgbox
in thread fetch HTML page, do javascript, read output from alert/msgbox

so I can use the code you posted above to pipe the msgBox that is displayed/alert to text instead of having it show as a pop up from the used browser?

update:
I edited FireFox.pm version where I replaced the eval_in_page of FireFox.pm with the updated one from you.
-> The JavaScript uses up to 1 minute to complete, so I get timeout warnings. (command timed out at C:/perl/site/lib/mozrepl/client.pm line 186) (Also edited now to 60 secs)
-> Found a typo in ur code, you had forgot a ) between }}.
syntax error at C:/Perl/site/lib/WWW/Mechanize/FireFox.pm line 1294, near "}}"

This still however does not print to the console, it still gives me the alert up to show.
  • Comment on Re^4: fetch HTML page, do javascript, read output from alert/msgbox

Replies are listed 'Best First'.
Re^5: fetch HTML page, do javascript, read output from alert/msgbox
by Corion (Patriarch) on Nov 11, 2009 at 12:05 UTC

    I think you still have to pass in and define myalert as a (Perl) subroutine, and you shouldn't edit FireFox.pm but declare your own subroutine for that. I haven't tried capturing alert() myself, as I haven't needed it yet.

[reply]
[d/l]
[select]

      How would I go about and do that?

      I've tried putting your code into my script and making the eval do the javascript:Install() part of it, without success.

      How should I declare a subroutine for myalert?
[reply]
        sub eval_in_page_with_redefined_alert {
    my ($self,$str,$redefined_alert) = @_;
    my $eval_in_sandbox = $self->repl->declare(<<'JS');
    function (w,str,myalert) {
        var unsafeWin = w.wrappedJSObject;
        var safeWin = XPCNativeWrapper(unsafeWin);
        var sandbox = Components.utils.Sandbox(safeWin);
        sandbox.window = safeWin;
        sandbox.window.alert = myalert;             // <--
        sandbox.alert = myalert;                    // <--
        sandbox.document = sandbox.window.document;
        sandbox.__proto__ = unsafeWin;
        var res = Components.utils.evalInSandbox(str, sandbox);
        return [res,typeof(res)];
    };
JS
    my $window = $self->tab->{linkedBrowser}->{contentWindow};
    my $uri = $self->uri;
    return @{ $eval_in_sandbox->("$uri",$window,$redefined_alert ) };
};

        [download]

        and call it as 

        eval_in_page_with_redefined_alert($mech,$str, sub { print "Caught aler
+t(): @_" });

        [download]

        If that doesn't work for you, something likely is wrong with my Javascript. You'll then have to look at the Mozilla FireFox Javascript documentation to figure out how things should be done instead.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom