projects
/
privoxy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FAQ: Spell 'liaison' correctly
[privoxy.git]
/
tools
/
privoxy-log-parser.pl
diff --git
a/tools/privoxy-log-parser.pl
b/tools/privoxy-log-parser.pl
index
a5ec2f1
..
175cd28
100755
(executable)
--- a/
tools/privoxy-log-parser.pl
+++ b/
tools/privoxy-log-parser.pl
@@
-8,7
+8,7
@@
#
# http://www.fabiankeil.de/sourcecode/privoxy-log-parser/
#
#
# http://www.fabiankeil.de/sourcecode/privoxy-log-parser/
#
-# $Id: privoxy-log-parser.pl,v 1.1
59 2013/01/16 16:30:16
fabiankeil Exp $
+# $Id: privoxy-log-parser.pl,v 1.1
61 2013/08/29 11:12:13
fabiankeil Exp $
#
# TODO:
# - LOG_LEVEL_CGI, LOG_LEVEL_ERROR, LOG_LEVEL_WRITE content highlighting
#
# TODO:
# - LOG_LEVEL_CGI, LOG_LEVEL_ERROR, LOG_LEVEL_WRITE content highlighting
@@
-646,7
+646,7
@@
sub highlight_request_line ($) {
$rl = h('invalid-request') . $rl . h('Standard');
$rl = h('invalid-request') . $rl . h('Standard');
- } elsif ($rl =~ m/^([-\w]+) (.*) (HTTP\/\d
\.\d
)/) {
+ } elsif ($rl =~ m/^([-\w]+) (.*) (HTTP\/\d
+\.\d+
)/) {
# XXX: might not match in case of HTTP method fuzzing.
# XXX: save these: ($method, $path, $http_version) = ($1, $2, $3);
# XXX: might not match in case of HTTP method fuzzing.
# XXX: save these: ($method, $path, $http_version) = ($1, $2, $3);
@@
-2426,7
+2426,7
@@
sub stats_loop () {
(undef, $time_stamp, $thread, $log_level, $content) = split(/ /, $_, 5);
# Skip LOG_LEVEL_CLF
(undef, $time_stamp, $thread, $log_level, $content) = split(/ /, $_, 5);
# Skip LOG_LEVEL_CLF
- next if (
$time_stamp eq "-" or not defined($log_level)
);
+ next if (
not defined($log_level) or $time_stamp eq "-"
);
if (defined($log_level_handlers{$log_level})) {
if (defined($log_level_handlers{$log_level})) {