summaryrefslogtreecommitdiffstats
path: root/scripts/configdiff.pl
diff options
context:
space:
mode:
authorLaura Abbott <labbott@redhat.com>2019-12-02 14:20:39 -0500
committerLaura Abbott <labbott@redhat.com>2019-12-02 14:20:39 -0500
commitaa92e83bbbe79026d32233778371a7fb1ed6c5d1 (patch)
treebe65e1b3ee2a69000b351966717da4db6a614e6a /scripts/configdiff.pl
parent692398cecfb6f7dd8bd82ec2e30e828db7e7c7d4 (diff)
downloadkernel-aa92e83bbbe79026d32233778371a7fb1ed6c5d1.tar.gz
kernel-aa92e83bbbe79026d32233778371a7fb1ed6c5d1.tar.xz
kernel-aa92e83bbbe79026d32233778371a7fb1ed6c5d1.zip
Delete a few more scripts
Most of these don't seem to have been used any time recently so just delete.
Diffstat (limited to 'scripts/configdiff.pl')
-rw-r--r--scripts/configdiff.pl76
1 files changed, 0 insertions, 76 deletions
diff --git a/scripts/configdiff.pl b/scripts/configdiff.pl
deleted file mode 100644
index 848d8df0f..000000000
--- a/scripts/configdiff.pl
+++ /dev/null
@@ -1,76 +0,0 @@
-#! /usr/bin/perl
-
-my @args=@ARGV;
-my @configoptions;
-my @configvalues;
-my @alreadyprinted;
-my $configcounter = 0;
-
-# first, read the override 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;
- $alreadprinted[$configcounter] = 0;
- $configcounter ++;
- } else {
- if (/([\w]+)=/) {
- $configoptions[$configcounter] = $1;
- $configvalues[$configcounter] = $str;
- $alreadprinted[$configcounter] = 0;
- $configcounter ++;
- } else {
- $configoptions[$configcounter] = "$_";
- $configvalues[$configcounter] = $str;
- $alreadprinted[$configcounter] = 0;
- $configcounter ++;
- }
- }
-};
-
-# now, read and output the entire configfile, except for the overridden
-# parts... for those the new value is printed.
-# O(N^2) algorithm so if this is slow I need to look at it later
-
-open (FILE2,"$args[1]") || die "Could not open $args[1]";
-while (<FILE2>) {
- my $nooutput;
- my $counter;
- my $configname="$_";
- my $match;
-
- if (/\# ([\w]+) is not set/) {
- $configname = $1;
- } else {
- if (/([\w]+)=/) {
- $configname = $1;
- }
- }
-
- $counter = 0;
- $nooutput = 0;
- $match = 0;
-# print "C : $configname";
- while ($counter < $configcounter) {
- if ("$configname" eq "$configoptions[$counter]") {
- if ( ("$_" eq "$configvalues[$counter]") || ("$configname" eq "") ) {
- $match = 1;
- } else {
- $alreadyprinted[$configcounter] = 1;
- print "$_";
- $match = 1;
- }
- }
- $counter++;
- }
- if ($match == 0) {
- print "$_";
- }
-
-}
-
-
-1;