mirror of
https://github.com/gnuton/asuswrt-merlin.ng.git
synced 2025-05-17 23:11:34 +02:00
56 lines
1.3 KiB
Perl
Executable file
56 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
sub append_gpl_excludes
|
|
{
|
|
my $fexclude;
|
|
my $uc_model;
|
|
my $uc_modeldir;
|
|
|
|
$uc_model=uc($_[0]);
|
|
$uc_modeldir=$_[1];
|
|
|
|
system("touch ./.gpl_excludes.sysdeps");
|
|
open($fexclude, ">./.gpl_excludes.sysdeps");
|
|
|
|
# exclude useless wireless binary
|
|
if (opendir(DIR, "./wl/sysdeps")) {
|
|
while (my $file = readdir(DIR)) {
|
|
if ( $file ne "$uc_model" && $file ne "." && $file ne ".." && $file ne "default" ) {
|
|
if ( -l "./wl/sysdeps/$uc_model" ) {
|
|
$linkto=readlink("./wl/sysdeps/$uc_model");
|
|
if ( "${file}" ne "$linkto" ) {
|
|
print "not link to $file $linkto\n";
|
|
print $fexclude "${uc_modeldir}/wl/sysdeps/$file\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print $fexclude "${uc_modeldir}/wl/sysdeps/$file\n";
|
|
}
|
|
}
|
|
}
|
|
close(DIR);
|
|
}
|
|
|
|
print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/sys\n";
|
|
print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/config\n";
|
|
print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/clm\n";
|
|
|
|
# cross exclude broadcom related path
|
|
if (${uc_modeldir} eq "release/src-rt") {
|
|
print $fexclude "release/src-rt-6.x/wl/sysdeps\n";
|
|
}
|
|
if (${uc_modeldir} eq "release/src-rt-6.x") {
|
|
print $fexclude "release/src-rt/wl/sysdeps\n";
|
|
}
|
|
|
|
close($fexclude);
|
|
}
|
|
|
|
if ( @ARGV >= 2 ) {
|
|
append_gpl_excludes($ARGV[0], $ARGV[1]);
|
|
}
|
|
else {
|
|
print "usage: .gpl_excludes.pl [model] [modeldir]\n";
|
|
}
|
|
|