1 files changed, 0 insertions, 82 deletions
diff --git a/scripts/configcommon.pl b/scripts/configcommon.pl
deleted file mode 100644
index 38bbe80dc..000000000
--- a/scripts/configcommon.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-#! /usr/bin/perl
-
-my @args=@ARGV;
-my @configoptions;
-my @configvalues;
-my @common;
-my $configcounter = 0;
-
-# first, read the 1st file
-
-open (FILE,"$args[0]") || die "Could not open $args[0]";
-while (<FILE>) {
-	my $str = $_;
-	if (/\# ([\w]+) is not set/) {
-		$configoptions[$configcounter] = $1;
-		$configvalues[$configcounter] = $str;
-		$common[$configcounter] = 1;
-		$configcounter ++;
-	} else {
-		if (/([\w]+)=/) {
-			$configoptions[$configcounter] = $1;
-			$configvalues[$configcounter] = $str;
-			$common[$configcounter] = 1;
-			$configcounter ++;
-		} else {
-			$configoptions[$configcounter] = "foobarbar";
-			$configvalues[$configcounter] = $str;
-			$common[$configcounter] = 1;
-			$configcounter ++;
-		}
-	}
-};
-
-# now, read all configfiles and see of the options match the initial one.
-# if not, mark it not common
-my $cntr=1;
-
-
-while ($cntr < @ARGV) {
-	open (FILE,$args[$cntr]) || die "Could not open $args[$cntr]";	
-	while (<FILE>) {
-		my $nooutput;
-		my $counter;
-		my $configname;
-
-		if (/\# ([\w]+) is not set/) {
-			$configname = $1;
-		} else {
-			if (/([\w]+)=/) {
-				$configname  = $1;
-			} 
-		}
-
-		$counter = 0;
-		$nooutput = 0;
-		while ($counter < $configcounter) {	
-			if ("$configname" eq "$configoptions[$counter]") {	
-				if ("$_" eq "$configvalues[$counter]") {
-					1;
-				} else {
-					$common[$counter] = 0;
-				}
-			}
-			$counter++;
-		}
-	}
-
-	$cntr++;
-}
-
-# now print the common values
-my $counter = 0;
-
-while ($counter < $configcounter) {	
-	if ($common[$counter]!=0) {
-		print "$configvalues[$counter]";
-	}
-	$counter++;
-}
-
-1;
-