view release on metacpan or  search on metacpan

lib/QuadPres/FS.pm  view on Meta::CPAN

                $gid = $group_info[2];
            }
        }

        $self->gid($gid);
    }

    return 0;
}

sub my_chown
{
    my $self = shift;

    my $path = shift;

    if ( !defined( $self->gid ) )
    {
        return;
    }

    chown( -1, $self->gid, $path );

    return;
}

sub make_dest_dir
{
    my $self = shift;

    my $dest_dir = shift;

    # Check if the destination directory exists and if not -
    # create it.
    if ( !-e $dest_dir )
    {
        mkdir($dest_dir);

        # Make it belong to the common group
        $self->my_chown($dest_dir);

        # Make it a SGID directory
        # This means that subsequent files will belong to its group.
        # And that subsequent directories inside will also be SGID.
        chmod( 02775, $dest_dir );
    }

    return;
}

lib/QuadPres/FS.pm  view on Meta::CPAN

=head1 DESCRIPTION

=head1 METHODS

=head2 gid

=head2 group

=head2 make_dest_dir($dest_dir)

=head2 my_chown($dest_dir)

=head2 set_group

=head2

=for :stopwords cpan testmatrix url bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan

=head1 SUPPORT

=head2 Websites