Changeset 332

Show
Ignore:
Timestamp:
05/06/07 21:46:25 (1 year ago)
Author:
kindlund
Message:

tracking down issue where agent run() thread exit seems to kill the entire daemon

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/trunk/bin/StartAgent.pl

    r331 r332  
    6060for (;;) { 
    6161    # TODO: Make this a programmatic value. 
    62     sleep (60); 
     62    sleep (5); 
    6363    $som = $stub->getState(); 
    6464    if (defined($som) and (ref($som) eq "SOAP::SOM")) { 

  • honeyclient/trunk/lib/HoneyClient/Agent.pm

    r328 r332  
    653653    # Temporary variable, used to hold thread objects. 
    654654    my $thread = undef; 
     655 
     656    # XXX: Delete this, maybe? 
     657    my $integrity = undef; 
    655658 
    656659    # TODO: Eventually, use the globally defined array 
    …… 
    720723 
    721724                # Initially set local integrity object to undef. 
    722                 my $integrity = undef; 
     725                my $integrity2 = undef; 
    723726                 
    724727                # Initially set all driver objects to undef.  
    …… 
    733736                    # As such, do NOT try to call integrity checks on multiple, simultaneous 
    734737                    # asynchronous threaded drivers. 
    735                     $integrity = thaw($integrityState); 
     738                    $integrity2 = thaw($integrityState); 
    736739                    # Perform initial integrity baseline check. 
    737740                    #print "Initializing Integrity Check...\n"; 
    …… 
    844847                 
    845848                # TODO: Perform Integrity Check 
    846                 if (defined($integrity)) { 
     849                if (defined($integrity2)) { 
    847850                    # For now, we update a scalar called 'is_compromised' within 
    848851                    # the $data->{$driverName}->{'status'} sub-hashtable. 
    849852                    print "Performing Integrity Checks...\n"; 
    850                     my $changes = $integrity->check(); 
     853                    my $changes = $integrity2->check(); 
    851854                    if (scalar(@{$changes->{registry}}) ||  
    852855                        scalar(@{$changes->{filesystem}})) { 

  • honeyclient/trunk/lib/HoneyClient/Util/SOAP.pm

    r331 r332  
    459459    my $timeout = getVar(name      => "timeout", 
    460460                         namespace => $args{'namespace'}); 
    461 # XXX: Delete this, eventually. 
    462 print "TIMEOUT = " . $timeout . "\n"; 
    463461    my $URL_BASE = "http://" . $args{'address'} . ":" . $args{'port'}; 
    464462    my $URL = $URL_BASE . "/" . join('/', split(/::/, $args{'namespace'}));