Changeset 791

Show
Ignore:
Timestamp:
07/31/07 10:34:37 (1 year ago)
Author:
kindlund
Message:

sva: merging branch using tags svn+ssh://kindlund@www.honeyclient.org/home/svn/honeyclient/honeyclient/tags/exp/PRE-kindlund-dynamic_updates and svn+ssh://kindlund@www.honeyclient.org/home/svn/honeyclient/honeyclient/trunk

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • honeyclient/branches/exp/kindlund-dynamic_updates/LICENSE

    r13 r791  
    1            GNU GENERAL PUBLIC LICENSE 
    2               Version 2, June 1991 
     1            GNU GENERAL PUBLIC LICENSE 
     2               Version 2, June 1991 
    33 
    44 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 
    …… 
    77 of this license document, but changing it is not allowed. 
    88 
    9                Preamble 
     9                Preamble 
    1010 
    1111  The licenses for most software are designed to take away your 
    …… 
    5757modification follow. 
    5858 
    59            GNU GENERAL PUBLIC LICENSE 
     59            GNU GENERAL PUBLIC LICENSE 
    6060   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 
    6161 
    …… 
    256256of promoting the sharing and reuse of software generally. 
    257257 
    258                NO WARRANTY 
     258                NO WARRANTY 
    259259 
    260260  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY 
    …… 
    278278POSSIBILITY OF SUCH DAMAGES. 
    279279 
    280             END OF TERMS AND CONDITIONS 
     280             END OF TERMS AND CONDITIONS 

  • honeyclient/branches/exp/kindlund-dynamic_updates/bin/FlashTest.pl

    • Property svn:keywords set to Id "$file"
    r696 r791  
    11#!/usr/bin/perl -w -Ilib 
     2 
     3# $Id$ 
    24 
    35use File::Temp (); 

  • honeyclient/branches/exp/kindlund-dynamic_updates/bin/StartManager.pl

    r754 r791  
    2727#           'HoneyClient::Agent::Driver::Browser::FF' 
    2828my $driver = "HoneyClient::Agent::Driver::Browser::IE"; 
    29 my $config = "/vm/master-vms/Agent.Master-23/winXPPro.cfg"; 
    30 my $maxrel = 10; 
     29my $config = undef; 
     30my $maxrel = -1; 
    3131my $nexturl = ""; 
    3232my $urllist= ""; 
    …… 
    6767                        $driver => { 
    6868                            next_link_to_visit => $firsturl, 
    69                             # Enable this line, if you want to only go to the 
    70                             # first 5 links for each domain. 
    7169                            max_relative_links_to_visit => $maxrel, 
    7270                            links_to_visit => \%remaining_urls, 

  • honeyclient/branches/exp/kindlund-dynamic_updates/bin/run.sh

    • Property svn:keywords set to Id "$file"
    r696 r791  
    11#!/bin/bash 
     2 
     3# $Id$ 
    24 
    35echo "Starting up Agent - (Hit CTRL-C multiple times to exit.)" 

  • honeyclient/branches/exp/kindlund-dynamic_updates/create_pkg_dir.pl

    • Property svn:keywords set to Id "$file"
    r16 r791  
    11#!/usr/bin/perl 
     2 
     3# $Id$ 
     4 
    25use warnings; 
    36use strict; 
    …… 
    1619 
    1720#   Directories to include in the distribution  
    18 my %inc_dirs = (etc => $src_path . '/etc', 
    19                 bin => $src_path . '/bin', 
    20                 inc => 'thirdparty/inc',); 
     21my %inc_dirs = (etc                            => $src_path . '/etc', 
     22                bin                            => $src_path . '/bin', 
     23                inc                            => 'thirdparty/inc', 
     24                'thirdparty'                   => 'thirdparty', 
     25                't'                            => 't', 
     26               ); 
    2127#--------------------------------------# 
    2228 
    …… 
    6369    find({wanted => \&process, no_chdir => 1} ,"$src_path/$path/$module"); 
    6470 
     71    # Copy the LICENSE and INSTALL files. 
     72    my_copy("LICENSE",$pkg_name,1); 
     73    my_copy("INSTALL",$pkg_name,1); 
     74 
    6575    l(''); 
    6676} 
    …… 
    103113}#}}} 
    104114 
     115 
    105116# All of the calls are the same, and I wanted to unclutter the above code 
    106117sub my_copy { #{{{ 

  • honeyclient/branches/exp/kindlund-dynamic_updates/create_pkg_makefile.pl

    • Property svn:keywords set to Id "$file"
    r13 r791  
    11#!/usr/bin/perl 
     2 
     3# $Id$ 
     4 
    25# Remember to add $name to this, or else it will not work 
    36use warnings; 
    …… 
    3740    find(\&process,'lib'); 
    3841    foreach( sort keys %requires){ 
    39         printf FILE "requires\t%s => %s;\n",$_,$requires{$_}; 
     42        printf FILE "requires\t'%s' => '%s';\n",$_,$requires{$_}; 
    4043    } 
    4144} 
    …… 
    4952print   FILE "license\t\t'gpl';\n"; 
    5053print   FILE "perl_version\t'5.006';\n"; 
     54print   FILE "author\t\t'MITRE Honeyclient Project <honeyclient\@mitre.org>';\n"; 
    5155 
    5256 
    …… 
    6165get_dependencies(join("::",@name)); 
    6266print   FILE "\n"; 
     67print   FILE "no_index\t'directory' => 'etc';\n"; 
     68print   FILE "no_index\t'directory' => 'inc';\n"; 
     69print   FILE "no_index\t'directory' => 'thirdparty';\n"; 
     70print   FILE "\n"; 
    6371print   FILE "auto_install;\n"; 
    6472print   FILE "WriteAll;\n"; 

  • honeyclient/branches/exp/kindlund-dynamic_updates/etc/honeyclient.xml

    r754 r791  
    458458        <!-- HoneyClient::Manager::VM Options --> 
    459459        <VM> 
    460             <!-- TODO: Need to include logic to use this variable. --> 
    461460            <master_vm_config description="The full absolute path to the VM configuration file on the host system that will be used by all subsequent cloned VMs."> 
    462461                /vm/master-vms/Agent.Master-23/winXPPro.cfg 

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

    r759 r791  
    3838=head1 VERSION 
    3939 
    40 0.97 
     400.98 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    7979 
    8080    # Set our package version. 
    81     $VERSION = 0.97; 
     81    $VERSION = 0.98; 
    8282 
    8383    @ISA = qw(Exporter); 

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

    r751 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::Agent::Driver version 0.97. 
     40This documentation refers to HoneyClient::Agent::Driver version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    120120 
    121121    # Set our package version. 
    122     $VERSION = 0.97; 
     122    $VERSION = 0.98; 
    123123 
    124124    @ISA = qw(Exporter); 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/Agent/Driver/ActiveContent/Flash.pm

    r690 r791  
    237237    } 
    238238 
    239    # Strip out all control characters and place each line as 
    240    # separate entry in an array. 
    241    my @bytecode = split(/[[:cntrl:]]+/, $code); 
     239    # Strip out all control characters and place each line as 
     240    # separate entry in an array. 
     241    my @bytecode = split(/[[:cntrl:]]+/, $code); 
    242242 
    243243    # Parse out lines that contain the getURL method (exclude any 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/Agent/Driver/Browser.pm

    r759 r791  
    4040=head1 VERSION 
    4141 
    42 This documentation refers to HoneyClient::Agent::Driver::Browser version 0.97. 
     42This documentation refers to HoneyClient::Agent::Driver::Browser version 0.98. 
    4343 
    4444=head1 SYNOPSIS 
    …… 
    161161 
    162162    # Set our package version. 
    163     $VERSION = 0.97; 
     163    $VERSION = 0.98; 
    164164 
    165165    # Define inherited modules. 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/Agent/Driver/Browser/FF.pm

    r751 r791  
    4141=head1 VERSION 
    4242 
    43 This documentation refers to HoneyClient::Agent::Driver::Browser::FF version 0.97. 
     43This documentation refers to HoneyClient::Agent::Driver::Browser::FF version 0.98. 
    4444 
    4545=head1 SYNOPSIS 
    …… 
    155155BEGIN { 
    156156 
    157    # Defines which functions can be called externally. 
    158    require Exporter; 
    159    our ( @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION ); 
    160  
    161    # Set our package version. 
    162    $VERSION = 0.97; 
    163  
    164    # Define inherited modules. 
    165    use HoneyClient::Agent::Driver::Browser; 
    166  
    167    @ISA = qw(Exporter HoneyClient::Agent::Driver::Browser); 
    168  
    169    # Symbols to export automatically 
    170    # Note: Since this module is object-oriented, we do *NOT* export 
    171    # any functions other than "new" to call statically.  Each function 
    172    # for this module *must* be called as a method from a unique 
    173    # object instance. 
    174    @EXPORT = qw(); 
    175  
    176    # Items to export into callers namespace by default. Note: do not export 
    177    # names by default without a very good reason. Use EXPORT_OK instead. 
    178    # Do not simply export all your public functions/methods/constants. 
    179  
    180    # This allows declaration use HoneyClient::Agent::Driver::Browser::FF ':all'; 
    181    # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 
    182    # will save memory. 
    183  
    184    # Note: Since this module is object-oriented, we do *NOT* export 
    185    # any functions other than "new" to call statically.  Each function 
    186    # for this module *must* be called as a method from a unique 
    187    # object instance. 
    188    %EXPORT_TAGS = ( 'all' => [qw()], ); 
    189  
    190    # Symbols to autoexport (when qw(:all) tag is used) 
    191    @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 
    192  
    193    $SIG{PIPE} = 'IGNORE';    # Do not exit on broken pipes. 
     157    # Defines which functions can be called externally. 
     158    require Exporter; 
     159    our ( @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION ); 
     160 
     161    # Set our package version. 
     162    $VERSION = 0.98; 
     163 
     164    # Define inherited modules. 
     165    use HoneyClient::Agent::Driver::Browser; 
     166 
     167    @ISA = qw(Exporter HoneyClient::Agent::Driver::Browser); 
     168 
     169    # Symbols to export automatically 
     170    # Note: Since this module is object-oriented, we do *NOT* export 
     171    # any functions other than "new" to call statically.  Each function 
     172    # for this module *must* be called as a method from a unique 
     173    # object instance. 
     174    @EXPORT = qw(); 
     175 
     176    # Items to export into callers namespace by default. Note: do not export 
     177    # names by default without a very good reason. Use EXPORT_OK instead. 
     178    # Do not simply export all your public functions/methods/constants. 
     179 
     180    # This allows declaration use HoneyClient::Agent::Driver::Browser::FF ':all'; 
     181    # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 
     182    # will save memory. 
     183 
     184    # Note: Since this module is object-oriented, we do *NOT* export 
     185    # any functions other than "new" to call statically.  Each function 
     186    # for this module *must* be called as a method from a unique 
     187    # object instance. 
     188    %EXPORT_TAGS = ( 'all' => [qw()], ); 
     189 
     190    # Symbols to autoexport (when qw(:all) tag is used) 
     191    @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 
     192 
     193    $SIG{PIPE} = 'IGNORE';    # Do not exit on broken pipes. 
    194194} 
    195195our ( @EXPORT_OK, $VERSION ); 
    …… 
    412412 
    413413    # Extract arguments. 
    414    my ($self, %args) = @_; 
     414    my ($self, %args) = @_; 
    415415 
    416416    # Sanity check: Make sure we've been fed an object. 
    …… 
    432432    } 
    433433 
    434    # Drive the generic browser before opening with FF 
    435    $self = $self->SUPER::drive(%args); 
     434    # Drive the generic browser before opening with FF 
     435    $self = $self->SUPER::drive(%args); 
    436436     
    437437    # Sanity check: Make sure our next URL is defined. 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/Agent/Driver/Browser/IE.pm

    r751 r791  
    4141=head1 VERSION 
    4242 
    43 This documentation refers to HoneyClient::Agent::Driver::Browser::IE version 0.97. 
     43This documentation refers to HoneyClient::Agent::Driver::Browser::IE version 0.98. 
    4444 
    4545=head1 SYNOPSIS 
    …… 
    155155BEGIN { 
    156156 
    157    # Defines which functions can be called externally. 
    158    require Exporter; 
    159    our ( @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION ); 
    160  
    161    # Set our package version. 
    162    $VERSION = 0.97; 
    163  
    164    # Define inherited modules. 
    165    use HoneyClient::Agent::Driver::Browser; 
    166  
    167    @ISA = qw(Exporter HoneyClient::Agent::Driver::Browser); 
    168  
    169    # Symbols to export automatically 
    170    # Note: Since this module is object-oriented, we do *NOT* export 
    171    # any functions other than "new" to call statically.  Each function 
    172    # for this module *must* be called as a method from a unique 
    173    # object instance. 
    174    @EXPORT = qw(); 
    175  
    176    # Items to export into callers namespace by default. Note: do not export 
    177    # names by default without a very good reason. Use EXPORT_OK instead. 
    178    # Do not simply export all your public functions/methods/constants. 
    179  
    180    # This allows declaration use HoneyClient::Agent::Driver::Browser::IE ':all'; 
    181    # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 
    182    # will save memory. 
    183  
    184    # Note: Since this module is object-oriented, we do *NOT* export 
    185    # any functions other than "new" to call statically.  Each function 
    186    # for this module *must* be called as a method from a unique 
    187    # object instance. 
    188    %EXPORT_TAGS = ( 'all' => [qw()], ); 
    189  
    190    # Symbols to autoexport (when qw(:all) tag is used) 
    191    @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 
    192  
    193    $SIG{PIPE} = 'IGNORE';    # Do not exit on broken pipes. 
     157    # Defines which functions can be called externally. 
     158    require Exporter; 
     159    our ( @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION ); 
     160 
     161    # Set our package version. 
     162    $VERSION = 0.98; 
     163 
     164    # Define inherited modules. 
     165    use HoneyClient::Agent::Driver::Browser; 
     166 
     167    @ISA = qw(Exporter HoneyClient::Agent::Driver::Browser); 
     168 
     169    # Symbols to export automatically 
     170    # Note: Since this module is object-oriented, we do *NOT* export 
     171    # any functions other than "new" to call statically.  Each function 
     172    # for this module *must* be called as a method from a unique 
     173    # object instance. 
     174    @EXPORT = qw(); 
     175 
     176    # Items to export into callers namespace by default. Note: do not export 
     177    # names by default without a very good reason. Use EXPORT_OK instead. 
     178    # Do not simply export all your public functions/methods/constants. 
     179 
     180    # This allows declaration use HoneyClient::Agent::Driver::Browser::IE ':all'; 
     181    # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 
     182    # will save memory. 
     183 
     184    # Note: Since this module is object-oriented, we do *NOT* export 
     185    # any functions other than "new" to call statically.  Each function 
     186    # for this module *must* be called as a method from a unique 
     187    # object instance. 
     188    %EXPORT_TAGS = ( 'all' => [qw()], ); 
     189 
     190    # Symbols to autoexport (when qw(:all) tag is used) 
     191    @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 
     192 
     193    $SIG{PIPE} = 'IGNORE';    # Do not exit on broken pipes. 
    194194} 
    195195our ( @EXPORT_OK, $VERSION ); 
    …… 
    389389 
    390390    # Extract arguments. 
    391    my ($self, %args) = @_; 
     391    my ($self, %args) = @_; 
    392392 
    393393    # Sanity check: Make sure we've been fed an object. 
    …… 
    409409    } 
    410410 
    411    # Drive the generic browser before opening with IE 
    412    $self = $self->SUPER::drive(%args); 
     411    # Drive the generic browser before opening with IE 
     412    $self = $self->SUPER::drive(%args); 
    413413     
    414414    # Sanity check: Make sure our next URL is defined. 

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

    r759 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::Agent::Integrity version 0.97. 
     40This documentation refers to HoneyClient::Agent::Integrity version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    198198 
    199199    # Set our package version. 
    200     $VERSION = 0.97; 
     200    $VERSION = 0.98; 
    201201 
    202202    @ISA = qw(Exporter); 

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

    r759 r791  
    3737=head1 VERSION 
    3838 
    39 This documentation refers to HoneyClient::Agent::Integrity::Filesystem version 0.97. 
     39This documentation refers to HoneyClient::Agent::Integrity::Filesystem version 0.98. 
    4040 
    4141=head1 SYNOPSIS 
    …… 
    145145 
    146146    # Set our package version. 
    147     $VERSION = 0.97; 
     147    $VERSION = 0.98; 
    148148 
    149149    @ISA = qw(Exporter); 

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

    r760 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::Agent::Integrity::Registry version 0.97. 
     40This documentation refers to HoneyClient::Agent::Integrity::Registry version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    142142 
    143143    # Set our package version. 
    144     $VERSION = 0.97; 
     144    $VERSION = 0.98; 
    145145 
    146146    @ISA = qw(Exporter); 

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

    r751 r791  
    5555=head1 VERSION 
    5656 
    57 This documentation refers to HoneyClient::Agent::Integrity::Registry::Parser version 0.97. 
     57This documentation refers to HoneyClient::Agent::Integrity::Registry::Parser version 0.98. 
    5858 
    5959=head1 SYNOPSIS 
    …… 
    133133 
    134134    # Set our package version. 
    135     $VERSION = 0.97; 
     135    $VERSION = 0.98; 
    136136 
    137137    @ISA = qw(Exporter); 

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

    r751 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::Agent::Integrity::Registry::Parser version 0.97. 
     40This documentation refers to HoneyClient::Agent::Integrity::Registry::Parser version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    116116 
    117117    # Set our package version. 
    118     $VERSION = 0.97; 
     118    $VERSION = 0.98; 
    119119 
    120120    @ISA = qw(Exporter); 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/DB.pm

    r601 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::DB version 0.97. 
     40This documentation refers to HoneyClient::DB version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    356356    our @EXPORT = qw(); 
    357357    our @EXPORT_OK; 
    358     our $VERSION = 0.9; 
     358    our $VERSION = 0.98; 
    359359 
    360360    my $database_version;     #  = $dbh->get_info(  18 ); # SQL_DBMS_VER 

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

    r751 r791  
    3636=head1 VERSION 
    3737 
    38 This documentation refers to HoneyClient::Manager version 0.97. 
     38This documentation refers to HoneyClient::Manager version 0.98. 
    3939 
    4040=head1 SYNOPSIS 
    …… 
    7373 
    7474    # Set our package version. 
    75     $VERSION = 0.97; 
     75    $VERSION = 0.98; 
    7676 
    7777    @ISA = qw(Exporter); 
    …… 
    188188# Include FW Utility Library 
    189189# TODO: Include unit tests. 
    190 use HoneyClient::Manager::FW; 
     190#use HoneyClient::Manager::FW; 
    191191 
    192192# Include Hash Serialization Utility Libraries 
    …… 
    463463    my ($class, %args) = @_; 
    464464    my $agentState = undef; 
     465 
     466    # Sanity check, make sure the master_vm_config has 
     467    # been specified. 
     468    my $argsExist = scalar(%args); 
     469    if (!$argsExist || 
     470        !exists($args{'master_vm_config'}) || 
     471        !defined($args{'master_vm_config'})) { 
     472        # Get the master_vm_config from the configuration file. 
     473        $args{'master_vm_config'} = getVar(name      => "master_vm_config", 
     474                                           namespace => "HoneyClient::Manager::VM"); 
     475    } 
    465476 
    466477    for (;;) { 

  • honeyclient/branches/exp/kindlund-dynamic_updates/lib/HoneyClient/Manager/FW.pm

    r605 r791  
    4141=head1 VERSION 
    4242 
    43 This documentation refers to HoneyClient::Manager::FW version 0.97. 
     43This documentation refers to HoneyClient::Manager::FW version 0.98. 
    4444 
    4545=head1 SYNOPSIS 
    …… 
    315315 
    316316    # Set our package version. 
    317     $VERSION = 0.97; 
     317    $VERSION = 0.98; 
    318318 
    319319    @ISA = qw(Exporter); 
    …… 
    33293329 
    33303330IPTables::IPv4 
    3331 L<http://search.cpan.org/~dpates/IPTables-IPv4-0.98/IPv4.pm> 
    33323331 
    33333332Net::DNS 
    3334 L<http://search.cpan.org/~olaf/Net-DNS-0.57/lib/Net/DNS.pm> 
    33353333 
    33363334IPTables Perl API 

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

    r751 r791  
    3939=head1 VERSION 
    4040 
    41 This documentation refers to HoneyClient::Manager:VM version 0.97. 
     41This documentation refers to HoneyClient::Manager:VM version 0.98. 
    4242 
    4343=head1 SYNOPSIS 
    …… 
    320320 
    321321    # Set our package version. 
    322     $VERSION = 0.97; 
     322    $VERSION = 0.98; 
    323323 
    324324    @ISA = qw(Exporter); 
    …… 
    518518diag("Note: These extended tests will take *significant* time to complete (10-30 minutes)."); 
    519519 
    520 my $question = prompt("# Do you want to run extended tests?", "no"); 
     520$question = prompt("# Do you want to run extended tests?", "no"); 
    521521if ($question !~ /^y.*/i) { 
    522522    exit; 
    …… 
    36363636             glob($cloneVMDir . "/*.vme*")) { 
    36373637        $mode = sprintf("%04o", stat($_)->mode & 07777); 
    3638         is($mode, "0400", "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed.  Expected file ($_) to be mode 0400, but it was mode $mode instead."); 
     3638        is($mode, "0440", "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed.  Expected file ($_) to be mode 0440, but it was mode $mode instead."); 
    36393639    } 
    36403640 

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

    r762 r791  
    3838=head1 VERSION 
    3939 
    40 This documentation refers to HoneyClient::Manager::VM::Clone version 0.97. 
     40This documentation refers to HoneyClient::Manager::VM::Clone version 0.98. 
    4141 
    4242=head1 SYNOPSIS 
    …… 
    125125 
    126126    # Set our package version. 
    127     $VERSION = 0.97; 
     127    $VERSION = 0.98; 
    128128 
    129129    @ISA = qw(Exporter); 

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

    r759 r791  
    3737=head1 VERSION 
    3838 
    39 This documentation refers to HoneyClient::Util::Config version 0.97. 
     39This documentation refers to HoneyClient::Util::Config version 0.98. 
    4040 
    4141=head1 SYNOPSIS 
    …… 
    8484use Sys::Syslog; 
    8585use Data::Dumper; 
     86use Log::Dispatch::Syslog; 
    8687 
    8788####################################################################### 
    …… 
    9596 
    9697    # Set our package version. 
    97     $VERSION = 0.97; 
     98    $VERSION = 0.98; 
    9899 
    99100    @ISA = qw(Exporter); 
    …… 
    186187use Data::Dumper; 
    187188 
     189# Make sure Log::Dispatch::Syslog loads 
     190BEGIN { use_ok('Log::Dispatch::Syslog') 
     191        or diag("Can't load Log::Dispatch::Syslog package. Check to make sure the package library is correctly listed within the path."); } 
     192require_ok('Log::Dispatch::Syslog'); 
     193use Log::Dispatch::Syslog; 
     194 
    188195=end testing 
    189196 

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

    r605 r791  
    3737=head1 VERSION 
    3838 
    39 This documentation refers to HoneyClient::Util::SOAP version 0.97. 
     39This documentation refers to HoneyClient::Util::SOAP version 0.98. 
    4040 
    4141=head1 SYNOPSIS 
    …… 
    130130 
    131131    # Set our package version. 
    132     $VERSION = 0.97; 
     132    $VERSION = 0.98; 
    133133 
    134134    @ISA = qw(Exporter); 

  • honeyclient/branches/exp/kindlund-dynamic_updates/t/honeyclient_manager_vm.t

    r590 r791  
    172172diag("Note: These extended tests will take *significant* time to complete (10-30 minutes)."); 
    173173 
    174 my $question = prompt("# Do you want to run extended tests?", "no"); 
     174$question = prompt("# Do you want to run extended tests?", "no"); 
    175175if ($question !~ /^y.*/i) { 
    176176    exit; 
    …… 
    11031103             glob($cloneVMDir . "/*.vme*")) { 
    11041104        $mode = sprintf("%04o", stat($_)->mode & 07777); 
    1105         is($mode, "0400", "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed.  Expected file ($_) to be mode 0400, but it was mode $mode instead."); 
     1105        is($mode, "0440", "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed.  Expected file ($_) to be mode 0440, but it was mode $mode instead."); 
    11061106    } 
    11071107 

  • honeyclient/branches/exp/kindlund-dynamic_updates/t/honeyclient_util_config.t

    r521 r791  
    6969require_ok('Data::Dumper'); 
    7070use Data::Dumper; 
     71 
     72# Make sure Log::Dispatch::Syslog loads 
     73BEGIN { use_ok('Log::Dispatch::Syslog') 
     74        or diag("Can't load Log::Dispatch::Syslog package. Check to make sure the package library is correctly listed within the path."); } 
     75require_ok('Log::Dispatch::Syslog'); 
     76use Log::Dispatch::Syslog; 
    7177} 
    7278