2018-06-21 23:37:40 +02:00
|
|
|
#!/bin/sh
|
|
|
|
# We don't use printf's percent notation with our custom logging mechanism,
|
|
|
|
# so the compiler cannot check it for us like it usually does
|
2021-08-06 16:12:15 +02:00
|
|
|
perl -n0777 - "$(dirname "$0")"/xC.c <<-'END'
|
2018-06-21 23:37:40 +02:00
|
|
|
while (/\blog_[^ ]+\s*\([^"()]*"[^"]*%[^%][^"]*"/gm) {
|
|
|
|
my ($p, $m) = ($`, $&);
|
|
|
|
printf "$ARGV:%d: suspicious log format string: %s...\n",
|
|
|
|
(1 + $p =~ tr/\n//), ($m =~ s/\s+/ /rg);
|
|
|
|
$status = 1;
|
|
|
|
}
|
|
|
|
END {
|
|
|
|
exit $status;
|
|
|
|
}
|
|
|
|
END
|