scripts/amlogic/licence_pre.pl

#!/usr/bin/perl -W


my $FILE;
$flist = "  ";
$driv = "drivers/amlogic/";
$incs = "include/linux/amlogic/";
$dts = "arch/arm64/boot/dts/amlogic/";
open($FILE, '<&STDIN');
while (<$FILE>) {
	chomp;
	my $line = $_;
	my $new = "";
	if($line =~/^A\s+(.+\.[cChH])/)
	{
		$new = $1;
	}
	elsif(/^A\s+(.+\.dts*)/i)
	{
		$new = $1;
	}
	if( -e $new)
	{
		if($new =~/$driv/ || $new =~/$incs/ || $new =~/$dts/)
		{
			$flist = $flist.$new."  ";
		}
	}

}
close $FILE;

if($flist =~/^\s*$/)
{
	#print "\n LicenceCheck exit:No *.[CcHh] added.\n\n";
	exit 0;
}
else
{
	print "\n Check :$flist\n";
}

$match = "Licence_WARN: <";
$pl = "./scripts/amlogic/licence_check.pl";
$out = 0;
$result_0 = `$pl --nofix $flist`;
if($result_0 =~/$match/)
{
	$out =1;
	print $result_0;
	print "\n  Licence Check Error, please try to fix:\n  $pl $flist\n\n"
}
else
{
	print "\n  Licence Check OK\n\n"
}
exit $out;