diff options
| -rw-r--r-- | Makefile.am | 3 | ||||
| -rw-r--r-- | contrib/checkLogs.pl | 45 |
2 files changed, 48 insertions, 0 deletions
diff --git a/Makefile.am b/Makefile.am index e6c491e42..ace32946d 100644 --- a/Makefile.am +++ b/Makefile.am @@ -63,3 +63,6 @@ check-spaces: src/common/[^as]*.c \ src/or/[^et]*.[ch] src/or/t*.c src/or/eventdns_tor.h +check-logs: + ./contrib/checkLogs.pl \ + src/*/*.[ch] | sort -n diff --git a/contrib/checkLogs.pl b/contrib/checkLogs.pl new file mode 100644 index 000000000..9a5e287f5 --- /dev/null +++ b/contrib/checkLogs.pl @@ -0,0 +1,45 @@ +#!/usr/bin/perl -w + +use strict; + +my %count = (); +my $more = 0; +my $last = ""; + +while (<>) { + if ($more) { + if (/\s*(?:LD_[A-Z]*,)?\"((?:[^\"\\]+|\\.*)+)\"(.*)/) { + $last .= $1; + if ($2 !~ /[,\)]/) { + $more = 1; + } else { + $count{$last}++; + $more = 0; + } + } elsif (/[,\)]/) { + $count{$last}++; + $more = 0; + } elsif ($more == 2) { + print "SKIPPED more\n"; + } + } elsif (/log_(?:warn|err|notice)\([^\"]*\"((?:[^\"\\]+|\\.)*)\"(.*)/) { + my $s = $1; + if ($2 =~ /[,\)]/ ) { + $count{$s}++; + } else { + $more = 1; + $last = $s; + } + } elsif (/log_(?:warn|err|notice)\((?:LD_[A-Z]*,)?(.*)/) { + my $extra = $1; + chomp $extra; + $last = ""; + $more = 2 if ($extra eq ''); + } +} + +while ((my $phrase, my $count) = each %count) { + if ($count > 1) { + print "$count\t$phrase\n"; + } +} |