aboutsummaryrefslogtreecommitdiffstats
path: root/sql/strip.pl
diff options
context:
space:
mode:
authorKristian Lyngstol <kristian@bohemians.org>2015-04-20 12:29:32 +0200
committerKristian Lyngstol <kristian@bohemians.org>2015-04-20 12:29:32 +0200
commite22ca8f424d0c728b53ba7ce6536ca7ec0ef4620 (patch)
tree5d18e4f47fb96c3a18d4c4d6a70f4ba7248cd55e /sql/strip.pl
parent05d76e9ff287710aea72b6afcd61dc15589aeacf (diff)
parentc9c065a9ee373de78a8051324e56eb061585b004 (diff)
Merge branch 'master' of github.com:tech-server/tgmanage
Diffstat (limited to 'sql/strip.pl')
-rw-r--r--sql/strip.pl35
1 files changed, 0 insertions, 35 deletions
diff --git a/sql/strip.pl b/sql/strip.pl
deleted file mode 100644
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;
- }
- }
-}