Changeset 395

Show
Ignore:
Timestamp:
05/29/07 14:31:42 (1 year ago)
Author:
kindlund
Message:

Improving Registry cleanup and VM debug logging.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r388 r395  
    408408 
    409409    # Delete any temporary files created by the baseline 
    410     # parsers. 
     410    # and checkpoint parsers. 
    411411    $self->_cleanupParsers($self->{_baseline_parsers}); 
     412    $self->_cleanupParsers($self->{_checkpoint_parsers}); 
    412413} 
    413414 

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

    r392 r395  
    12061206 
    12071207    # Log resolved arguments. 
    1208     # Make Dumper format more terse. 
    1209     $Data::Dumper::Terse = 1; 
    1210     $Data::Dumper::Indent = 0; 
    1211     # XXX: Change this back to debug. 
    1212     $LOG->info(sub { Dumper(\%args) }); 
     1208    # XXX: Make this debug level. 
     1209    $LOG->info(sub { 
     1210        # Make Dumper format more terse. 
     1211        $Data::Dumper::Terse = 1; 
     1212        $Data::Dumper::Indent = 0; 
     1213        Dumper(\%args); 
     1214    }); 
    12131215     
    12141216    # Sanity check.  Make sure there are no queued faults. 
    …… 
    13951397    $Data::Dumper::Terse = 1; 
    13961398    $Data::Dumper::Indent = 0; 
    1397     $LOG->debug(Dumper(\%args)); 
     1399    $LOG->debug(sub { Dumper(\%args) }); 
    13981400     
    13991401    # Sanity check.  Make sure there are no queued faults. 
    …… 
    15231525    $Data::Dumper::Terse = 1; 
    15241526    $Data::Dumper::Indent = 0; 
    1525     $LOG->debug(Dumper(\%args)); 
     1527    $LOG->debug(sub { Dumper(\%args) }); 
    15261528     
    15271529    # Sanity check.  Make sure there are no queued faults. 
    …… 
    16741676    $Data::Dumper::Terse = 1; 
    16751677    $Data::Dumper::Indent = 0; 
    1676     $LOG->debug(Dumper(\%args)); 
     1678    $LOG->debug(sub { Dumper(\%args) }); 
    16771679     
    16781680    # Sanity check.  Make sure there are no queued faults. 
    …… 
    18291831    $Data::Dumper::Terse = 1; 
    18301832    $Data::Dumper::Indent = 0; 
    1831     $LOG->debug(Dumper(\%args)); 
     1833    $LOG->debug(sub { Dumper(\%args) }); 
    18321834     
    18331835    # Sanity check.  Make sure there are no queued faults. 
    …… 
    19701972    $Data::Dumper::Terse = 1; 
    19711973    $Data::Dumper::Indent = 0; 
    1972     $LOG->debug(Dumper(\%args)); 
     1974    $LOG->debug(sub { Dumper(\%args) }); 
    19731975     
    19741976    # Sanity check.  Make sure there are no queued faults. 
    …… 
    21612163    $Data::Dumper::Terse = 1; 
    21622164    $Data::Dumper::Indent = 0; 
    2163     $LOG->debug(Dumper(\%args)); 
     2165    $LOG->debug(sub { Dumper(\%args) }); 
    21642166     
    21652167    # Sanity check.  Make sure there are no queued faults. 
    …… 
    23732375    $Data::Dumper::Terse = 1; 
    23742376    $Data::Dumper::Indent = 0; 
    2375     $LOG->debug(Dumper(\%args)); 
     2377    $LOG->debug(sub { Dumper(\%args) }); 
    23762378     
    23772379    # Sanity check.  Make sure there are no queued faults. 
    …… 
    24992501    $Data::Dumper::Terse = 1; 
    25002502    $Data::Dumper::Indent = 0; 
    2501     $LOG->debug(Dumper(\%args)); 
     2503    $LOG->debug(sub { Dumper(\%args) }); 
    25022504     
    25032505    # Sanity check.  Make sure there are no queued faults. 
    …… 
    26792681    $Data::Dumper::Terse = 1; 
    26802682    $Data::Dumper::Indent = 0; 
    2681     $LOG->debug(Dumper(\%args)); 
     2683    $LOG->debug(sub { Dumper(\%args) }); 
    26822684     
    26832685    # Sanity check.  Make sure there are no queued faults. 
    …… 
    28132815    $Data::Dumper::Terse = 1; 
    28142816    $Data::Dumper::Indent = 0; 
    2815     $LOG->debug(Dumper(\%args)); 
     2817    $LOG->debug(sub { Dumper(\%args) }); 
    28162818 
    28172819    # Sanity check.  Make sure there are no queued faults. 
    …… 
    29522954    $Data::Dumper::Terse = 1; 
    29532955    $Data::Dumper::Indent = 0; 
    2954     $LOG->debug(Dumper(\%args)); 
     2956    $LOG->debug(sub { Dumper(\%args) }); 
    29552957     
    29562958    # Sanity check.  Make sure there are no queued faults. 
    …… 
    30773079    $Data::Dumper::Terse = 1; 
    30783080    $Data::Dumper::Indent = 0; 
    3079     $LOG->debug(Dumper(\%args)); 
     3081    $LOG->debug(sub { Dumper(\%args) }); 
    30803082     
    30813083    # Sanity check.  Make sure there are no queued faults. 
    …… 
    32363238    $Data::Dumper::Terse = 1; 
    32373239    $Data::Dumper::Indent = 0; 
    3238     $LOG->debug(Dumper(\%args)); 
     3240    $LOG->debug(sub { Dumper(\%args) }); 
    32393241     
    32403242    # Sanity check.  Make sure there are no queued faults. 
    …… 
    34293431    $Data::Dumper::Terse = 1; 
    34303432    $Data::Dumper::Indent = 0; 
    3431     $LOG->debug(Dumper(\%args)); 
     3433    $LOG->debug(sub { Dumper(\%args) }); 
    34323434     
    34333435    # Sanity check.  Make sure there are no queued faults. 
    …… 
    36253627    $Data::Dumper::Terse = 1; 
    36263628    $Data::Dumper::Indent = 0; 
    3627     $LOG->debug(Dumper(\%args)); 
     3629    $LOG->debug(sub { Dumper(\%args) }); 
    36283630     
    36293631    # Sanity check.  Make sure there are no queued faults. 
    …… 
    39143916    $Data::Dumper::Terse = 1; 
    39153917    $Data::Dumper::Indent = 0; 
    3916     $LOG->debug(Dumper(\%args)); 
     3918    $LOG->debug(sub { Dumper(\%args) }); 
    39173919     
    39183920    # Sanity check.  Make sure there are no queued faults. 
    …… 
    42474249    $Data::Dumper::Terse = 1; 
    42484250    $Data::Dumper::Indent = 0; 
    4249     $LOG->debug(Dumper(\%args)); 
     4251    $LOG->debug(sub { Dumper(\%args) }); 
    42504252     
    42514253    # Sanity check.  Make sure there are no queued faults. 
    …… 
    45354537    $Data::Dumper::Terse = 1; 
    45364538    $Data::Dumper::Indent = 0; 
    4537     $LOG->debug(Dumper(\%args)); 
     4539    $LOG->debug(sub { Dumper(\%args) }); 
    45384540     
    45394541    # Sanity check.  Make sure there are no queued faults.