Mercurial > pkg

comparison src/pkg-examine.pl @ 29:819e950ac8cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes.
author Robert McIntyre <rlm@mit.edu>
date Thu, 10 Jan 2013 16:59:50 +0000
parents dd480255bd82
children
comparison
equal deleted inserted replaced
28:dd480255bd82 29:819e950ac8cc
15 15
16 $" = " "; 16 $" = " ";
17 $pkg_name = $ARGV[0]; 17 $pkg_name = $ARGV[0];
18 18
19 `id -g $pkg_name 2>/dev/null`; 19 `id -g $pkg_name 2>/dev/null`;
20 if ($?){ 20 if (($pkg_name eq "") || $?){
21 print "No group named $pkg_name."; 21 print "No group named $pkg_name.\n";
22 exit 0;} 22 exit 0;
23 }
23 24
24 @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`); 25 @files = split(/\0/, `find /usr /opt /etc -group $pkg_name -print0`);
25 26
26 27
27 print "All files owned by this package:\n"; 28 print "All files owned by this package:\n";