Changeset 366

Show
Ignore:
Timestamp:
05/25/07 16:42:27 (1 year ago)
Author:
kindlund
Message:

Reading more fun threads crap:
http://www.cpanforum.com/posts/3057

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Agent.pm

    r365 r366  
    114114    # within the global configuration file.  Or, feed the initialization logic through init() as part of the arguments. 
    115115    @DRIVERS = ( 'IE' ); 
    116     foreach (@DRIVERS) { 
    117         eval "use HoneyClient::Agent::Driver::Browser::$_"; 
    118         if ($@) { 
    119             Carp::croak "$@"; 
    120         } 
    121     } 
     116# XXX: See if this is still needed. 
     117#    foreach (@DRIVERS) { 
     118#        eval "use HoneyClient::Agent::Driver::Browser::$_"; 
     119#        if ($@) { 
     120#            Carp::croak "$@"; 
     121#        } 
     122#    } 
    122123 
    123124    $SIG{PIPE} = 'IGNORE'; # Do not exit on broken pipes. 
    …… 
    194195# Include Integrity Library 
    195196# TODO: Include corresponding unit tests. 
    196 use HoneyClient::Agent::Integrity; 
     197# XXX: Check if this is still needed. 
     198#use HoneyClient::Agent::Integrity; 
    197199 
    198200# Include Thread Libraries 
    …… 
    371373    my $integrity = undef; 
    372374    if ($PERFORM_INTEGRITY_CHECKS) { 
     375        require HoneyClient::Agent::Integrity; 
    373376        $integrity = HoneyClient::Agent::Integrity->new(); 
    374377        $integrity->closeFiles(); 
    …… 
    803806 
    804807        if ($PERFORM_INTEGRITY_CHECKS) { 
     808            require HoneyClient::Agent::Integrity; 
    805809            # XXX: WARNING - The $integrityState object data is NOT thread-safe 
    806810            # (since it relies on external data stored on the file system). 
    …… 
    817821        # Figure out which $driver object to use... 
    818822        my $driverClass = 'HoneyClient::Agent::Driver::Browser::' . $driverName; 
    819                  
     823        eval "require $driverClass"; 
     824        if ($@) { 
     825            Carp::croak "$@"; 
     826        } 
     827 
    820828        if (!defined($data->{$driverName}->{'state'})) { 
    821829