From 1706437e5e4231739443e0fc8fd482e8ed268e73 Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Thu, 16 Apr 2015 21:16:35 +0200
Subject: Removed unused folder.

---
 sql/strip.pl | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100755 sql/strip.pl

(limited to 'sql')

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;
-		}
-	}
-}
-- 
cgit v1.2.3