Changeset 396

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

Destroy fully tested; improved debugging logging mechanism; experimental syslog support.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/kindlund-filesystem/bin/StartAgent.pl

    r394 r396  
    7878        } 
    7979    } 
    80  
    81     # XXX: Remove this, eventually. 
    82     print "Sleeping for 250s...\n"; 
    83     sleep(250); 
    84     print "Calling destroy()...\n"; 
    85     HoneyClient::Agent->destroy(); 
    86     exit; 
    8780} 
    8881 

  • honeyclient/branches/exp/kindlund-filesystem/etc/honeyclient_log.conf

    r271 r396  
    5959####################################################################### 
    6060 
    61 log4perl.rootLogger=INFO, Screen 
     61log4perl.rootLogger=INFO, Screen, Syslog 
     62 
     63# Screen Logging Settings 
    6264#log4perl.logger.HoneyClient.Agent.Integrity.Registry=DEBUG, Screen 
    6365# Suppress Parser Debugging Messages 
    …… 
    7072log4perl.appender.Screen.layout=Log::Log4perl::Layout::PatternLayout 
    7173log4perl.appender.Screen.layout.ConversionPattern=%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n 
     74 
     75# Syslog Logging Settings 
     76log4perl.appender.Syslog=Log::Dispatch::Syslog 
     77log4perl.appender.Syslog.Threshold=DEBUG 
     78log4perl.appender.Syslog.layout=Log::Log4perl::Layout::PatternLayout 
     79log4perl.appender.Syslog.layout.ConversionPattern=%5p [%M] (%F:%L) - %m%n 

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

    r389 r396  
    535535 
    536536    # Log resolved arguments. 
    537     # Make Dumper format more terse. 
    538     $Data::Dumper::Terse = 1; 
    539     $Data::Dumper::Indent = 0; 
    540     $LOG->debug(Dumper(\%args)); 
     537    $LOG->debug(sub { 
     538        # Make Dumper format more terse. 
     539        $Data::Dumper::Terse = 1; 
     540        $Data::Dumper::Indent = 0; 
     541        Dumper(\%args); 
     542    }); 
    541543 
    542544    my $changes = { 

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

    r286 r396  
    10081008 
    10091009    # Log resolved arguments. 
    1010     # Make Dumper format more terse. 
    1011     $Data::Dumper::Terse = 1; 
    1012     $Data::Dumper::Indent = 0; 
    1013     $LOG->debug(Dumper(\%args)); 
     1010    $LOG->debug(sub { 
     1011        # Make Dumper format more terse. 
     1012        $Data::Dumper::Terse = 1; 
     1013        $Data::Dumper::Indent = 0; 
     1014        Dumper(\%args); 
     1015    }); 
    10141016 
    10151017    # Analyze the filesystem. 

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

    r395 r396  
    11841184 
    11851185    # Log resolved arguments. 
    1186     # Make Dumper format more terse. 
    1187     $Data::Dumper::Terse = 1; 
    1188     $Data::Dumper::Indent = 0; 
    1189     $LOG->debug(Dumper(\%args)); 
     1186    $LOG->debug(sub { 
     1187        # Make Dumper format more terse. 
     1188        $Data::Dumper::Terse = 1; 
     1189        $Data::Dumper::Indent = 0; 
     1190        Dumper(\%args); 
     1191    }); 
    11901192 
    11911193    # Check to see if the class name is inherited or defined. 
    …… 
    14021404 
    14031405    # Log resolved arguments. 
    1404     # Make Dumper format more terse. 
    1405     $Data::Dumper::Terse = 1; 
    1406     $Data::Dumper::Indent = 0; 
    1407     $LOG->debug(Dumper(\%args)); 
     1406    $LOG->debug(sub { 
     1407        # Make Dumper format more terse. 
     1408        $Data::Dumper::Terse = 1; 
     1409        $Data::Dumper::Indent = 0; 
     1410        Dumper(\%args); 
     1411    }); 
    14081412 
    14091413    # Define before/after parsers. 
    …… 
    15141518 
    15151519    # Log resolved arguments. 
    1516     # Make Dumper format more terse. 
    1517     $Data::Dumper::Terse = 1; 
    1518     $Data::Dumper::Indent = 0; 
    1519     $LOG->debug(Dumper(\%args)); 
     1520    $LOG->debug(sub { 
     1521        # Make Dumper format more terse. 
     1522        $Data::Dumper::Terse = 1; 
     1523        $Data::Dumper::Indent = 0; 
     1524        Dumper(\%args); 
     1525    }); 
    15201526 
    15211527    my @parsers = values(%{$self->{_baseline_parsers}}); 
    …… 
    15661572 
    15671573    # Log resolved arguments. 
    1568     # Make Dumper format more terse. 
    1569     $Data::Dumper::Terse = 1; 
    1570     $Data::Dumper::Indent = 0; 
    1571     $LOG->debug(Dumper(\%args)); 
     1574    $LOG->debug(sub { 
     1575        # Make Dumper format more terse. 
     1576        $Data::Dumper::Terse = 1; 
     1577        $Data::Dumper::Indent = 0; 
     1578        Dumper(\%args); 
     1579    }); 
    15721580 
    15731581    # Close any temporary files created. 

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

    r267 r396  
    782782 
    783783    # Log resolved arguments. 
    784     # Make Dumper format more terse. 
    785     $Data::Dumper::Terse = 1; 
    786     $Data::Dumper::Indent = 0; 
    787     $LOG->debug(Dumper(\%args)); 
     784    $LOG->debug(sub { 
     785        # Make Dumper format more terse. 
     786        $Data::Dumper::Terse = 1; 
     787        $Data::Dumper::Indent = 0; 
     788        Dumper(\%args); 
     789    }); 
    788790 
    789791    # Sanity check, don't initialize, unless input_file_handle 
    …… 
    10181020 
    10191021    # Log resolved arguments. 
    1020     # Make Dumper format more terse. 
    1021     $Data::Dumper::Terse = 1; 
    1022     $Data::Dumper::Indent = 0; 
    1023     $LOG->debug(Dumper(\%args)); 
     1022    $LOG->debug(sub { 
     1023        # Make Dumper format more terse. 
     1024        $Data::Dumper::Terse = 1; 
     1025        $Data::Dumper::Indent = 0; 
     1026        Dumper(\%args); 
     1027    }); 
    10241028 
    10251029    # Reopen the file_handle, if it's been closed. 
    …… 
    10831087     
    10841088    # Log resolved arguments. 
    1085     # Make Dumper format more terse. 
    1086     $Data::Dumper::Terse = 1; 
    1087     $Data::Dumper::Indent = 0; 
    1088     $LOG->debug(Dumper(\%args)); 
     1089    $LOG->debug(sub { 
     1090        # Make Dumper format more terse. 
     1091        $Data::Dumper::Terse = 1; 
     1092        $Data::Dumper::Indent = 0; 
     1093        Dumper(\%args); 
     1094    }); 
    10891095 
    10901096    return $self->YYData->{'dir_count'};  
    …… 
    11301136 
    11311137    # Log resolved arguments. 
    1132     # Make Dumper format more terse. 
    1133     $Data::Dumper::Terse = 1; 
    1134     $Data::Dumper::Indent = 0; 
    1135     $LOG->debug(Dumper(\%args)); 
     1138    $LOG->debug(sub { 
     1139        # Make Dumper format more terse. 
     1140        $Data::Dumper::Terse = 1; 
     1141        $Data::Dumper::Indent = 0; 
     1142        Dumper(\%args); 
     1143    }); 
    11361144 
    11371145    return $self->YYData->{'entry_count'};  
    …… 
    11721180 
    11731181    # Log resolved arguments. 
    1174     # Make Dumper format more terse. 
    1175     $Data::Dumper::Terse = 1; 
    1176     $Data::Dumper::Indent = 0; 
    1177     $LOG->debug(Dumper(\%args)); 
     1182    $LOG->debug(sub { 
     1183        # Make Dumper format more terse. 
     1184        $Data::Dumper::Terse = 1; 
     1185        $Data::Dumper::Indent = 0; 
     1186        Dumper(\%args); 
     1187    }); 
    11781188 
    11791189    return $self->YYData->{'file_handle'};  
    …… 
    12141224 
    12151225    # Log resolved arguments. 
    1216     # Make Dumper format more terse. 
    1217     $Data::Dumper::Terse = 1; 
    1218     $Data::Dumper::Indent = 0; 
    1219     $LOG->debug(Dumper(\%args)); 
     1226    $LOG->debug(sub { 
     1227        # Make Dumper format more terse. 
     1228        $Data::Dumper::Terse = 1; 
     1229        $Data::Dumper::Indent = 0; 
     1230        Dumper(\%args); 
     1231    }); 
    12201232 
    12211233    return $self->YYData->{'filename'};  
    …… 
    12651277 
    12661278    # Log resolved arguments. 
    1267     # Make Dumper format more terse. 
    1268     $Data::Dumper::Terse = 1; 
    1269     $Data::Dumper::Indent = 0; 
    1270     $LOG->debug(Dumper(\%args)); 
     1279    $LOG->debug(sub { 
     1280        # Make Dumper format more terse. 
     1281        $Data::Dumper::Terse = 1; 
     1282        $Data::Dumper::Indent = 0; 
     1283        Dumper(\%args); 
     1284    }); 
    12711285 
    12721286    $self->YYData->{'file_handle'} = undef;  
    …… 
    13131327 
    13141328    # Log resolved arguments. 
    1315     # Make Dumper format more terse. 
    1316     $Data::Dumper::Terse = 1; 
    1317     $Data::Dumper::Indent = 0; 
    1318     $LOG->debug(Dumper(\%args)); 
     1329    $LOG->debug(sub { 
     1330        # Make Dumper format more terse. 
     1331        $Data::Dumper::Terse = 1; 
     1332        $Data::Dumper::Indent = 0; 
     1333        Dumper(\%args); 
     1334    }); 
    13191335 
    13201336    my $ret = $self->YYData->{'line_count'}; 
    …… 
    14711487 
    14721488    # Log resolved arguments. 
    1473     # Make Dumper format more terse. 
    1474     $Data::Dumper::Terse = 1; 
    1475     $Data::Dumper::Indent = 0; 
    1476     $LOG->debug(Dumper(\%args)); 
     1489    $LOG->debug(sub { 
     1490        # Make Dumper format more terse. 
     1491        $Data::Dumper::Terse = 1; 
     1492        $Data::Dumper::Indent = 0; 
     1493        Dumper(\%args); 
     1494    }); 
    14771495 
    14781496    # Sanity check, don't continue, unless absolute_offset or absolute_linennum 

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

    r267 r396  
    627627 
    628628    # Log resolved arguments. 
    629     # Make Dumper format more terse. 
    630     $Data::Dumper::Terse = 1; 
    631     $Data::Dumper::Indent = 0; 
    632     $LOG->debug(Dumper(\%args)); 
     629    $LOG->debug(sub { 
     630        # Make Dumper format more terse. 
     631        $Data::Dumper::Terse = 1; 
     632        $Data::Dumper::Indent = 0; 
     633        Dumper(\%args); 
     634    }); 
    633635 
    634636    # Sanity check, don't initialize, unless input_file_handle 
    …… 
    863865 
    864866    # Log resolved arguments. 
    865     # Make Dumper format more terse. 
    866     $Data::Dumper::Terse = 1; 
    867     $Data::Dumper::Indent = 0; 
    868     $LOG->debug(Dumper(\%args)); 
     867    $LOG->debug(sub { 
     868        # Make Dumper format more terse. 
     869        $Data::Dumper::Terse = 1; 
     870        $Data::Dumper::Indent = 0; 
     871        Dumper(\%args); 
     872    }); 
    869873 
    870874    # Reopen the file_handle, if it's been closed. 
    …… 
    928932     
    929933    # Log resolved arguments. 
    930     # Make Dumper format more terse. 
    931     $Data::Dumper::Terse = 1; 
    932     $Data::Dumper::Indent = 0; 
    933     $LOG->debug(Dumper(\%args)); 
     934    $LOG->debug(sub { 
     935        # Make Dumper format more terse. 
     936        $Data::Dumper::Terse = 1; 
     937        $Data::Dumper::Indent = 0; 
     938        Dumper(\%args); 
     939    }); 
    934940 
    935941    return $self->YYData->{'dir_count'};  
    …… 
    975981 
    976982    # Log resolved arguments. 
    977     # Make Dumper format more terse. 
    978     $Data::Dumper::Terse = 1; 
    979     $Data::Dumper::Indent = 0; 
    980     $LOG->debug(Dumper(\%args)); 
     983    $LOG->debug(sub { 
     984        # Make Dumper format more terse. 
     985        $Data::Dumper::Terse = 1; 
     986        $Data::Dumper::Indent = 0; 
     987        Dumper(\%args); 
     988    }); 
    981989 
    982990    return $self->YYData->{'entry_count'};  
    …… 
    10171025 
    10181026    # Log resolved arguments. 
    1019     # Make Dumper format more terse. 
    1020     $Data::Dumper::Terse = 1; 
    1021     $Data::Dumper::Indent = 0; 
    1022     $LOG->debug(Dumper(\%args)); 
     1027    $LOG->debug(sub { 
     1028        # Make Dumper format more terse. 
     1029        $Data::Dumper::Terse = 1; 
     1030        $Data::Dumper::Indent = 0; 
     1031        Dumper(\%args); 
     1032    }); 
    10231033 
    10241034    return $self->YYData->{'file_handle'};  
    …… 
    10591069 
    10601070    # Log resolved arguments. 
    1061     # Make Dumper format more terse. 
    1062     $Data::Dumper::Terse = 1; 
    1063     $Data::Dumper::Indent = 0; 
    1064     $LOG->debug(Dumper(\%args)); 
     1071    $LOG->debug(sub { 
     1072        # Make Dumper format more terse. 
     1073        $Data::Dumper::Terse = 1; 
     1074        $Data::Dumper::Indent = 0; 
     1075        Dumper(\%args); 
     1076    }); 
    10651077 
    10661078    return $self->YYData->{'filename'};  
    …… 
    11101122 
    11111123    # Log resolved arguments. 
    1112     # Make Dumper format more terse. 
    1113     $Data::Dumper::Terse = 1; 
    1114     $Data::Dumper::Indent = 0; 
    1115     $LOG->debug(Dumper(\%args)); 
     1124    $LOG->debug(sub { 
     1125        # Make Dumper format more terse. 
     1126        $Data::Dumper::Terse = 1; 
     1127        $Data::Dumper::Indent = 0; 
     1128        Dumper(\%args); 
     1129    }); 
    11161130 
    11171131    $self->YYData->{'file_handle'} = undef;  
    …… 
    11581172 
    11591173    # Log resolved arguments. 
    1160     # Make Dumper format more terse. 
    1161     $Data::Dumper::Terse = 1; 
    1162     $Data::Dumper::Indent = 0; 
    1163     $LOG->debug(Dumper(\%args)); 
     1174    $LOG->debug(sub { 
     1175        # Make Dumper format more terse. 
     1176        $Data::Dumper::Terse = 1; 
     1177        $Data::Dumper::Indent = 0; 
     1178        Dumper(\%args); 
     1179    }); 
    11641180 
    11651181    my $ret = $self->YYData->{'line_count'}; 
    …… 
    13161332 
    13171333    # Log resolved arguments. 
    1318     # Make Dumper format more terse. 
    1319     $Data::Dumper::Terse = 1; 
    1320     $Data::Dumper::Indent = 0; 
    1321     $LOG->debug(Dumper(\%args)); 
     1334    $LOG->debug(sub { 
     1335        # Make Dumper format more terse. 
     1336        $Data::Dumper::Terse = 1; 
     1337        $Data::Dumper::Indent = 0; 
     1338        Dumper(\%args); 
     1339    }); 
    13221340 
    13231341    # Sanity check, don't continue, unless absolute_offset or absolute_linennum 

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

    r395 r396  
    12061206 
    12071207    # Log resolved arguments. 
    1208     # XXX: Make this debug level. 
    1209     $LOG->info(sub { 
     1208    $LOG->debug(sub { 
    12101209        # Make Dumper format more terse. 
    12111210        $Data::Dumper::Terse = 1; 
    …… 
    13941393 
    13951394    # Log resolved arguments. 
    1396     # Make Dumper format more terse. 
    1397     $Data::Dumper::Terse = 1; 
    1398     $Data::Dumper::Indent = 0; 
    1399     $LOG->debug(sub { Dumper(\%args) }); 
     1395    $LOG->debug(sub { 
     1396        # Make Dumper format more terse. 
     1397        $Data::Dumper::Terse = 1; 
     1398        $Data::Dumper::Indent = 0; 
     1399        Dumper(\%args); 
     1400    }); 
    14001401     
    14011402    # Sanity check.  Make sure there are no queued faults. 
    …… 
    15221523 
    15231524    # Log resolved arguments. 
    1524     # Make Dumper format more terse. 
    1525     $Data::Dumper::Terse = 1; 
    1526     $Data::Dumper::Indent = 0; 
    1527     $LOG->debug(sub { Dumper(\%args) }); 
     1525    $LOG->debug(sub { 
     1526        # Make Dumper format more terse. 
     1527        $Data::Dumper::Terse = 1; 
     1528        $Data::Dumper::Indent = 0; 
     1529        Dumper(\%args); 
     1530    }); 
    15281531     
    15291532    # Sanity check.  Make sure there are no queued faults. 
    …… 
    16731676 
    16741677    # Log resolved arguments. 
    1675     # Make Dumper format more terse. 
    1676     $Data::Dumper::Terse = 1; 
    1677     $Data::Dumper::Indent = 0; 
    1678     $LOG->debug(sub { Dumper(\%args) }); 
     1678    $LOG->debug(sub { 
     1679        # Make Dumper format more terse. 
     1680        $Data::Dumper::Terse = 1; 
     1681        $Data::Dumper::Indent = 0; 
     1682        Dumper(\%args); 
     1683    }); 
    16791684     
    16801685    # Sanity check.  Make sure there are no queued faults. 
    …… 
    18281833 
    18291834    # Log resolved arguments. 
    1830     # Make Dumper format more terse. 
    1831     $Data::Dumper::Terse = 1; 
    1832     $Data::Dumper::Indent = 0; 
    1833     $LOG->debug(sub { Dumper(\%args) }); 
     1835    $LOG->debug(sub { 
     1836        # Make Dumper format more terse. 
     1837        $Data::Dumper::Terse = 1; 
     1838        $Data::Dumper::Indent = 0; 
     1839        Dumper(\%args); 
     1840    }); 
    18341841     
    18351842    # Sanity check.  Make sure there are no queued faults. 
    …… 
    19691976 
    19701977    # Log resolved arguments. 
    1971     # Make Dumper format more terse. 
    1972     $Data::Dumper::Terse = 1; 
    1973     $Data::Dumper::Indent = 0; 
    1974     $LOG->debug(sub { Dumper(\%args) }); 
     1978    $LOG->debug(sub { 
     1979        # Make Dumper format more terse. 
     1980        $Data::Dumper::Terse = 1; 
     1981        $Data::Dumper::Indent = 0; 
     1982        Dumper(\%args); 
     1983    }); 
    19751984     
    19761985    # Sanity check.  Make sure there are no queued faults. 
    …… 
    21602169 
    21612170    # Log resolved arguments. 
    2162     # Make Dumper format more terse. 
    2163     $Data::Dumper::Terse = 1; 
    2164     $Data::Dumper::Indent = 0; 
    2165     $LOG->debug(sub { Dumper(\%args) }); 
     2171    $LOG->debug(sub { 
     2172        # Make Dumper format more terse. 
     2173        $Data::Dumper::Terse = 1; 
     2174        $Data::Dumper::Indent = 0; 
     2175        Dumper(\%args); 
     2176    }); 
    21662177     
    21672178    # Sanity check.  Make sure there are no queued faults. 
    …… 
    23722383 
    23732384    # Log resolved arguments. 
    2374     # Make Dumper format more terse. 
    2375     $Data::Dumper::Terse = 1; 
    2376     $Data::Dumper::Indent = 0; 
    2377     $LOG->debug(sub { Dumper(\%args) }); 
     2385    $LOG->debug(sub { 
     2386        # Make Dumper format more terse. 
     2387        $Data::Dumper::Terse = 1; 
     2388        $Data::Dumper::Indent = 0; 
     2389        Dumper(\%args); 
     2390    }); 
    23782391     
    23792392    # Sanity check.  Make sure there are no queued faults. 
    …… 
    24982511 
    24992512    # Log resolved arguments. 
    2500     # Make Dumper format more terse. 
    2501     $Data::Dumper::Terse = 1; 
    2502     $Data::Dumper::Indent = 0; 
    2503     $LOG->debug(sub { Dumper(\%args) }); 
     2513    $LOG->debug(sub { 
     2514        # Make Dumper format more terse. 
     2515        $Data::Dumper::Terse = 1; 
     2516        $Data::Dumper::Indent = 0; 
     2517        Dumper(\%args); 
     2518    }); 
    25042519     
    25052520    # Sanity check.  Make sure there are no queued faults. 
    …… 
    26782693 
    26792694    # Log resolved arguments. 
    2680     # Make Dumper format more terse. 
    2681     $Data::Dumper::Terse = 1; 
    2682     $Data::Dumper::Indent = 0; 
    2683     $LOG->debug(sub { Dumper(\%args) }); 
     2695    $LOG->debug(sub { 
     2696        # Make Dumper format more terse. 
     2697        $Data::Dumper::Terse = 1; 
     2698        $Data::Dumper::Indent = 0; 
     2699        Dumper(\%args); 
     2700    }); 
    26842701     
    26852702    # Sanity check.  Make sure there are no queued faults. 
    …… 
    28122829 
    28132830    # Log resolved arguments. 
    2814     # Make Dumper format more terse. 
    2815     $Data::Dumper::Terse = 1; 
    2816     $Data::Dumper::Indent = 0; 
    2817     $LOG->debug(sub { Dumper(\%args) }); 
     2831    $LOG->debug(sub { 
     2832        # Make Dumper format more terse. 
     2833        $Data::Dumper::Terse = 1; 
     2834        $Data::Dumper::Indent = 0; 
     2835        Dumper(\%args); 
     2836    }); 
    28182837 
    28192838    # Sanity check.  Make sure there are no queued faults. 
    …… 
    29512970 
    29522971    # Log resolved arguments. 
    2953     # Make Dumper format more terse. 
    2954     $Data::Dumper::Terse = 1; 
    2955     $Data::Dumper::Indent = 0; 
    2956     $LOG->debug(sub { Dumper(\%args) }); 
     2972    $LOG->debug(sub { 
     2973        # Make Dumper format more terse. 
     2974        $Data::Dumper::Terse = 1; 
     2975        $Data::Dumper::Indent = 0; 
     2976        Dumper(\%args); 
     2977    }); 
    29572978     
    29582979    # Sanity check.  Make sure there are no queued faults. 
    …… 
    30763097 
    30773098    # Log resolved arguments. 
    3078     # Make Dumper format more terse. 
    3079     $Data::Dumper::Terse = 1; 
    3080     $Data::Dumper::Indent = 0; 
    3081     $LOG->debug(sub { Dumper(\%args) }); 
     3099    $LOG->debug(sub { 
     3100        # Make Dumper format more terse. 
     3101        $Data::Dumper::Terse = 1; 
     3102        $Data::Dumper::Indent = 0; 
     3103        Dumper(\%args); 
     3104    }); 
    30823105     
    30833106    # Sanity check.  Make sure there are no queued faults. 
    …… 
    32353258 
    32363259    # Log resolved arguments. 
    3237     # Make Dumper format more terse. 
    3238     $Data::Dumper::Terse = 1; 
    3239     $Data::Dumper::Indent = 0; 
    3240     $LOG->debug(sub { Dumper(\%args) }); 
     3260    $LOG->debug(sub { 
     3261        # Make Dumper format more terse. 
     3262        $Data::Dumper::Terse = 1; 
     3263        $Data::Dumper::Indent = 0; 
     3264        Dumper(\%args); 
     3265    }); 
    32413266     
    32423267    # Sanity check.  Make sure there are no queued faults. 
    …… 
    34283453 
    34293454    # Log resolved arguments. 
    3430     # Make Dumper format more terse. 
    3431     $Data::Dumper::Terse = 1; 
    3432     $Data::Dumper::Indent = 0; 
    3433     $LOG->debug(sub { Dumper(\%args) }); 
     3455    $LOG->debug(sub { 
     3456        # Make Dumper format more terse. 
     3457        $Data::Dumper::Terse = 1; 
     3458        $Data::Dumper::Indent = 0; 
     3459        Dumper(\%args); 
     3460    }); 
    34343461     
    34353462    # Sanity check.  Make sure there are no queued faults. 
    …… 
    36243651 
    36253652    # Log resolved arguments. 
    3626     # Make Dumper format more terse. 
    3627     $Data::Dumper::Terse = 1; 
    3628     $Data::Dumper::Indent = 0; 
    3629     $LOG->debug(sub { Dumper(\%args) }); 
     3653    $LOG->debug(sub { 
     3654        # Make Dumper format more terse. 
     3655        $Data::Dumper::Terse = 1; 
     3656        $Data::Dumper::Indent = 0; 
     3657        Dumper(\%args); 
     3658    }); 
    36303659     
    36313660    # Sanity check.  Make sure there are no queued faults. 
    …… 
    39133942 
    39143943    # Log resolved arguments. 
    3915     # Make Dumper format more terse. 
    3916     $Data::Dumper::Terse = 1; 
    3917     $Data::Dumper::Indent = 0; 
    3918     $LOG->debug(sub { Dumper(\%args) }); 
     3944    $LOG->debug(sub { 
     3945        # Make Dumper format more terse. 
     3946        $Data::Dumper::Terse = 1; 
     3947        $Data::Dumper::Indent = 0; 
     3948        Dumper(\%args); 
     3949    }); 
    39193950     
    39203951    # Sanity check.  Make sure there are no queued faults. 
    …… 
    42464277 
    42474278    # Log resolved arguments. 
    4248     # Make Dumper format more terse. 
    4249     $Data::Dumper::Terse = 1; 
    4250     $Data::Dumper::Indent = 0; 
    4251     $LOG->debug(sub { Dumper(\%args) }); 
     4279    $LOG->debug(sub { 
     4280        # Make Dumper format more terse. 
     4281        $Data::Dumper::Terse = 1; 
     4282        $Data::Dumper::Indent = 0; 
     4283        Dumper(\%args); 
     4284    }); 
    42524285     
    42534286    # Sanity check.  Make sure there are no queued faults. 
    …… 
    45344567 
    45354568    # Log resolved arguments. 
    4536     # Make Dumper format more terse. 
    4537     $Data::Dumper::Terse = 1; 
    4538     $Data::Dumper::Indent = 0; 
    4539     $LOG->debug(sub { Dumper(\%args) }); 
     4569    $LOG->debug(sub { 
     4570        # Make Dumper format more terse. 
     4571        $Data::Dumper::Terse = 1; 
     4572        $Data::Dumper::Indent = 0; 
     4573        Dumper(\%args); 
     4574    }); 
    45404575     
    45414576    # Sanity check.  Make sure there are no queued faults. 

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

    r267 r396  
    462462 
    463463    # Log resolved arguments. 
    464     # Make Dumper format more terse. 
    465     $Data::Dumper::Terse = 1; 
    466     $Data::Dumper::Indent = 0; 
    467     $LOG->debug(Dumper(\%args)); 
     464    $LOG->debug(sub { 
     465        # Make Dumper format more terse. 
     466        $Data::Dumper::Terse = 1; 
     467        $Data::Dumper::Indent = 0; 
     468        Dumper(\%args); 
     469    }); 
    468470     
    469471    # Get a copy of the original namespace. 
    …… 
    597599 
    598600    # Log resolved arguments. 
    599     # Make Dumper format more terse. 
    600     $Data::Dumper::Terse = 1; 
    601     $Data::Dumper::Indent = 0; 
    602     $LOG->debug(Dumper(\%args)); 
     601    $LOG->debug(sub { 
     602        # Make Dumper format more terse. 
     603        $Data::Dumper::Terse = 1; 
     604        $Data::Dumper::Indent = 0; 
     605        Dumper(\%args); 
     606    }); 
    603607 
    604608    # Fix the namespace so it is compatible with XPath 

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

    r267 r396  
    354354 
    355355    # Log resolved arguments. 
    356     # Make Dumper format more terse. 
    357     $Data::Dumper::Terse = 1; 
    358     $Data::Dumper::Indent = 0; 
    359     $LOG->debug(Dumper(\%args)); 
     356    $LOG->debug(sub { 
     357        # Make Dumper format more terse. 
     358        $Data::Dumper::Terse = 1; 
     359        $Data::Dumper::Indent = 0; 
     360        Dumper(\%args); 
     361    }); 
    360362 
    361363    my $daemon = SOAP::Transport::HTTP::Daemon 
    …… 
    452454 
    453455    # Log resolved arguments. 
    454     # Make Dumper format more terse. 
    455     $Data::Dumper::Terse = 1; 
    456     $Data::Dumper::Indent = 0; 
    457     $LOG->debug(Dumper(\%args)); 
     456    $LOG->debug(sub { 
     457        # Make Dumper format more terse. 
     458        $Data::Dumper::Terse = 1; 
     459        $Data::Dumper::Indent = 0; 
     460        Dumper(\%args); 
     461    }); 
    458462 
    459463    my $timeout = getVar(name      => "timeout",