hak5
/
wifipineapple-openwrt
mirror of https://github.com/hak5/wifipineapple-openwrt.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

clean linux kernel, when linux.config changes 

git-svn-id: svn://svn.openwrt.org/openwrt/trunk/openwrt@408 3c298f89-4303-0410-b956-a3cf2f4a3e73
master
Felix Fietkau 2005-03-21 14:27:53 +00:00
parent bf02e8a398
commit 485dbd728f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/configtest.pl
View File

@ -1,12 +1,26 @@
#!/usr/bin/perl #!/usr/bin/perl
my %change = ( my %change = (
'BUSYBOX' => 'make -C package busybox-clean', 'BUSYBOX' => 'make -C package busybox-clean',
'' => 'make target_clean' '' => 'make target_clean'
); );
my @configfiles = (
['package/linux/linux.config', 'build_mipsel/linux/.config' =>
'make -C package linux-clean']
);
foreach my $change (keys %change) { foreach my $change (keys %change) {
my $v1 = `grep '$change' .config.test`; my $v1 = `grep '$change' .config.test`;
my $v2 = `grep '$change' .config`; my $v2 = `grep '$change' .config`;
$v1 eq $v2 or system($change{$change}); $v1 eq $v2 or system($change{$change});
} }
foreach my $file (@configfiles) {
if ((-f $file->[0]) and (-f $file->[1])) {
my @s1 = stat $file->[0];
my @s2 = stat $file->[1];
$s1[9] > $s2[9] and system($file->[2]);
}
}