Changeset 319

Show
Ignore:
Timestamp:
05/06/07 16:37:51 (2 years ago)
Author:
kindlund
Message:

Debugging target change.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r317 r319  
    243243# initialized integrity state of the VM -- ready to be checked 
    244244# against, at any time. 
     245our $integrity = undef; 
    245246our $integrityState : shared = undef; 
    246247 
    …… 
    370371    # Perform initial integrity baseline check. 
    371372    #my $integrity = undef; 
    372     #if ($PERFORM_INTEGRITY_CHECKS) { 
    373     #    $integrity = HoneyClient::Agent::Integrity->new(); 
    374     #    $integrity->closeFiles(); 
    375     #    $integrityState = freeze($integrity); 
    376     #} 
     373    if ($PERFORM_INTEGRITY_CHECKS) { 
     374        $integrity = HoneyClient::Agent::Integrity->new(); 
     375        $integrity->closeFiles(); 
     376        $integrityState = freeze($integrity); 
     377    } 
    377378    # XXX: Check to make sure this doesn't destroy the integrity 
    378379    # object prematurely. 
    …… 
    732733                    # As such, do NOT try to call integrity checks on multiple, simultaneous 
    733734                    # asynchronous threaded drivers. 
    734                     #$integrity = thaw($integrityState); 
     735                    $integrity = thaw($integrityState); 
    735736                    # Perform initial integrity baseline check. 
    736737                    #print "Initializing Integrity Check...\n"; 
    737738                    # TODO: Initialize Integrity Checks 
    738                     $integrity = HoneyClient::Agent::Integrity->new(); 
     739                    #$integrity = HoneyClient::Agent::Integrity->new(); 
    739740                } 
    740741 
    …… 
    814815                    if ($driverTargetsChanged) { 
    815816                        print "Driver targets have changed!\n"; 
     817                        $Data::Dumper::Terse = 0; 
     818                        $Data::Dumper::Indent = 1; 
     819                        print "Current: " . Dumper($data->{$driverName}->{'next'}->{'targets'}) . "\n"; 
     820                        print "Next: " . Dumper($driver->next()->{'targets'}) . "\n"; 
    816821                    } 
    817822