Index: /trunk/Nebulous-Server/Build.PL
===================================================================
--- /trunk/Nebulous-Server/Build.PL	(revision 23674)
+++ /trunk/Nebulous-Server/Build.PL	(revision 23675)
@@ -24,4 +24,5 @@
         'Filesys::Df'           => '0.92',
         'Log::Log4perl'         => '0.48',
+        'Log::Dispatch::Email::MailSend' => 0,
         'Net::Server::Daemonize'=> '0.05',
         'Params::Validate'      => '0.73',
Index: /trunk/Nebulous-Server/Changes
===================================================================
--- /trunk/Nebulous-Server/Changes	(revision 23674)
+++ /trunk/Nebulous-Server/Changes	(revision 23675)
@@ -6,5 +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
Index: /trunk/Nebulous-Server/bin/nebdiskd
===================================================================
--- /trunk/Nebulous-Server/bin/nebdiskd	(revision 23674)
+++ /trunk/Nebulous-Server/bin/nebdiskd	(revision 23675)
@@ -87,11 +87,11 @@
 
 # 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,5 +100,16 @@
     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");