blob: 51739a61a9819a163522b33c256bd251aa907898 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use warnings;
use strict;
my $ignore = "((([0-9a-f]{2}[:]){5}[0-9a-f]{2})|";
$ignore .= "([0-9]{4}\-[0-9]{2}\-[0-9]{2} [0-9]{2}\:[0-9]{2}\:[0-9]{2})";
$ignore .= ").*";
my $community = "<removed>";
my $skip = 0;
open (SQL, $ARGV[0]) or die "Unable to open SQL-file";
while (<SQL>) {
unless (/^$ignore$/){
if (/COPY (mbd_log|squeue|temppoll|ap_poll)/){
$skip = 1;
print;
}
if (/\\\./){
$skip = 0;
}
unless ($skip){
s/$community/<removed>/g; # community
s/PASSWORD '.+'/PASSWORD '<removed>'/g; # password for SQL-users
s/public$/<removed>/; # public-community -- assuming last column
print;
}
}
}
|
