X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FLogging%2FLogger.pm;h=e440d576c5de85dc70d0e3f29632de1c2508bb2b;hp=83e3a0e90a83e6b9497ddcf13c2b615a89821316;hb=466ee2c442ee6958e077a02c3c250245f06ad819;hpb=b43174a123aae89a1d3666ffd4d7b9d11ad4846c diff --git a/lib/Object/Remote/Logging/Logger.pm b/lib/Object/Remote/Logging/Logger.pm index 83e3a0e..e440d57 100644 --- a/lib/Object/Remote/Logging/Logger.pm +++ b/lib/Object/Remote/Logging/Logger.pm @@ -67,8 +67,9 @@ sub _create_format_lookup { '%' => '%', t => $self->_render_time($metadata->{timestamp}), r => $self->_render_remote($metadata->{object_remote}), s => $self->_render_log(@$content), l => $level, - p => $metadata->{package}, m => $method, - f => $metadata->{filename}, i => $metadata->{line}, + c => $metadata->{controller}, p => $metadata->{package}, m => $method, + f => $metadata->{filename}, i => $metadata->{line}, + h => $metadata->{hostname}, P => $metadata->{pid}, }; } @@ -77,7 +78,7 @@ sub _get_format_var_value { my ($self, $name, $data) = @_; my $val = $data->{$name}; return $val if defined $val; - return ''; + return '(undefined)'; } sub _render_time { @@ -100,7 +101,7 @@ sub _render { my $var_table = $self->_create_format_lookup($level, $metadata, [@content]); my $template = $self->format; - $template =~ s/%([\w])/$self->_get_format_var_value($1, $var_table)/ge; + $template =~ s/%([\w%])/$self->_get_format_var_value($1, $var_table)/ge; chomp($template); $template =~ s/\n/\n /g;