blob: 0e2fec66c57a6233c4d1ba866c99d531307f153d (
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
34
35
|
#!/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 $snmpv3 = 'SHA/<removed>/AES/<removed>';
my $skip = 0;
open (SQL, $ARGV[0]) or die "Unable to open SQL-file";
while (<SQL>) {
unless (/^$ignore$/){
if (/COPY (linknet_ping|ping|mbd_log|squeue|temppoll|ap_poll|polls)/){
$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
#s/$snmpv3/SHA\/<removed>\/AES\/<removed>/g; # snmpv3
print;
}
}
}
|
