# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1357835298 0
# Node ID dd480255bd82b895148435c32b1270117b10081b
# Parent  738745bfa17badda318bb72fcdc2c827e092dd36
completed basic draft of pkg-examine script.

diff -r 738745bfa17b -r dd480255bd82 src/pkg-examine.pl
--- a/src/pkg-examine.pl	Thu Jan 10 15:21:57 2013 +0000
+++ b/src/pkg-examine.pl	Thu Jan 10 16:28:18 2013 +0000
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-
+use File::stat;
 
 if ($ARGV[0] eq "--help"){
   print <<"HERE";
@@ -13,8 +13,6 @@
 exit 0;
 }
 
-
-
 $" = " ";
 $pkg_name = $ARGV[0];
 
@@ -25,4 +23,21 @@
 
 @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`);
 
-print "@files\n";
+
+print "All files owned by this package:\n";
+foreach (@files){print "   $_\n";}
+
+print "SetUID/SetGID files:\n";
+foreach $file(@files){
+
+    $sb = stat($file);
+    $mode = $sb->mode & 07777;
+    if ($mode & 07000){
+	printf "%s, %04o\n", $file, $mode;
+    }
+}
+
+    
+
+
+