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