[log4perl-devel] place severity in email subject?

[Mark B. <md...@ji...>]

Is there a relatively simple way to insert the message severity into
the Log::Dispatch::Email appender?

For example, we want $log->debug("foo") to send an email with the
subject line "$0: [DEBUG] log email", $log->warn("bar") to have the
subject "$0: [WARN] log email", etc. 

Currently, the recipient of the email is forced to read the body of
the message to learn its severity. 

Thanks.

P.S. I know, suppressing the email of DEBUG and INFO messages via
     threshold may be more desirable, but that is an ongoing debate
     in our group.