openwrt/scripts/configtest.pl

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