Changeset 680

Show
Ignore:
Timestamp:
07/18/07 20:06:21 (1 year ago)
Author:
kindlund
Message:

Debugging.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/jpuchalski-active_content/lib/HoneyClient/Agent/Driver/ActiveContent/Flash.pm

    r678 r680  
    216216print "filename = " . $filename . "\n"; 
    217217 
    218     # Extract the base url.  
    219     my $url = URI::URL->new($args{'url'}); 
    220     $base_url = $url->canonical()->as_string(); 
     218    # Extract the base URL.  
     219    $base_url = URI::URL->new($args{'url'}); 
     220    $base_url = $base_url->canonical()->as_string(); 
    221221 
    222222# XXX: Delete this. 
    …… 
    255255    # getURL2 calls from this, as they need to be handled differently) 
    256256    my @geturl_calls = grep(/getURL /, @bytecode); 
     257print "geturl_calls = " . Dumper(@geturl_calls) . "\n"; 
    257258 
    258259    # Each getURL line has getURL followed by the URL in single  
    …… 
    262263 
    263264    foreach (@geturl_calls) { 
     265print "geturl_calls_entry = " . Dumper($_) . "\n"; 
    264266        $_ =~ s/^\s+//; 
    265267        my ($fun, $url) = split(/\s+/);