rlm@25: #!/usr/bin/perl
rlm@25: 
rlm@25: 
rlm@25: if ($ARGV[0] eq "--help"){
rlm@25:   print <<"HERE";
rlm@25: 
rlm@25: pkg-examine -- print package contents.
rlm@25: 
rlm@25: Written by Robert McIntyre. This software is free
rlm@25: software and is released to the public domain.
rlm@25:   
rlm@25: HERE
rlm@25: exit 0;
rlm@25: }
rlm@25: 
rlm@25: 
rlm@25: 
rlm@25: $" = " ";
rlm@25: $pkg_name = $ARGV[0];
rlm@25: 
rlm@25: `id -g $pkg_name 2>/dev/null`;
rlm@25: if ($?){
rlm@25:   print "No group named $pkg_name.";
rlm@25:   exit 0;}
rlm@25: 
rlm@25: @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`);
rlm@25: 
rlm@25: print "@files\n";