diff options
Diffstat (limited to 'sql/strip.pl')
| -rwxr-xr-x | sql/strip.pl | 35 | 
1 files changed, 0 insertions, 35 deletions
diff --git a/sql/strip.pl b/sql/strip.pl deleted file mode 100755 index 1402130..0000000 --- a/sql/strip.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/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|dhcp|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 -			s/$snmpv3/SHA\/<removed>\/AES\/<removed>/g; # snmpv3 -			print; -		} -	} -}  | 
