1#!/usr/bin/perl 2 3sub append_gpl_excludes 4{ 5 my $fexclude; 6 my $uc_model; 7 my $uc_modeldir; 8 9 $uc_model=uc($_[0]); 10 $uc_modeldir=$_[1]; 11 12 system("touch ./.gpl_excludes.sysdeps"); 13 open($fexclude, ">./.gpl_excludes.sysdeps"); 14 15 # exclude useless wireless binary 16 if (opendir(DIR, "./wl/sysdeps")) { 17 while (my $file = readdir(DIR)) { 18 if ( $file ne "$uc_model" && $file ne "." && $file ne ".." && $file ne "default" ) { 19 if ( -l "./wl/sysdeps/$uc_model" ) { 20 $linkto=readlink("./wl/sysdeps/$uc_model"); 21 if ( "${file}" ne "$linkto" ) { 22 print "not link to $file $linkto\n"; 23 print $fexclude "${uc_modeldir}/wl/sysdeps/$file\n"; 24 } 25 } 26 else 27 { 28 print $fexclude "${uc_modeldir}/wl/sysdeps/$file\n"; 29 } 30 } 31 } 32 close(DIR); 33 } 34 35 print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/sys\n"; 36 print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/config\n"; 37 print $fexclude "${uc_modeldir}/wl/sysdeps/${uc_model}/clm\n"; 38 39 # cross exclude broadcom related path 40 if (${uc_modeldir} eq "release/src-rt") { 41 print $fexclude "release/src-rt-6.x/wl/sysdeps\n"; 42 } 43 if (${uc_modeldir} eq "release/src-rt-6.x") { 44 print $fexclude "release/src-rt/wl/sysdeps\n"; 45 } 46 47 close($fexclude); 48} 49 50if ( @ARGV >= 2 ) { 51 append_gpl_excludes($ARGV[0], $ARGV[1]); 52} 53else { 54 print "usage: .gpl_excludes.pl [model] [modeldir]\n"; 55} 56 57