Changeset 409 for honeyclient/trunk/bin/StartAgent.pl
- Timestamp:
- 05/29/07 23:12:01 (1 year ago)
- Files:
-
- honeyclient/trunk/bin/StartAgent.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
honeyclient/trunk/bin/StartAgent.pl
r333 r409 7 7 use Carp (); 8 8 9 use HoneyClient::Util::Config qw(getVar); 9 10 use HoneyClient::Agent; 10 11 use HoneyClient::Util::SOAP qw(getClientHandle); … … 12 13 use MIME::Base64 qw(decode_base64 encode_base64); 13 14 use Storable qw(thaw nfreeze); 15 use Log::Log4perl qw(:easy); 16 17 # The global logging object. 18 our $LOG = get_logger(); 14 19 15 20 our ($stub, $som); … … 18 23 our $agentState = undef; 19 24 my $tempState = undef; 25 our $faultDetected = 0; 20 26 21 27 print "URL: " . $URL. "\n"; … … 35 41 } 36 42 37 print "Watchdog fault detected, recovering Agent daemon.\n"; 43 if (!$faultDetected) { 44 $LOG->error("Watchdog fault detected, recovering Agent daemon."); 45 $faultDetected = 1; 46 } 38 47 # XXX: Reenable this, eventually. 39 #Carp::carp __PACKAGE__ . "->_watchdogFaultHandler(): Error occurred during processing.\n" . $errMsg; 48 $LOG->error(__PACKAGE__ . "->_watchdogFaultHandler(): Error occurred during processing.\n" . $errMsg); 49 Carp::carp __PACKAGE__ . "->_watchdogFaultHandler(): Error occurred during processing.\n" . $errMsg; 40 50 41 51
