Imported Upstream version 1.4~svn361

lib/checks/setgid

@@ -0,0 +1,43 @@
+#!/bin/sh
+# $Revision: 232 $
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+# (c) Tim Brown, 2012
+# <mailto:timb@nth-dimension.org.uk>
+# <http://www.nth-dimension.org.uk/> / <http://www.machine.org.uk/>
+#
+# List setgid files
+
+. lib/misc/stdio
+. lib/misc/file
+
+setgid_init () {
+	stdio_message_log "setgid" "Starting: `date`"
+}
+
+setgid_main () {
+	file_list_by_perm "^-.....s... |^-.....S... " | while read filename
+	do
+		file_show_non_symlink_perms " ${filename}$" | while read filename permissions userid groupid
+		do
+			stdio_message_warn "setgid" "${filename} is setgid (${userid}, ${groupid}): ${permissions}"
+		done
+	done
+}
+
+setgid_fini () {
+	stdio_message_log "setgid" "Ending: `date`"
+}