1dcc60243SSteven Rostedt#!/usr/bin/perl -w 2dcc60243SSteven Rostedt# 3dcc60243SSteven Rostedt# Copywrite 2005-2009 - Steven Rostedt 4dcc60243SSteven Rostedt# Licensed under the terms of the GNU GPL License version 2 5dcc60243SSteven Rostedt# 6dcc60243SSteven Rostedt# It's simple enough to figure out how this works. 7dcc60243SSteven Rostedt# If not, then you can ask me at stripconfig@goodmis.org 8dcc60243SSteven Rostedt# 9dcc60243SSteven Rostedt# What it does? 10dcc60243SSteven Rostedt# 11dcc60243SSteven Rostedt# If you have installed a Linux kernel from a distribution 12dcc60243SSteven Rostedt# that turns on way too many modules than you need, and 13dcc60243SSteven Rostedt# you only want the modules you use, then this program 14dcc60243SSteven Rostedt# is perfect for you. 15dcc60243SSteven Rostedt# 16dcc60243SSteven Rostedt# It gives you the ability to turn off all the modules that are 17dcc60243SSteven Rostedt# not loaded on your system. 18dcc60243SSteven Rostedt# 19dcc60243SSteven Rostedt# Howto: 20dcc60243SSteven Rostedt# 21dcc60243SSteven Rostedt# 1. Boot up the kernel that you want to stream line the config on. 22dcc60243SSteven Rostedt# 2. Change directory to the directory holding the source of the 23dcc60243SSteven Rostedt# kernel that you just booted. 24dcc60243SSteven Rostedt# 3. Copy the configuraton file to this directory as .config 25dcc60243SSteven Rostedt# 4. Have all your devices that you need modules for connected and 26dcc60243SSteven Rostedt# operational (make sure that their corresponding modules are loaded) 27dcc60243SSteven Rostedt# 5. Run this script redirecting the output to some other file 28dcc60243SSteven Rostedt# like config_strip. 29dcc60243SSteven Rostedt# 6. Back up your old config (if you want too). 30dcc60243SSteven Rostedt# 7. copy the config_strip file to .config 31dcc60243SSteven Rostedt# 8. Run "make oldconfig" 32dcc60243SSteven Rostedt# 33dcc60243SSteven Rostedt# Now your kernel is ready to be built with only the modules that 34dcc60243SSteven Rostedt# are loaded. 35dcc60243SSteven Rostedt# 36dcc60243SSteven Rostedt# Here's what I did with my Debian distribution. 37dcc60243SSteven Rostedt# 38dcc60243SSteven Rostedt# cd /usr/src/linux-2.6.10 39dcc60243SSteven Rostedt# cp /boot/config-2.6.10-1-686-smp .config 40dcc60243SSteven Rostedt# ~/bin/streamline_config > config_strip 41dcc60243SSteven Rostedt# mv .config config_sav 42dcc60243SSteven Rostedt# mv config_strip .config 43dcc60243SSteven Rostedt# make oldconfig 44dcc60243SSteven Rostedt# 45dcc60243SSteven Rostedtmy $config = ".config"; 46dcc60243SSteven Rostedt 47cdfc4795SSteven Rostedtmy $uname = `uname -r`; 48cdfc4795SSteven Rostedtchomp $uname; 49cdfc4795SSteven Rostedt 50cdfc4795SSteven Rostedtmy @searchconfigs = ( 51cdfc4795SSteven Rostedt { 52a9024838SSteven Rostedt "file" => ".config", 53a9024838SSteven Rostedt "exec" => "cat", 54a9024838SSteven Rostedt }, 55a9024838SSteven Rostedt { 56cdfc4795SSteven Rostedt "file" => "/proc/config.gz", 57cdfc4795SSteven Rostedt "exec" => "zcat", 58cdfc4795SSteven Rostedt }, 59cdfc4795SSteven Rostedt { 60810b2be6SSteven Rostedt "file" => "/boot/config-$uname", 61810b2be6SSteven Rostedt "exec" => "cat", 62810b2be6SSteven Rostedt }, 63810b2be6SSteven Rostedt { 64cdfc4795SSteven Rostedt "file" => "/boot/vmlinuz-$uname", 65cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 66cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 67cdfc4795SSteven Rostedt }, 68cdfc4795SSteven Rostedt { 69cdfc4795SSteven Rostedt "file" => "vmlinux", 70cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 71cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 72cdfc4795SSteven Rostedt }, 73cdfc4795SSteven Rostedt { 74cdfc4795SSteven Rostedt "file" => "/lib/modules/$uname/kernel/kernel/configs.ko", 75cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 76cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 77cdfc4795SSteven Rostedt }, 78cdfc4795SSteven Rostedt { 79cdfc4795SSteven Rostedt "file" => "kernel/configs.ko", 80cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 81cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 82cdfc4795SSteven Rostedt }, 83cdfc4795SSteven Rostedt { 84cdfc4795SSteven Rostedt "file" => "kernel/configs.o", 85cdfc4795SSteven Rostedt "exec" => "scripts/extract-ikconfig", 86cdfc4795SSteven Rostedt "test" => "scripts/extract-ikconfig", 87cdfc4795SSteven Rostedt }, 88cdfc4795SSteven Rostedt); 89cdfc4795SSteven Rostedt 90cdfc4795SSteven Rostedtsub find_config { 91cdfc4795SSteven Rostedt foreach my $conf (@searchconfigs) { 92cdfc4795SSteven Rostedt my $file = $conf->{"file"}; 93cdfc4795SSteven Rostedt 94cdfc4795SSteven Rostedt next if ( ! -f "$file"); 95cdfc4795SSteven Rostedt 96cdfc4795SSteven Rostedt if (defined($conf->{"test"})) { 97cdfc4795SSteven Rostedt `$conf->{"test"} $conf->{"file"} 2>/dev/null`; 98cdfc4795SSteven Rostedt next if ($?); 99cdfc4795SSteven Rostedt } 100cdfc4795SSteven Rostedt 101cdfc4795SSteven Rostedt my $exec = $conf->{"exec"}; 102cdfc4795SSteven Rostedt 103cdfc4795SSteven Rostedt print STDERR "using config: '$file'\n"; 104cdfc4795SSteven Rostedt 105cdfc4795SSteven Rostedt open(CIN, "$exec $file |") || die "Failed to run $exec $file"; 106cdfc4795SSteven Rostedt return; 107cdfc4795SSteven Rostedt } 108cdfc4795SSteven Rostedt die "No config file found"; 109cdfc4795SSteven Rostedt} 110cdfc4795SSteven Rostedt 111cdfc4795SSteven Rostedtfind_config; 112cdfc4795SSteven Rostedt 113463bf900SSteven Rostedt# Get the build source and top level Kconfig file (passed in) 114463bf900SSteven Rostedtmy $ksource = $ARGV[0]; 115463bf900SSteven Rostedtmy $kconfig = $ARGV[1]; 116*615f0833SSteven Rostedtmy $lsmod_file = $ARGV[2]; 117463bf900SSteven Rostedt 118463bf900SSteven Rostedtmy @makefiles = `find $ksource -name Makefile`; 119dcc60243SSteven Rostedtmy %depends; 120dcc60243SSteven Rostedtmy %selects; 121dcc60243SSteven Rostedtmy %prompts; 122dcc60243SSteven Rostedtmy %objects; 123dcc60243SSteven Rostedtmy $var; 124dcc60243SSteven Rostedtmy $cont = 0; 12513d7e938SSteven Rostedtmy $iflevel = 0; 12613d7e938SSteven Rostedtmy @ifdeps; 127dcc60243SSteven Rostedt 128dcc60243SSteven Rostedt# prevent recursion 129dcc60243SSteven Rostedtmy %read_kconfigs; 130dcc60243SSteven Rostedt 131dcc60243SSteven Rostedtsub read_kconfig { 132dcc60243SSteven Rostedt my ($kconfig) = @_; 133dcc60243SSteven Rostedt 134dcc60243SSteven Rostedt my $state = "NONE"; 135dcc60243SSteven Rostedt my $config; 136dcc60243SSteven Rostedt my @kconfigs; 137dcc60243SSteven Rostedt 138463bf900SSteven Rostedt open(KIN, "$ksource/$kconfig") || die "Can't open $kconfig"; 139dcc60243SSteven Rostedt while (<KIN>) { 140dcc60243SSteven Rostedt chomp; 141dcc60243SSteven Rostedt 142dcc60243SSteven Rostedt # collect any Kconfig sources 143dcc60243SSteven Rostedt if (/^source\s*"(.*)"/) { 144dcc60243SSteven Rostedt $kconfigs[$#kconfigs+1] = $1; 145dcc60243SSteven Rostedt } 146dcc60243SSteven Rostedt 147dcc60243SSteven Rostedt # configs found 148dcc60243SSteven Rostedt if (/^\s*config\s+(\S+)\s*$/) { 149dcc60243SSteven Rostedt $state = "NEW"; 150dcc60243SSteven Rostedt $config = $1; 151dcc60243SSteven Rostedt 15213d7e938SSteven Rostedt for (my $i = 0; $i < $iflevel; $i++) { 15313d7e938SSteven Rostedt if ($i) { 15413d7e938SSteven Rostedt $depends{$config} .= " " . $ifdeps[$i]; 15513d7e938SSteven Rostedt } else { 15613d7e938SSteven Rostedt $depends{$config} = $ifdeps[$i]; 15713d7e938SSteven Rostedt } 15813d7e938SSteven Rostedt $state = "DEP"; 15913d7e938SSteven Rostedt } 16013d7e938SSteven Rostedt 161dcc60243SSteven Rostedt # collect the depends for the config 162dcc60243SSteven Rostedt } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) { 163dcc60243SSteven Rostedt $state = "DEP"; 164dcc60243SSteven Rostedt $depends{$config} = $1; 165dcc60243SSteven Rostedt } elsif ($state eq "DEP" && /^\s*depends\s+on\s+(.*)$/) { 166dcc60243SSteven Rostedt $depends{$config} .= " " . $1; 167dcc60243SSteven Rostedt 168dcc60243SSteven Rostedt # Get the configs that select this config 169dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) { 170dcc60243SSteven Rostedt if (defined($selects{$1})) { 171dcc60243SSteven Rostedt $selects{$1} .= " " . $config; 172dcc60243SSteven Rostedt } else { 173dcc60243SSteven Rostedt $selects{$1} = $config; 174dcc60243SSteven Rostedt } 175dcc60243SSteven Rostedt 176dcc60243SSteven Rostedt # configs without prompts must be selected 177dcc60243SSteven Rostedt } elsif ($state ne "NONE" && /^\s*tristate\s\S/) { 178dcc60243SSteven Rostedt # note if the config has a prompt 179dcc60243SSteven Rostedt $prompt{$config} = 1; 180dcc60243SSteven Rostedt 18113d7e938SSteven Rostedt # Check for if statements 18213d7e938SSteven Rostedt } elsif (/^if\s+(.*\S)\s*$/) { 18313d7e938SSteven Rostedt my $deps = $1; 18413d7e938SSteven Rostedt # remove beginning and ending non text 18513d7e938SSteven Rostedt $deps =~ s/^[^a-zA-Z0-9_]*//; 18613d7e938SSteven Rostedt $deps =~ s/[^a-zA-Z0-9_]*$//; 18713d7e938SSteven Rostedt 18813d7e938SSteven Rostedt my @deps = split /[^a-zA-Z0-9_]+/, $deps; 18913d7e938SSteven Rostedt 19013d7e938SSteven Rostedt $ifdeps[$iflevel++] = join ':', @deps; 19113d7e938SSteven Rostedt 19213d7e938SSteven Rostedt } elsif (/^endif/) { 19313d7e938SSteven Rostedt 19413d7e938SSteven Rostedt $iflevel-- if ($iflevel); 19513d7e938SSteven Rostedt 196dcc60243SSteven Rostedt # stop on "help" 197dcc60243SSteven Rostedt } elsif (/^\s*help\s*$/) { 198dcc60243SSteven Rostedt $state = "NONE"; 199dcc60243SSteven Rostedt } 200dcc60243SSteven Rostedt } 201dcc60243SSteven Rostedt close(KIN); 202dcc60243SSteven Rostedt 203dcc60243SSteven Rostedt # read in any configs that were found. 204dcc60243SSteven Rostedt foreach $kconfig (@kconfigs) { 205dcc60243SSteven Rostedt if (!defined($read_kconfigs{$kconfig})) { 206dcc60243SSteven Rostedt $read_kconfigs{$kconfig} = 1; 207dcc60243SSteven Rostedt read_kconfig($kconfig); 208dcc60243SSteven Rostedt } 209dcc60243SSteven Rostedt } 210dcc60243SSteven Rostedt} 211dcc60243SSteven Rostedt 212dcc60243SSteven Rostedtif ($kconfig) { 213dcc60243SSteven Rostedt read_kconfig($kconfig); 214dcc60243SSteven Rostedt} 215dcc60243SSteven Rostedt 216dcc60243SSteven Rostedt# Read all Makefiles to map the configs to the objects 217dcc60243SSteven Rostedtforeach my $makefile (@makefiles) { 218dcc60243SSteven Rostedt chomp $makefile; 219dcc60243SSteven Rostedt 220dcc60243SSteven Rostedt open(MIN,$makefile) || die "Can't open $makefile"; 221dcc60243SSteven Rostedt while (<MIN>) { 222dcc60243SSteven Rostedt my $objs; 223dcc60243SSteven Rostedt 224dcc60243SSteven Rostedt # is this a line after a line with a backslash? 225dcc60243SSteven Rostedt if ($cont && /(\S.*)$/) { 226dcc60243SSteven Rostedt $objs = $1; 227dcc60243SSteven Rostedt } 228dcc60243SSteven Rostedt $cont = 0; 229dcc60243SSteven Rostedt 230dcc60243SSteven Rostedt # collect objects after obj-$(CONFIG_FOO_BAR) 231dcc60243SSteven Rostedt if (/obj-\$\((CONFIG_[^\)]*)\)\s*[+:]?=\s*(.*)/) { 232dcc60243SSteven Rostedt $var = $1; 233dcc60243SSteven Rostedt $objs = $2; 234dcc60243SSteven Rostedt } 235dcc60243SSteven Rostedt if (defined($objs)) { 236dcc60243SSteven Rostedt # test if the line ends with a backslash 237dcc60243SSteven Rostedt if ($objs =~ m,(.*)\\$,) { 238dcc60243SSteven Rostedt $objs = $1; 239dcc60243SSteven Rostedt $cont = 1; 240dcc60243SSteven Rostedt } 241dcc60243SSteven Rostedt 242dcc60243SSteven Rostedt foreach my $obj (split /\s+/,$objs) { 243dcc60243SSteven Rostedt $obj =~ s/-/_/g; 244dcc60243SSteven Rostedt if ($obj =~ /(.*)\.o$/) { 245dcc60243SSteven Rostedt # Objects may bes enabled by more than one config. 246dcc60243SSteven Rostedt # Store configs in an array. 247dcc60243SSteven Rostedt my @arr; 248dcc60243SSteven Rostedt 249dcc60243SSteven Rostedt if (defined($objects{$1})) { 250dcc60243SSteven Rostedt @arr = @{$objects{$1}}; 251dcc60243SSteven Rostedt } 252dcc60243SSteven Rostedt 253dcc60243SSteven Rostedt $arr[$#arr+1] = $var; 254dcc60243SSteven Rostedt 255dcc60243SSteven Rostedt # The objects have a hash mapping to a reference 256dcc60243SSteven Rostedt # of an array of configs. 257dcc60243SSteven Rostedt $objects{$1} = \@arr; 258dcc60243SSteven Rostedt } 259dcc60243SSteven Rostedt } 260dcc60243SSteven Rostedt } 261dcc60243SSteven Rostedt } 262dcc60243SSteven Rostedt close(MIN); 263dcc60243SSteven Rostedt} 264dcc60243SSteven Rostedt 265dcc60243SSteven Rostedtmy %modules; 266dcc60243SSteven Rostedt 267*615f0833SSteven Rostedtif (defined($lsmod_file)) { 268*615f0833SSteven Rostedt if ( ! -f $lsmod_file) { 269*615f0833SSteven Rostedt die "$lsmod_file not found"; 270*615f0833SSteven Rostedt } 271*615f0833SSteven Rostedt if ( -x $lsmod_file) { 272*615f0833SSteven Rostedt # the file is executable, run it 273*615f0833SSteven Rostedt open(LIN, "$lsmod_file|"); 274*615f0833SSteven Rostedt } else { 275*615f0833SSteven Rostedt # Just read the contents 276*615f0833SSteven Rostedt open(LIN, "$lsmod_file"); 277*615f0833SSteven Rostedt } 278*615f0833SSteven Rostedt} else { 279*615f0833SSteven Rostedt 280dcc60243SSteven Rostedt # see what modules are loaded on this system 28188f66ea9SSteven Rostedt my $lsmod; 28288f66ea9SSteven Rostedt 28388f66ea9SSteven Rostedt foreach $dir ( ("/sbin", "/bin", "/usr/sbin", "/usr/bin") ) { 28488f66ea9SSteven Rostedt if ( -x "$dir/lsmod" ) { 28588f66ea9SSteven Rostedt $lsmod = "$dir/lsmod"; 28688f66ea9SSteven Rostedt last; 28788f66ea9SSteven Rostedt } 28888f66ea9SSteven Rostedt} 28988f66ea9SSteven Rostedt if (!defined($lsmod)) { 29088f66ea9SSteven Rostedt # try just the path 29188f66ea9SSteven Rostedt $lsmod = "lsmod"; 29288f66ea9SSteven Rostedt } 29388f66ea9SSteven Rostedt 29488f66ea9SSteven Rostedt open(LIN,"$lsmod|") || die "Can not call lsmod with $lsmod"; 295*615f0833SSteven Rostedt} 296*615f0833SSteven Rostedt 297dcc60243SSteven Rostedtwhile (<LIN>) { 298dcc60243SSteven Rostedt next if (/^Module/); # Skip the first line. 299dcc60243SSteven Rostedt if (/^(\S+)/) { 300dcc60243SSteven Rostedt $modules{$1} = 1; 301dcc60243SSteven Rostedt } 302dcc60243SSteven Rostedt} 303dcc60243SSteven Rostedtclose (LIN); 304dcc60243SSteven Rostedt 305dcc60243SSteven Rostedt# add to the configs hash all configs that are needed to enable 306dcc60243SSteven Rostedt# a loaded module. 307dcc60243SSteven Rostedtmy %configs; 308dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 309dcc60243SSteven Rostedt if (defined($objects{$module})) { 310dcc60243SSteven Rostedt @arr = @{$objects{$module}}; 311dcc60243SSteven Rostedt foreach my $conf (@arr) { 312dcc60243SSteven Rostedt $configs{$conf} = $module; 313dcc60243SSteven Rostedt } 314dcc60243SSteven Rostedt } else { 315dcc60243SSteven Rostedt # Most likely, someone has a custom (binary?) module loaded. 316dcc60243SSteven Rostedt print STDERR "$module config not found!!\n"; 317dcc60243SSteven Rostedt } 318dcc60243SSteven Rostedt} 319dcc60243SSteven Rostedt 320dcc60243SSteven Rostedtmy $valid = "A-Za-z_0-9"; 321dcc60243SSteven Rostedtmy $repeat = 1; 322dcc60243SSteven Rostedt 323dcc60243SSteven Rostedt# 324dcc60243SSteven Rostedt# Note, we do not care about operands (like: &&, ||, !) we want to add any 325dcc60243SSteven Rostedt# config that is in the depend list of another config. This script does 326dcc60243SSteven Rostedt# not enable configs that are not already enabled. If we come across a 327dcc60243SSteven Rostedt# config A that depends on !B, we can still add B to the list of depends 328dcc60243SSteven Rostedt# to keep on. If A was on in the original config, B would not have been 329dcc60243SSteven Rostedt# and B would not be turned on by this script. 330dcc60243SSteven Rostedt# 331dcc60243SSteven Rostedtsub parse_config_dep_select 332dcc60243SSteven Rostedt{ 333dcc60243SSteven Rostedt my ($p) = @_; 334dcc60243SSteven Rostedt 335dcc60243SSteven Rostedt while ($p =~ /[$valid]/) { 336dcc60243SSteven Rostedt 337dcc60243SSteven Rostedt if ($p =~ /^[^$valid]*([$valid]+)/) { 338dcc60243SSteven Rostedt my $conf = "CONFIG_" . $1; 339dcc60243SSteven Rostedt 340dcc60243SSteven Rostedt $p =~ s/^[^$valid]*[$valid]+//; 341dcc60243SSteven Rostedt 342dcc60243SSteven Rostedt if (!defined($configs{$conf})) { 343dcc60243SSteven Rostedt # We must make sure that this config has its 344dcc60243SSteven Rostedt # dependencies met. 345dcc60243SSteven Rostedt $repeat = 1; # do again 346dcc60243SSteven Rostedt $configs{$conf} = 1; 347dcc60243SSteven Rostedt } 348dcc60243SSteven Rostedt } else { 349dcc60243SSteven Rostedt die "this should never happen"; 350dcc60243SSteven Rostedt } 351dcc60243SSteven Rostedt } 352dcc60243SSteven Rostedt} 353dcc60243SSteven Rostedt 354dcc60243SSteven Rostedtwhile ($repeat) { 355dcc60243SSteven Rostedt $repeat = 0; 356dcc60243SSteven Rostedt 357dcc60243SSteven Rostedt foreach my $config (keys %configs) { 358dcc60243SSteven Rostedt $config =~ s/^CONFIG_//; 359dcc60243SSteven Rostedt 36074398d32SSteven Rostedt if (defined($depends{$config})) { 361dcc60243SSteven Rostedt # This config has dependencies. Make sure they are also included 362dcc60243SSteven Rostedt parse_config_dep_select $depends{$config}; 36374398d32SSteven Rostedt } 364dcc60243SSteven Rostedt 365dcc60243SSteven Rostedt if (defined($prompt{$config}) || !defined($selects{$config})) { 366dcc60243SSteven Rostedt next; 367dcc60243SSteven Rostedt } 368dcc60243SSteven Rostedt 369dcc60243SSteven Rostedt # config has no prompt and must be selected. 370dcc60243SSteven Rostedt parse_config_dep_select $selects{$config}; 371dcc60243SSteven Rostedt } 372dcc60243SSteven Rostedt} 373dcc60243SSteven Rostedt 374dcc60243SSteven Rostedtmy %setconfigs; 375dcc60243SSteven Rostedt 376dcc60243SSteven Rostedt# Finally, read the .config file and turn off any module enabled that 377dcc60243SSteven Rostedt# we could not find a reason to keep enabled. 378dcc60243SSteven Rostedtwhile(<CIN>) { 379744ffcbeSSteven Rostedt 380744ffcbeSSteven Rostedt if (/CONFIG_IKCONFIG/) { 381744ffcbeSSteven Rostedt if (/# CONFIG_IKCONFIG is not set/) { 382744ffcbeSSteven Rostedt # enable IKCONFIG at least as a module 383744ffcbeSSteven Rostedt print "CONFIG_IKCONFIG=m\n"; 384744ffcbeSSteven Rostedt # don't ask about PROC 385d08ca277SSteven Rostedt print "# CONFIG_IKCONFIG_PROC is not set\n"; 386744ffcbeSSteven Rostedt } else { 387744ffcbeSSteven Rostedt print; 388744ffcbeSSteven Rostedt } 389744ffcbeSSteven Rostedt next; 390744ffcbeSSteven Rostedt } 391744ffcbeSSteven Rostedt 392ea2c1894SSteven Rostedt if (/^(CONFIG.*)=(m|y)/) { 393dcc60243SSteven Rostedt if (defined($configs{$1})) { 394ea2c1894SSteven Rostedt $setconfigs{$1} = $2; 395ea2c1894SSteven Rostedt } elsif ($2 eq "m") { 396dcc60243SSteven Rostedt print "# $1 is not set\n"; 397d08ca277SSteven Rostedt next; 398dcc60243SSteven Rostedt } 399dcc60243SSteven Rostedt } 400d08ca277SSteven Rostedt print; 401dcc60243SSteven Rostedt} 402dcc60243SSteven Rostedtclose(CIN); 403dcc60243SSteven Rostedt 404dcc60243SSteven Rostedt# Integrity check, make sure all modules that we want enabled do 405dcc60243SSteven Rostedt# indeed have their configs set. 406dcc60243SSteven Rostedtloop: 407dcc60243SSteven Rostedtforeach my $module (keys(%modules)) { 408dcc60243SSteven Rostedt if (defined($objects{$module})) { 409dcc60243SSteven Rostedt my @arr = @{$objects{$module}}; 410dcc60243SSteven Rostedt foreach my $conf (@arr) { 411dcc60243SSteven Rostedt if (defined($setconfigs{$conf})) { 412dcc60243SSteven Rostedt next loop; 413dcc60243SSteven Rostedt } 414dcc60243SSteven Rostedt } 415dcc60243SSteven Rostedt print STDERR "module $module did not have configs"; 416dcc60243SSteven Rostedt foreach my $conf (@arr) { 417dcc60243SSteven Rostedt print STDERR " " , $conf; 418dcc60243SSteven Rostedt } 419dcc60243SSteven Rostedt print STDERR "\n"; 420dcc60243SSteven Rostedt } 421dcc60243SSteven Rostedt} 422