disallow root to install source packages by default

lib/rpminstall.c

@@ -417,6 +417,14 @@ restart:
 	if (eiu->isSource &&
 		(eiu->rpmrc == RPMRC_OK || eiu->rpmrc == RPMRC_BADSIZE))
 	{
+	    if (!(geteuid() || rpmExpandNumeric("%_allow_root_build")))
+	    {
+		rpmError(RPMMESS_ERROR,
+			 _("%s: current site policy disallows root to install source packages\n"),
+			 eiu->fnp);
+		eiu->numFailed++; *eiu->fnp = NULL;
+		continue;
+	    }
 	    rpmMessage(RPMMESS_DEBUG, "\tadded source package [%d]\n",
 		eiu->numSRPMS);
 	    eiu->sourceURL = xrealloc(eiu->sourceURL,

po/ru.po

@@ -2601,6 +2601,11 @@ msgstr " ...
 msgid "skipping %s - transfer failed - %s\n"
 msgstr "%s 幸闲沼肆旁友 - 羡陕肆 信遗牧奚 - %s\n"
 
+#: lib/rpminstall.c:423
+#, c-format
+msgid "%s: current site policy disallows root to install source packages\n"
+msgstr "%s: установка пакетов с исходным кодом запрещена для привилегированного пользователя\n"
+
 #: lib/rpminstall.c:441
 #, c-format
 msgid "cannot open Packages database in %s\n"