Changeset 401

Timestamp:

05/29/07 16:48:00 (1 year ago)

Author:

kindlund

Message:

Updated manager syslog support.

Files:

• honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Agent/Driver/Browser.pm (modified) (2 diffs)
• honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Agent/Integrity/Filesystem.pm (modified) (1 prop)
• honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Agent/Integrity/Registry.pm (modified) (1 diff)
• honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Manager.pm (modified) (6 diffs)

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

@@ -234 +234 @@
-# TODO: Need unit testing.
-use URI::URL;
+
+# Include Logging Library
+use Log::Log4perl qw(:easy);
+
+# The global logging object.
+our $LOG = get_logger();
-
-=pod
@@ -1025 +1031 @@
-    if ($self->_remaining_number_of_relative_links_to_visit == 1) {
-
-elete this, eventually.
-print "Resetting relative links to visit counter.\n"
+o we need this message in here?
+$LOG->info("Resetting relative links to visit counter.")
-
-        # The counter has reached one, so drop all other relative links

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

@@ -432 +432 @@
-            $fname = $parser->getFilename();
-            if (defined($fname) && (-f $fname)) {
-
-
+
-                            $fname . "'.");
-                if (!unlink($fname)) {

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

@@ -194 +194 @@
-use IO::File;
-
+# TODO: Include unit tests.
+# Include Logging Library
+use Log::Log4perl qw(:easy);
+
+# The global logging object.
+our $LOG = get_logger();
+
-# Complete URL of SOAP server, when initialized.
-our $URL_BASE       : shared = undef;
@@ -318 +325 @@
-    }
-
+    $LOG->warn(__PACKAGE__ . "->_handleFault(): Error occurred during processing.\n" . $errMsg);
-    Carp::carp __PACKAGE__ . "->_handleFault(): Error occurred during processing.\n" . $errMsg;
-}
@@ -335 +343 @@
-sub _cleanup {
-
-print "Cleaning up...\n"
+$LOG->info("Cleaning up.")
-
-    # Mask all possible signals, so that we don't call this function multiple times.
@@ -368 +376 @@
-        # of cleanup up the clones.
-        HoneyClient::Manager::VM->init();
-print "Calling suspendVM(config => $vmCloneConfig)...\n"
+$LOG->info("Calling suspendVM(config => " . $vmCloneConfig . ").")
-        my $stubVM = getClientHandle(namespace     => "HoneyClient::Manager::VM");
-        $stubVM->suspendVM(config => $vmCloneConfig);
@@ -378 +386 @@
-    if (length($STATE_FILE) > 0 &&
-        defined($globalAgentState)) {
-print "Saving state to '" . $STATE_FILE . "'...\n"
+$LOG->info("Saving state to '" . $STATE_FILE . "'.")
-        my $dump_file = new IO::File($STATE_FILE, "w");
-
@@ -592 +600 @@
-        }
-    }
+
+    $LOG->info("Created clone '" . $vmName . "' using IP (" . $vmIP . ") and MAC (" . $vmMAC . ").");
-
-    # Build our VM's connection table.