Changeset 1463

Show
Ignore:
Timestamp:
04/04/08 22:49:58 (5 months ago)
Author:
kindlund
Message:

Almost finished.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r1461 r1463  
    788788# Output: The updated Clone $object, reflecting the status change 
    789789# of the clone VM.  Will croak if this operation fails. 
    790 # XXX: Should this be made public? 
    791790sub _changeStatus { 
    792791 
    …… 
    840839                } 
    841840 
    842                 # TODO: Need to implement this properly. 
    843841                $LOG->info("(" . $self->{'name'} . ") - Inserting Fingerprint Into Database."); 
    844842                # Make sure the fingerprint contains a client_id. 
    …… 
    866864} 
    867865 
    868 # XXX: Comment this. 
     866# If specified, dumps the supplied fingerprint information to 
     867# a corresponding file. 
    869868sub _dumpFingerprint { 
    870869 
    …… 
    879878        my $dump_file = new IO::File($COMPROMISE_FILE, "a"); 
    880879 
    881         # XXX: Delete this block, eventually. 
    882880        $Data::Dumper::Terse = 0; 
    883881        $Data::Dumper::Indent = 2; 
    884         print $dump_file "\$vmName = \"" . $self->{'name'} . "\";\n"; 
     882        print $dump_file "\$vm_name = \"" . $self->{'name'} . "\";\n"; 
    885883        print $dump_file Dumper($fingerprint); 
    886884        $dump_file->close(); 
    …… 
    13541352        my $cloneConfig = $clone->{config}; 
    13551353 
    1356 # TODO: Fix this. 
    13571354        $clone = $clone->drive(work => { 'http://www.google.com/' => 1 }); 
    13581355        isa_ok($clone, 'HoneyClient::Manager::VM::Clone', "drive(work => { 'http://www.google.com/' => 1})") or diag("The drive() call failed."); 
    …… 
    14111408    } 
    14121409 
    1413     # TODO: Add more. 
    14141410    my $som; 
    14151411    my $result; 
    …… 
    14361432 
    14371433# XXX: Delete this, eventually. 
    1438 print Dumper($result); 
     1434print Dumper($result) . "\n"; 
    14391435     
    14401436        # Figure out if there was a compromise found. 
    14411437        if (scalar(@{$result->{'fingerprint'}->{os_processes}})) { 
    14421438            $LOG->warn("(" . $self->{'name'} . ") - " . $self->{'driver_name'} . " - Integrity Check: FAILED"); 
    1443             # XXX: Test this. 
    14441439 
    14451440            # Dump the fingerprint to a file, if need be.