mirror of
git://projects.qi-hardware.com/openwrt-xburst.git
synced 2024-12-29 20:54:36 +02:00
629b5c0767
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@1519 3c298f89-4303-0410-b956-a3cf2f4a3e73
29 lines
675 B
Perl
Executable File
29 lines
675 B
Perl
Executable File
#!/usr/bin/perl
|
|
my %change = (
|
|
'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]);
|
|
}
|
|
}
|