aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoachim Tingvold <joachim@tingvold.com>2015-04-16 21:16:35 +0200
committerroot <root@wat.gathering.org>2015-04-16 21:16:35 +0200
commit1706437e5e4231739443e0fc8fd482e8ed268e73 (patch)
treef77924851bceb98d87694c2c5446cb7fc266c8bd
parentdf68d675e74633c1980838e8174e939dd4078f85 (diff)
Removed unused folder.
-rwxr-xr-xsql/strip.pl35
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;
- }
- }
-}