I'm very bad at math, and even worse when you leave base 10 math. So I need one of the math geniuses that lurk on this list to help me out.

Perl's stat() element 2 (the third in the array) is file mode. And it outputs this mode as an integer. From this you can turn the number into something more familiar (from a unix command line) like this:

$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 07777;

The problem is that I want to go the opposite direction. So since I don't know how to do that, I've created a rather lame brute force mechanism to do it. I'm hoping one of you can tell me the right way to do it. Here's the crappy way I created:

    # the next 20 lines or so are because i don't know how to calculate the number for mode

    my $mode = ($asset->isa('WebGUI::Asset::Wobject::Folder')) ? 'd' : '-';

    $mode .= "rwx";

    if ($asset->get('groupIdEdit') eq $asset->get('groupIdView')) {

        $mode .= "rwx";

    }

    else {

        $mode .= "r-x";

    }

    if ($asset->get('groupIdEdit') eq '7') {

        $mode .= "rwx";

    }

    elsif ($asset->get('groupIdView') eq '7') {

        $mode .= "r-x";

    }

    else {

        $mode .= "---";

    }

    my %modes = (

        "-rwxr-x---" => 33256,

        "drwxr-x---" => 16872,

        "-rwxr-xr-x" => 33261,

        "drwxr-xr-x" => 16877,

        "-rwxrwx---" => 33272,

        "drwxrwx---" => 16888,

        "-rwxrwxr-x" => 33277,

        "drwxrwxr-x" => 16893,

        "-rwxrwxrwx" => 33279,

        "drwxrwxrwx" => 16895,

    );

    my $modeNumber = $modes{$mode};

JT wrote:

Here are the transformations for each mode in case that helps:

-rwxr-x--- | 33256 | 0750
drwxr-x--- | 16872 | 0750
-rwxr-xr-x | 33261 | 0755
drwxr-xr-x | 16877 | 0755
-rwxrwx--- | 33272 | 0770
drwxrwx--- | 16888 | 0770
-rwxrwxr-x | 33277 | 0775
drwxrwxr-x | 16893 | 0775
-rwxrwxrwx | 33279 | 0777
drwxrwxrwx | 16895 | 0777

http://www.plainblack.com/webgui/dev/discuss/help-with-octal-math/1


--

Plain Black, makers of WebGUI
http://plainblack.com

The formatting was lost in my reply. Anyway, here's a fix

my $mode = 0;

# Other file permission
if ($asset->get('groupIdEdit') eq '7') {
        $mode += 07;    # rwx
} elsif ($asset->get('groupIdView') eq '7') {
        $mode += 05;    # r-x;
} else {
        $mode += 0;     # ---   (duh)
}

# Group file permission
if ($asset->get('groupIdEdit') eq $asset->get('groupIdView')) {
        $mode += 070;   # rwx;
} else {
        $mode += 050;   # r-x;
}

# User file permission
$mode += 0700;

# Directory
if($asset->isa('WebGUI::Asset::Wobject::Folder')) {
        $mode += 0040000; # Dir
} else {
        $mode += 0100000; # File
}

my $modeNumber = sprintf("%#d",$mode);    # Convert octal to decimal

Len Kranendonk, www.ilance.nl

 oops, the final solution got mangled. Here's another post to correct that:

    # calculate the mode

    my $mode = 0700; # owner permission: rwx 

    $mode += ($asset->get('groupIdEdit') eq $asset->get('groupIdView')) ?  070 :  050;   # group permission: rwx || r-x

    # world file permission 

    if ($asset->get('groupIdEdit') eq '7') {

        $mode += 07;    # rwx

    }

    elsif ($asset->get('groupIdView') eq '7') {

        $mode += 05;    # r-x;

    }

    $mode += ($asset->isa('WebGUI::Asset::Wobject::Folder')) ? 0040000 : 0100000; # asset type: folder || file

    $mode = sprintf("%#d",$mode);    # Convert octal to decimal