Re: perl scripter error ReferenceError: The variable ActiveXObject has not been declared

[Anonymous Monk]

in reply to perl scripter error ReferenceError: The variable ActiveXObject has not been declared

I have no idea what went wrong.

Unsupported feature is unsupported (activex)

[gurudutt.rv]

If you look at the js, it should not have gone inside the else condition, all this while when it was working, i think the if condition was satisfied. But for some reason it is not going into the if condition today and am really appalled by so little support in perl by the module owners.

 if (window.XMLHttpRequest) {
        req=new XMLHttpRequest();
    } else {
        req=new ActiveXObject("Microsoft.XMLHTTP");
    }

In this script, this part holds the key

my $u = new URI 'data:';
        $u->media_type('text/html');
        $u->data( $h );
        $w->get($u);

Is there something to do with media_style, using something else instead of text/html?

[marto]

"But for some reason it is not going into the if condition today and am really appalled by so little support in perl by the module owners."

Wait, you contacted them about your code not working today and they haven't fixed it for you yet? That's disgraceful! The support contract and maintenance you pay for states that... oh what, forget it. I notice there are zero open bugs listed in the RT queue.

Consider debugging this yourself rather than being appalled with anyone else, it's a more productive use of effort. If you find a genuine problem consider actually reporting it.

[gurudutt.rv]

Dear Marto, i was referring to the module owners (i.e. people who have created these packages and uploaded on cpan). I no way meant i need a quick reply to my query.

[ww]

Not to quibble over the use of language which may be less than precisely clear, but you do understand, don't you, that "the module owners" are unpaid volunteers, all over the world?

Why, the indivual or team responsible may even have been asleep, out fighting a fire, coaching a kid's team or -- horrors -- on vacation, when you encountered your problem.

[tobyink]

Have you got WWW::Scripter::Plugin::Ajax installed?

[Anonymous Monk]

Hi,

Are you using a different browser?
This is the code I use.

    try
    {
        // Firefox, Opera 8.0+, Safari
        Http=new XMLHttpRequest();
    }
    catch (e)
    {
        // Internet Explorer
        try
        {
            Http=new ActiveXObject("Msxml2.XMLHTTP");
        }
        catch (e)
        {
            try
            {
               Http=new ActiveXObject("Microsoft.XMLHTTP");
            }
            catch (e)
            {
                alert("Your browser does not support AJAX!");
                return false;
            }
        }
    }

It may catch your error, it's worth a try.

J.C.

[Anonymous Monk]

If you look at the js, it should not have gone inside the else condition

But you didn't say that was the problem

Its probably happening because you don't load WWW::Scripter::Plugin::Ajax

You need $w->use_plugin('Ajax' );