Changeset 662

Show
Ignore:
Timestamp:
07/18/07 17:05:27 (1 year ago)
Author:
kindlund
Message:

Debugging. Added configuration option to selectively enable/disable active content use.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/jpuchalski-active_content/bin/StartManager.pl

    r658 r662  
    6767                            # Enable this line, if you want to only go to the 
    6868                            # first 5 links for each domain. 
    69                             #max_relative_links_to_visit => $maxrel, 
     69                            max_relative_links_to_visit => $maxrel, 
    7070                            links_to_visit => \%remaining_urls, 
    7171                         }, 

  • honeyclient/branches/exp/jpuchalski-active_content/etc/honeyclient.xml

    r641 r662  
    7575            </timeout> 
    7676            <ActiveContent> 
     77                <enable description="Enables active content parsing. 1 enables, 0 disables." default="1"> 
     78                    1 
     79                </enable> 
    7780                <Flash> 
    7881                    <flasm_exec description="Path to the flasm executable." default="thirdparty/flasm/flasm.exe"> 

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

    r661 r662  
    148148 
    149149sub _addURL { 
    150   my $url = shift; 
    151  
    152   # URL appears to be absolute, or a different protocol 
    153   if ($url =~ /^mailto/ or 
    154       $url =~ /^javascript/ or 
    155       $url =~ /^http/ 
    156      )  
    157   { 
    158     $urls{"$url"} = 1; 
    159   } 
    160   # URL appears to be relative, so add the base 
    161   else { 
    162     $url = url($url, $base_url)->abs; 
    163     $urls{$url} = 1; 
    164   } 
     150    my $url = shift; 
     151 
     152    # URL appears to be absolute, or a different protocol 
     153    if ($url =~ /^mailto/ or 
     154        $url =~ /^javascript/ or 
     155        $url =~ /^http/) { 
     156        $urls{$url} = 1; 
     157    } 
     158    # URL appears to be relative, so add the base 
     159    else { 
     160# XXX: Delete this. 
     161print "url = " . $url . "\n"; 
     162print "base = " . $base_url . "\n"; 
     163        $url = url($url, $base_url)->abs; 
     164print "full_url = " . $url . "\n"; 
     165        $urls{$url} = 1; 
     166    } 
    165167} 
    166168