Changeset 23675

Timestamp:

Apr 2, 2009, 11:19:29 AM (17 years ago)

Author:

jhoblitt

Message:

add email logging of events to nebdiskd

Location:

trunk/Nebulous-Server

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• bin/nebdiskd (modified) (2 diffs)

trunk/Nebulous-Server/Build.PL

@@ -24 +24 @@
         'Filesys::Df'           => '0.92',
         'Log::Log4perl'         => '0.48',
+        'Log::Dispatch::Email::MailSend' => 0,
         'Net::Server::Daemonize'=> '0.05',
         'Params::Validate'      => '0.73',

trunk/Nebulous-Server/Changes

@@ -6 +6 @@
     - base the on disk directory hashing of files only on the dirname()
       component of keys
-
+    - add email logging of events to nebdiskd
+      
 0.16
     - add so_id/name idxs to storage_object_xattr table

trunk/Nebulous-Server/bin/nebdiskd

@@ -87 +87 @@
 
 # start up logging
-my $conf =<<END;
-    log4perl.category.nebdiskd = WARN, Screen, SERVERLOGFILE
+my $conf = '
+    log4perl.category.nebdiskd = WARN, Screen, SERVERLOGFILE, Mailer
 
     log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
     log4perl.appender.Screen.stderr = 1
     log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
-    log4perl.appender.Screen.layout.ConversionPattern = %d | %H | %p | %M - %m%n
+    log4perl.appender.Screen.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
 
     log4perl.appender.SERVERLOGFILE           = Log::Log4perl::Appender::File
@@ -100 +100 @@
     log4perl.appender.SERVERLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout
     log4perl.appender.SERVERLOGFILE.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
-END
+
+    log4perl.filter.MatchWarn  = Log::Log4perl::Filter::LevelMatch
+    log4perl.filter.MatchWarn.LevelToMatch  = WARN
+    log4perl.filter.MatchWarn.AcceptOnMatch = off
+
+    log4perl.appender.Mailer         = Log::Dispatch::Email::MailSend
+    log4perl.appender.Mailer.to      = ps-ipp-ops@ifa.hawaii.edu
+    log4perl.appender.Mailer.subject = nebdiskd alert
+    log4perl.appender.AppError.Filter= MatchWarn
+    log4perl.appender.Mailer.layout = Log::Log4perl::Layout::PatternLayout
+    log4perl.appender.Mailer.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
+';
 Log::Log4perl::init(\$conf);
 my $log = Log::Log4perl::get_logger("nebdiskd");