openwrt/scripts/configtest.pl

   1 #!/usr/bin/perl
   2 my %change = (
   3         '^BUSYBOX' => 'make package/busybox-clean',
   4         'OPENVPN_' => 'make package/openvpn-clean',
   5         'SYSCONF_' => 'make package/base-files-clean target_clean',
   6         '' => 'make target_clean'
   7 );
   8
   9 my @configfiles = (
  10 #       ['package/linux/linux.config', 'build_mipsel/linux/.config' =>
  11 #               'make -C package linux-clean']
  12 );
  13
  14
  15
  16 foreach my $change (keys %change) {
  17         my $v1 = `grep '$change' .config.test`;
  18         my $v2 = `grep '$change' .config`;
  19         $v1 eq $v2 or system($change{$change});
  20 }
  21
  22 foreach my $file (@configfiles) {
  23         if ((-f $file->[0]) and (-f $file->[1])) {
  24                 my @s1 = stat $file->[0];
  25                 my @s2 = stat $file->[1];
  26                 $s1[9] > $s2[9] and system($file->[2]);
  27         }
  28 }