Add a license qa check to tell porters when their ports will be mostly

useless.

Reviewed by:	antoine
Sponsored by:	Absolight
Differential Revision:	https://reviews.freebsd.org/D16103

1 files changed, 25 insertions, 0 deletions

diff --git a/Mk/Scripts/qa.sh b/Mk/Scripts/qa.sh
index b5301ded0c93..29e3b9d2f767 100644
--- a/Mk/Scripts/qa.sh
+++ b/Mk/Scripts/qa.sh
@@ -914,9 +914,34 @@ flavors()
 	return ${rc}
 }
 
+license()
+{
+	local autoaccept pkgmirror #distsell distmirror pkgsell
+
+	if [ -n "$LICENSE" ]; then
+		case "$LICENSE_PERMS" in
+			auto-accept) autoaccept=1 ;;
+			#dist-mirror) distmirror=1 ;;
+			#dist-sell)   distsell=1   ;;
+			pkg-mirror)  pkgmirror=1  ;;
+			#pkg-sell)    pkgsell=1    ;;
+		esac
+
+		if [ -z "$autoaccept" ]; then
+			warn "License is not auto-accepted, packages will not be built, ports depending on this one will be ignored."
+		fi
+		if [ -z "$pkgmirror" ]; then
+			warn "License does not allow package to be distributed, ports depending on this one will be ignored"
+		fi
+	fi
+
+	return 0
+}
+
 checks="shebang symlinks paths stripped desktopfileutils sharedmimeinfo"
 checks="$checks suidfiles libtool libperl prefixvar baselibs terminfo"
 checks="$checks proxydeps sonames perlcore no_arch gemdeps gemfiledeps flavors"
+checks="$checks license"
 
 ret=0
 cd ${STAGEDIR} || exit 1