mirrors/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2024-11-19 09:50:29 +01:00
Code Issues Projects Releases Wiki Activity

r9021@Kushana: nickm | 2006-09-29 16:58:41 -0400

Browse Source 
Add a perl script and a make target to find and check for duplicate log messages at level notice or higher.


svn:r8539
This commit is contained in:
Nick Mathewson 2006-09-29 22:33:28 +00:00
parent 8058a60838
commit 174c3dc6b7
2 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile.am
View File

@ -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

45
contrib/checkLogs.pl Normal file
View File

@ -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";
}
}