robbat2 08/09/17 21:35:51
Modified: checkgroup.pl
Log:
Add group name.
Revision Changes Path
1.3 checkgroup.pl
file : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?rev=1.3&view=markup
plain: http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?rev=1.3&content-type=text/plain
diff : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?r1=1.2&r2=1.3
Index: checkgroup.pl
===================================================================
RCS file: /var/cvsroot/CVSROOT/checkgroup.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -p -w -b -B -u -u -r1.2 -r1.3
--- checkgroup.pl 17 Sep 2008 21:34:40 -0000 1.2
+++ checkgroup.pl 17 Sep 2008 21:35:50 -0000 1.3
@@ -13,7 +13,8 @@ foreach(@ARGV) {
print STDERR $filepath."\n";
-f $filepath or die "$filepath does not exist.";
my $sb = stat($filepath);
- printf "File is %s, size is %s, perm %04o, mtime %s, gid %s\n",
+ my $group = getgrgid($sb->gid);
+ printf "File is %s, size is %s, perm %04o, mtime %s, group %s\n",
$filepath, $sb->size, $sb->mode & 07777,
- scalar localtime $sb->mtime, $sb->gid;
+ scalar localtime $sb->mtime, $group;
}
|
