nihilist/tor
1
0
Fork 0
mirror of https://gitlab.torproject.org/tpo/core/tor.git synced 2024-11-24 04:13:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

r9022@Kushana: nickm | 2006-09-29 17:26:58 -0400

Browse Source 
Improve log-duplicate-checker to ignore LD_BUG messages.


svn:r8540
This commit is contained in:
Nick Mathewson 2006-09-29 22:33:31 +00:00
parent 174c3dc6b7
commit 9027491ae1
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
contrib/checkLogs.pl
View File

@ -8,30 +8,36 @@ my $last = "";
while (<>) {
if ($more) {
if (/\s*(?:LD_[A-Z]*,)?\"((?:[^\"\\]+|\\.*)+)\"(.*)/) {
if (/LD_BUG/) {
$more = 0;
next;
}
if (/\"((?:[^\"\\]+|\\.*)+)\"(.*)/) {
$last .= $1;
if ($2 !~ /[,\)]/) {
$more = 1;
} else {
$count{$last}++;
$count{lc $last}++;
$more = 0;
}
} elsif (/[,\)]/) {
$count{$last}++;
$count{lc $last}++;
$more = 0;
} elsif ($more == 2) {
print "SKIPPED more\n";
}
} elsif (/log_(?:warn|err|notice)\([^\"]*\"((?:[^\"\\]+|\\.)*)\"(.*)/) {
my $s = $1;
if ($2 =~ /[,\)]/ ) {
$count{$s}++;
} elsif (/log_(?:warn|err|notice)\(\s*(LD_[A-Z_]*)\s*,\s*\"((?:[^\"\\]+|\\.)*)\"(.*)/) {
next if ($1 eq 'LD_BUG');
my $s = $2;
if ($3 =~ /[,\)]/ ) {
$count{lc $s}++;
} else {
$more = 1;
$last = $s;
}
} elsif (/log_(?:warn|err|notice)\((?:LD_[A-Z]*,)?(.*)/) {
my $extra = $1;
} elsif (/log_(?:warn|err|notice)\(\s*((?:LD_[A-Z_]*)?)(.*)/) {
next if ($1 eq 'LD_BUG');
my $extra = $2;
chomp $extra;
$last = "";
$more = 2 if ($extra eq '');