1
0
mirror of git://projects.qi-hardware.com/openwrt-xburst.git synced 2024-12-11 13:18:25 +02:00
openwrt-xburst/openwrt/scripts/configtest.pl

28 lines
618 B
Perl
Raw Normal View History

#!/usr/bin/perl
my %change = (
'BUSYBOX' => 'make -C package busybox-clean',
'OPENVPN_' => 'make -C package openvpn-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]);
}
}