RT#38217: Send email when logging conditions are met

[freeside.git] / FS / FS / Log.pm

diff --git a/FS/FS/Log.pm b/FS/FS/Log.pm
index b11630b..9d6ce6a 100644 (file)
--- a/FS/FS/Log.pm
+++ b/FS/FS/Log.pm
@@ -9,7 +9,7 @@ use vars qw(@STACK @LEVELS);
 
 # override the stringification of @_ with something more sensible.
 BEGIN {
-  @LEVELS = qw(debug info notice warning error critical alert emergency);
+  @LEVELS = qw(debug info warning error critical);
 
   foreach my $l (@LEVELS) {
     my $sub = sub {
@@ -49,7 +49,7 @@ to the database.  FS::Log inherits from L<Log::Dispatch>.
 
 =over 4
 
-new CONTEXT
+=item new CONTEXT
 
 Constructs and returns a log handle.  CONTEXT must be a known context tag
 indicating what activity is going on, such as the name of the function or