X-Git-Url: http://git.ozo.com/?a=blobdiff_plain;f=scripts%2Fconfigtest.pl;h=289b2fecc099e83b9e6b87884540211636998850;hb=c5a86e2fbb0372968a597a395ea90cc26f8a1fcf;hp=61fe8a7b629bead1d21747ec86e421ae9de0b810;hpb=b7a5a29ecb22d80d8a68951f207967c8437dc2e1;p=openwrt-10.03%2F.git diff --git a/scripts/configtest.pl b/scripts/configtest.pl index 61fe8a7b6..289b2fecc 100755 --- a/scripts/configtest.pl +++ b/scripts/configtest.pl @@ -1,11 +1,35 @@ #!/usr/bin/perl +# +# Copyright (C) 2006 OpenWrt.org +# +# This is free software, licensed under the GNU General Public License v2. +# See /LICENSE for more information. +# my %change = ( - 'ROOTFS' => 'make linux-dirclean' + '^BUSYBOX' => 'make package/busybox-clean', + 'OPENVPN_' => 'make package/openvpn-clean', + 'SYSCONF_' => 'make package/base-files-clean 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) { my $v1 = `grep '$change' .config.test`; my $v2 = `grep '$change' .config`; $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]); + } +}