Mercurial > pkg

     1 #!/usr/bin/perl

     2 use File::stat;

     3 

     4 $print0 = 0;

     5 

     6 if ($ARGV[0] eq "--help"){

     7   print <<"HERE";

     8 

     9 pkg-examine -- print package contents.

    10 

    11 usage:

    12     pkg-examine -0 <package>

    13 

    14 Prints the files which belong to the package user 

    15 <package>.

    16 

    17 If the -0 option is given, prints all files belonging 

    18 to <package> separated by null characters, as in the 

    19 "-print0" option of find.

    20 

    21 Written by Robert McIntyre. This software is free

    22 software and is released to the public domain.

    23   

    24 HERE

    25 exit 0;

    26 }

    27 

    28 $" = " ";

    29 

    30 if ($ARGV[0] eq "-0"){

    31     $print0 = 1;

    32     $pkg_name = $ARGV[1];

    33 }

    34 else {

    35     $pkg_name = $ARGV[0];

    36 }

    37 

    38 

    39 

    40 

    41 `id -g $pkg_name 2>/dev/null`;

    42 if (($pkg_name eq "") || $?){

    43     print "No group named $pkg_name.\n";

    44     exit 0;

    45 }

    46 

    47 $file_str = `find /usr /opt /etc -group $pkg_name -print0`;

    48 if ($print0){

    49     print $file_str;

    50     exit 0;

    51 }

    52 

    53 @files = split(/\0/, $file_str);

    54 

    55 

    56 print "All files owned by this package:\n";

    57 foreach (@files){print "   $_\n";}

    58 

    59 print "SetUID/SetGID files:\n";

    60 foreach $file(@files){

    61 

    62     $sb = stat($file);

    63     $mode = $sb->mode & 07777;

    64     if ($mode & 07000){

    65 	printf "%s, %04o\n", $file, $mode;

    66     }

    67 }

    68 

    69     

    70 

    71 

    72
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 10 Feb 2013 05:58:58 -0500
parents	6422228dfea7
children