perl question

[Ridzuan Zakaria]

Hi,

Can some help explains what permission the below perl command check?

return "Require read permission to the specified directory, $path."
unless (($mode & 004) ||
($uid == $> && $mode & 400) ||
($gid == $) && $mode & 040));

Thanks.
Ridzuan

[Gary L. Paveza, Jr. · Accepted solution]

Looks like it's checking if you have read permissions.

First line is checking for read permissions for everyone (004), if not, then the second line if you are the owner and have read permissions (400), and if not, the third line if you are a member of the group and have read permissions (040).

[Marvin Strong]

verifies the user running the script has read permissions to the path. either as other, owner or group.

[H.Merijn Brand (procura]

which is a rather stupid way of doing so.

-r $path or return "Require read permission to the specified directory, $path.";

would do the same.

Enjoy, Have FUN! H.Merijn

[Ridzuan Zakaria]

Thanks.