#!/usr/bin/perl -w
#
# use local version of mech with alternate page completion logic
#
use strict;

use Time::HiRes qw(gettimeofday);
use URI;
use Win32::OLE qw( EVENTS in with valof );
use Win32::OLE::Variant;

my $t_start;
my $tend = gettimeofday;
my $url;
my $urlCounter= 0;
my $timeTestStart = time();
my $t_now;
my $t_last_event;
my $dl_tot = 0;
my $dl_cnt = 0;
my $timedelay = 5;
my $timeout = 60;

$|=1;

my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) or
    die( "Cannot create an InternetExplorer.Application" );
$ie->{menubar} = 1;                     
$ie->{toolbar} = 1;
$ie->{statusbar} = 1;
$ie->{visible} = 1;
# give IE a chance to get itself established
print "IE should be visible\n";
$ie->navigate('about:blank');
sleep 10;
Win32::OLE->WithEvents( $ie, \&win32_ie_events, "DWebBrowserEvents2" )
+;
my @urls = qw(
    http://www.cnn.com
    http://www.whitehouse.gov
    http://www.popuptest.com/popuptest12.html
    http://www.popuptest.com/popuptest1.html
    http://www.instantattention.com/?aid=1589
);

foreach $url (@urls) {
    $url =~ s/\s//;
    if( $url =~ /^#/) { next; }     # do not nav to pdf files
    if( $url =~ /^$/) { next; }
    $urlCounter++;
    my $elapsed = time() - $timeTestStart;
    my @xtime = gmtime($elapsed);
    print "\n\n";
    print localtime(time) . " elapsed " . $xtime[2] . ":" . $xtime[1] 
+. ":" . $xtime[0] . "\n";
    print "url $urlCounter $url\n";
    $dl_tot = 0;
    $dl_cnt = 0;
    $t_start = $t_last_event = gettimeofday();
    $ie->navigate($url);
    while (1) {
        Win32::OLE->SpinMessageLoop;
        # get current time
        $t_now = gettimeofday();
        # check if navigation is complete
        if((($t_now - $t_last_event) > $timedelay)  &&   # no events f
+or a bit
            ($ie->ReadyState == 4) &&                   # browser says
+ it's ready
            $dl_tot &&                                  # we've had so
+me downloads
            ($dl_cnt == 0)) {                           # we've had eq
+ual number of download completes
            print "done ok\n";
            last;                                       # we're done
        }
        # check for timeout
        if(( $t_now  - $t_start ) > $timeout ) {
            # temp code, this hangs sometimes, need x19 style stuff, s
+ometimes this seems to hang!!
            print "timeout\n";
            sleep 5;
            last;
        }
    }

    my $seconds = $t_last_event - $t_start;
    print "Returned $seconds\n";
}

$ie->close;

exit;

sub win32_ie_events {
    my( $agent, $event, @args ) = @_;
    $t_last_event = gettimeofday();
    
    CASE: {
        $event eq 'DownloadBegin' and do {
            $dl_cnt++;
            last CASE;
        };
        $event eq 'DownloadComplete' and do {
            $dl_cnt--; $dl_tot++;
            last CASE;
        };
        $event eq 'NewWindow2' and do {
            print "NewWindow2 kill popup\n";
            $args[1]->Put( 1 );
            print "cancel[" .$args[1]->Value() . "]\n";
        };
        $event eq 'NewWindow3' and do {
            print "NewWindow3 kill popup\n";
            print "$args[2], $args[3], $args[4]\n";
            $args[1]->Put( 1 );
            print "cancel[" .$args[1]->Value() . "]\n";
        }
    }
    my $te = sprintf '%6.2f', $t_last_event - $t_start;
    print "$te $dl_cnt $dl_tot [$event]\n";
}
[download]