Changeset 347

Show
Ignore:
Timestamp:
05/07/07 15:50:46 (2 years ago)
Author:
kindlund
Message:

debugging.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r346 r347  
    669669        # Read the TID. 
    670670        $tid = $data->{$driverName}->{'thread_id'}; 
     671 
     672# XXX: Delete this, eventually. 
     673print "Checking TID = " . Dumper($tid) . "\n"; 
     674if (defined(threads->object($tid))) { 
     675    print "Thread defined.\n"; 
     676    if (threads->object($tid)->is_running()) { 
     677        print "Thread is running.\n"; 
     678    } else { 
     679        print "Thread is NOT running.\n"; 
     680    } 
     681} else { 
     682    print "Thread NOT defined.\n"; 
     683} 
    671684         
    672685        # Sanity check: Return false, if we already have a