[Jifty-commit] r1776 - jifty/trunk/plugins/EmailErrors/lib/Jifty/Plugin/EmailErrors/Notification

[jifty-commit at lists.jifty.org]

Author: nelhage
Date: Mon Aug  7 15:03:22 2006
New Revision: 1776

Modified:
   jifty/trunk/plugins/EmailErrors/lib/Jifty/Plugin/EmailErrors/Notification/EmailError.pm

Log:
Adding information about the environment to the EmailErrors plugin

Modified: jifty/trunk/plugins/EmailErrors/lib/Jifty/Plugin/EmailErrors/Notification/EmailError.pm
==============================================================================
--- jifty/trunk/plugins/EmailErrors/lib/Jifty/Plugin/EmailErrors/Notification/EmailError.pm	(original)
+++ jifty/trunk/plugins/EmailErrors/lib/Jifty/Plugin/EmailErrors/Notification/EmailError.pm	Mon Aug  7 15:03:22 2006
@@ -27,7 +27,22 @@
         next if $frame->filename =~ m{/HTML/Mason/};
         $body .= "  ".$frame->filename.", line ".$frame->line."\n";
     }
+
+    $body .= "\n\n";
+    $body .= $self->get_environment;
+    
     $self->body($body);
 }
 
+sub get_environment {
+    my $self = shift;
+    my $message = '';
+
+    $message = "Environment:\n\n";
+    $message   .= " $_: $ENV{$_}\n"
+      for sort grep {/^(HTTP|REMOTE|REQUEST)_/} keys %ENV;
+
+    return $message;
+}
+
 1;