view release on metacpan or  search on metacpan

lib/OpenVZ/Vzctl.pm  view on Meta::CPAN

        return wantarray ? @options : \@options;

    }

####################################


    my @capabilities = qw(

        chown dac_override dac_read_search fowner fsetid ipc_lock ipc_owner kill
        lease linux_immutable mknod net_admin net_bind_service net_broadcast
        net_raw setgid setpcap setuid setveid sys_admin sys_boot sys_chroot
        sys_module sys_nice sys_pacct sys_ptrace sys_rawio sys_resource sys_time
        sys_tty_config ve_admin

    );

    push @vzctl_exports, 'capabilities';

    sub capabilities { return wantarray ? @capabilities : \@capabilities }

lib/OpenVZ/Vzctl.pm  view on Meta::CPAN

=item quotatime

=item quotaugidlimit

Expects an integer.

=item capability

Expects one of the following capabilities

    chown dac_override dac_read_search fowner fsetid ipc_lock ipc_owner kill lease linux_immutable mknod net_admin net_bind_service
    net_broadcast net_raw setgid setpcap setuid setveid sys_admin sys_boot sys_chroot sys_module sys_nice sys_pacct sys_ptrace
    sys_rawio sys_resource sys_time sys_tty_config ve_admin

joined with either 'on' or 'off' with a colon. E.g., 'chown:on'.

=item cpumask

Expects either a comma separated list of integers or the word 'all'.

=item devices

Expects a device that matches the regex

  /^(?:(?:(?:b|c):\d+:\d+)|all:(?:r?w?))|none$/

t/100-OpenVZ-Vzctl-set.t  view on Meta::CPAN

}

my %goodbad; @goodbad{ @parms } = t::Util::type( @parms );

#########################################################################################
my @cap_names = capabilities();

cmp_bag(
    \@cap_names, [ qw(

            chown dac_override dac_read_search fowner fsetid ipc_lock ipc_owner kill lease linux_immutable mknod net_admin
            net_bind_service net_broadcast net_raw setgid setpcap setuid setveid sys_admin sys_boot sys_chroot sys_module sys_nice
            sys_pacct sys_ptrace sys_rawio sys_resource sys_time sys_tty_config ve_admin

            ),
    ],
    'got expected capablity names',
);

my @good_cap_names = map { ( "$_:on",  "$_:off" ) } @cap_names;
my @bad_cap_names  = map { ( "$_:bad", t::Util::did_not_pass() ) } @cap_names;