diff options
author | Laura Abbott <labbott@redhat.com> | 2019-12-02 14:20:39 -0500 |
---|---|---|
committer | Laura Abbott <labbott@redhat.com> | 2019-12-02 14:20:39 -0500 |
commit | aa92e83bbbe79026d32233778371a7fb1ed6c5d1 (patch) | |
tree | be65e1b3ee2a69000b351966717da4db6a614e6a /scripts/configcommon.pl | |
parent | 692398cecfb6f7dd8bd82ec2e30e828db7e7c7d4 (diff) | |
download | kernel-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/configcommon.pl')
-rw-r--r-- | scripts/configcommon.pl | 82 |
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; - |