Result:
found more than 1189 distributions - search limited to the first 2001 files matching your query
( run in 1.957 )
Syntax-Kamelon
view release on metacpan or search on metacpan
lib/Syntax/Kamelon/XML/apparmor.xml view on Meta::CPAN
<list name="rule_capability">
<item>audit_control</item>
<item>audit_read</item>
<item>audit_write</item>
<item>block_suspend</item>
<item>chown</item>
<item>dac_override</item>
<item>dac_read_search</item>
<item>fowner</item>
<item>fsetid</item>
<item>ipc_lock</item>
Sys-Binmode
view release on metacpan or search on metacpan
lib/Sys/Binmode.pm view on Meta::CPAN
=item * C<exec>, C<system>, and C<readpipe>
=item * C<do> and C<require>
=item * File tests (e.g., C<-e>) and the following:
C<chdir>, C<chmod>, C<chown>, C<chroot>, C<ioctl>,
C<link>, C<lstat>, C<mkdir>, C<open>, C<opendir>, C<readlink>, C<rename>,
C<rmdir>, C<stat>, C<symlink>, C<sysopen>, C<truncate>,
C<unlink>, C<utime>
=item * C<bind>, C<connect>, C<setsockopt>, and C<send> (last argument)
Sys-Config-Manage
view release on metacpan or search on metacpan
lib/Sys/Config/Manage/Ownership.pm view on Meta::CPAN
}
#try to chmod it
if(!chmod( $uid, $gid, $files[$int] )){
$self->{error}='17';
$self->{errorString}='chown( '.$uid.', '.$gid.', "'.$files[$int].'") errored';
$self->warn;
return undef;
}
$int++;
Sys-Ebpf
view release on metacpan or search on metacpan
lib/Sys/Ebpf/Syscall/asm/unistd_32.ph view on Meta::CPAN
eval 'sub __NR_execve () {11;}' unless defined(&__NR_execve);
eval 'sub __NR_chdir () {12;}' unless defined(&__NR_chdir);
eval 'sub __NR_time () {13;}' unless defined(&__NR_time);
eval 'sub __NR_mknod () {14;}' unless defined(&__NR_mknod);
eval 'sub __NR_chmod () {15;}' unless defined(&__NR_chmod);
eval 'sub __NR_lchown () {16;}' unless defined(&__NR_lchown);
eval 'sub __NR_break () {17;}' unless defined(&__NR_break);
eval 'sub __NR_oldstat () {18;}' unless defined(&__NR_oldstat);
eval 'sub __NR_lseek () {19;}' unless defined(&__NR_lseek);
eval 'sub __NR_getpid () {20;}' unless defined(&__NR_getpid);
eval 'sub __NR_mount () {21;}' unless defined(&__NR_mount);
lib/Sys/Ebpf/Syscall/asm/unistd_32.ph view on Meta::CPAN
eval 'sub __NR_mmap () {90;}' unless defined(&__NR_mmap);
eval 'sub __NR_munmap () {91;}' unless defined(&__NR_munmap);
eval 'sub __NR_truncate () {92;}' unless defined(&__NR_truncate);
eval 'sub __NR_ftruncate () {93;}' unless defined(&__NR_ftruncate);
eval 'sub __NR_fchmod () {94;}' unless defined(&__NR_fchmod);
eval 'sub __NR_fchown () {95;}' unless defined(&__NR_fchown);
eval 'sub __NR_getpriority () {96;}' unless defined(&__NR_getpriority);
eval 'sub __NR_setpriority () {97;}' unless defined(&__NR_setpriority);
eval 'sub __NR_profil () {98;}' unless defined(&__NR_profil);
eval 'sub __NR_statfs () {99;}' unless defined(&__NR_statfs);
eval 'sub __NR_fstatfs () {100;}' unless defined(&__NR_fstatfs);
lib/Sys/Ebpf/Syscall/asm/unistd_32.ph view on Meta::CPAN
eval 'sub __NR_rt_sigtimedwait () {177;}' unless defined(&__NR_rt_sigtimedwait);
eval 'sub __NR_rt_sigqueueinfo () {178;}' unless defined(&__NR_rt_sigqueueinfo);
eval 'sub __NR_rt_sigsuspend () {179;}' unless defined(&__NR_rt_sigsuspend);
eval 'sub __NR_pread64 () {180;}' unless defined(&__NR_pread64);
eval 'sub __NR_pwrite64 () {181;}' unless defined(&__NR_pwrite64);
eval 'sub __NR_chown () {182;}' unless defined(&__NR_chown);
eval 'sub __NR_getcwd () {183;}' unless defined(&__NR_getcwd);
eval 'sub __NR_capget () {184;}' unless defined(&__NR_capget);
eval 'sub __NR_capset () {185;}' unless defined(&__NR_capset);
eval 'sub __NR_sigaltstack () {186;}' unless defined(&__NR_sigaltstack);
eval 'sub __NR_sendfile () {187;}' unless defined(&__NR_sendfile);
lib/Sys/Ebpf/Syscall/asm/unistd_32.ph view on Meta::CPAN
eval 'sub __NR_truncate64 () {193;}' unless defined(&__NR_truncate64);
eval 'sub __NR_ftruncate64 () {194;}' unless defined(&__NR_ftruncate64);
eval 'sub __NR_stat64 () {195;}' unless defined(&__NR_stat64);
eval 'sub __NR_lstat64 () {196;}' unless defined(&__NR_lstat64);
eval 'sub __NR_fstat64 () {197;}' unless defined(&__NR_fstat64);
eval 'sub __NR_lchown32 () {198;}' unless defined(&__NR_lchown32);
eval 'sub __NR_getuid32 () {199;}' unless defined(&__NR_getuid32);
eval 'sub __NR_getgid32 () {200;}' unless defined(&__NR_getgid32);
eval 'sub __NR_geteuid32 () {201;}' unless defined(&__NR_geteuid32);
eval 'sub __NR_getegid32 () {202;}' unless defined(&__NR_getegid32);
eval 'sub __NR_setreuid32 () {203;}' unless defined(&__NR_setreuid32);
eval 'sub __NR_setregid32 () {204;}' unless defined(&__NR_setregid32);
eval 'sub __NR_getgroups32 () {205;}' unless defined(&__NR_getgroups32);
eval 'sub __NR_setgroups32 () {206;}' unless defined(&__NR_setgroups32);
eval 'sub __NR_fchown32 () {207;}' unless defined(&__NR_fchown32);
eval 'sub __NR_setresuid32 () {208;}' unless defined(&__NR_setresuid32);
eval 'sub __NR_getresuid32 () {209;}' unless defined(&__NR_getresuid32);
eval 'sub __NR_setresgid32 () {210;}' unless defined(&__NR_setresgid32);
eval 'sub __NR_getresgid32 () {211;}' unless defined(&__NR_getresgid32);
eval 'sub __NR_chown32 () {212;}' unless defined(&__NR_chown32);
eval 'sub __NR_setuid32 () {213;}' unless defined(&__NR_setuid32);
eval 'sub __NR_setgid32 () {214;}' unless defined(&__NR_setgid32);
eval 'sub __NR_setfsuid32 () {215;}' unless defined(&__NR_setfsuid32);
eval 'sub __NR_setfsgid32 () {216;}' unless defined(&__NR_setfsgid32);
eval 'sub __NR_pivot_root () {217;}' unless defined(&__NR_pivot_root);
lib/Sys/Ebpf/Syscall/asm/unistd_32.ph view on Meta::CPAN
eval 'sub __NR_inotify_rm_watch () {293;}' unless defined(&__NR_inotify_rm_watch);
eval 'sub __NR_migrate_pages () {294;}' unless defined(&__NR_migrate_pages);
eval 'sub __NR_openat () {295;}' unless defined(&__NR_openat);
eval 'sub __NR_mkdirat () {296;}' unless defined(&__NR_mkdirat);
eval 'sub __NR_mknodat () {297;}' unless defined(&__NR_mknodat);
eval 'sub __NR_fchownat () {298;}' unless defined(&__NR_fchownat);
eval 'sub __NR_futimesat () {299;}' unless defined(&__NR_futimesat);
eval 'sub __NR_fstatat64 () {300;}' unless defined(&__NR_fstatat64);
eval 'sub __NR_unlinkat () {301;}' unless defined(&__NR_unlinkat);
eval 'sub __NR_renameat () {302;}' unless defined(&__NR_renameat);
eval 'sub __NR_linkat () {303;}' unless defined(&__NR_linkat);
Sys-Export
view release on metacpan or search on metacpan
lib/Sys/Export/Unix/WriteFS.pm view on Meta::CPAN
if ($change_uid || $change_gid) {
# only UID 0 can change UID, and only GID 0 or GID in supplemental groups can change GID.
$uid= -1 unless $change_uid && $> == 0;
$gid= -1 unless $change_gid && ($) == 0 || grep $stat->{gid}, split / /, $) );
# Only attempt change if able
POSIX::lchown($uid, $gid, $abs_path) or croak "lchown($uid, $gid, $abs_path): $!"
if $uid >= 0 || $gid >= 0;
}
my @delayed;
Sys-FS
view release on metacpan or search on metacpan
lib/Sys/FS.pm view on Meta::CPAN
}
else {
$self->logger()->log( message => $msg . ' FAILED!', level => 'debug', );
}
if ( $opts->{'Uid'} && $opts->{'Gid'} ) {
chown $opts->{'Uid'}, $opts->{'Gid'} => $dir;
}
}
}
my $msg = "Filename: $filename - created $mkdirs dirs for $dir";
$self->logger()->log( message => $msg, level => 'debug', );
Sys-OsPackage
view release on metacpan or search on metacpan
t/container-workspace/container-tests.pl view on Meta::CPAN
no autodie;
mkdir $dir
or croak "mkdir($dir) failed; $!";
}
}
chown $user_id, $user_id, $home;
chmod 0750, $home;
chdir $home;
$ENV{HOME} = $home;
$ENV{USER} = $user_id;
$ENV{LOGNAME} = $user_id;
Sys-Tlock
view release on metacpan or search on metacpan
lib/Sys/Tlock.pm view on Meta::CPAN
my $t;
if ( not tlock_taken($label,$n->%*) ) {
my $tdn = tdn($label,$d,$m);
mkdir $tdn if not -e $tdn;
chown $o , $g , $tdn;
mkdir $tdn.'/d' if not -e $tdn.'/d';
chown $o , $g , $tdn.'/d';
$t = int time;
utime undef , $t , $tdn;
utime undef , $timeout , $tdn.'/d';
};
SysV-SharedMem
view release on metacpan or search on metacpan
lib/SysV/SharedMem.pm view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use Carp qw/croak/;
use IPC::SysV qw/ftok IPC_PRIVATE IPC_CREAT SHM_RDONLY/;
use Sub::Exporter::Progressive -setup => { exports => [qw/shared_open shared_remove shared_stat shared_chmod shared_chown shared_detach shared_identifier/] };
use XSLoader;
XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
lib/SysV/SharedMem.pm view on Meta::CPAN
=head2 shared_chmod($var, $modebits)
Change the (lower 9) modebits of the shared memory object.
=head2 shared_chown($var, $uid, $gid = undef)
Change the owning uid and optionally gid of the shared memory object.
=head2 shared_detach($var)
Sysadm-Install
view release on metacpan or search on metacpan
lib/Sysadm/Install.pm view on Meta::CPAN
use File::Basename;
owner_cp( dirname($file), $file );
Usually requires root privileges, just like chown does.
=cut
######################################
sub owner_cp {
lib/Sysadm/Install.pm view on Meta::CPAN
if(!defined $uid or !defined $gid ) {
LOGCROAK("stat of $src failed: $!");
return undef;
}
if(!chown $uid, $gid, @dst ) {
LOGCROAK("chown of ", join(" ", @dst), " failed: $!");
return undef;
}
return 1;
}
lib/Sysadm/Install.pm view on Meta::CPAN
local $Log::Log4perl::caller_depth =
$Log::Log4perl::caller_depth + 1;
_confirm "perm_set $filename (@$perms)" or return 1;
chown($perms->[1], $perms->[2], $filename) or
LOGCROAK("Cannot chown $filename ($!)");
chmod($perms->[0] & 07777, $filename) or
LOGCROAK("Cannot chmod $filename ($!)");
}
System-Daemon
view release on metacpan or search on metacpan
lib/System/Daemon/Utils.pm view on Meta::CPAN
if ($owner{user} || $owner{group}) {
my $uid = getpwnam($owner{user});
my $gid = getgrnam($owner{group});
chown $uid, $gid, $pidfile or
croak "Can't chown $owner{user}:$owner{group}";
}
return 1;
}
lib/System/Daemon/Utils.pm view on Meta::CPAN
mkdir $path or croak "Can't 'mkdir $path' Error: $!";
if ($daemon_data->{user} || $daemon_data->{group}) {
my $uid = getpwnam($daemon_data->{user});
my $gid = getgrnam($daemon_data->{group});
chown $uid, $gid, $path;
}
return 1;
}
Sysync
view release on metacpan or search on metacpan
lib/Sysync.pm view on Meta::CPAN
unless (-d "$stagefilesdir/$host")
{
mkdir "$stagefilesdir/$host";
chmod 0755, "$stagefilesdir/$host";
chown 0, 0, "$stagefilesdir/$host";
$self->log("creating: $stagefilesdir/$host");
$r++;
}
unless (-d "$stagefilesdir/$host/etc")
{
mkdir "$stagefilesdir/$host/etc";
chmod 0755, "$stagefilesdir/$host/etc";
chown 0, 0, "$stagefilesdir/$host/etc";
$self->log("creating: $stagefilesdir/$host/etc");
$r++;
}
unless (-d "$stagefilesdir/$host/etc/ssh")
{
mkdir "$stagefilesdir/$host/etc/ssh";
chmod 0755, "$stagefilesdir/$host/etc/ssh";
chown 0, 0, "$stagefilesdir/$host/etc/ssh";
$self->log("creating: $stagefilesdir/$host/etc/ssh");
$r++;
}
unless (-d "$stagefilesdir/$host/etc/ssh/authorized_keys")
{
mkdir "$stagefilesdir/$host/etc/ssh/authorized_keys";
chmod 0755, "$stagefilesdir/$host/etc/ssh/authorized_keys";
chown 0, 0, "$stagefilesdir/$host/etc/ssh/authorized_keys";
$self->log("creating: $stagefilesdir/$host/etc/ssh/authorized_keys");
$r++;
}
lib/Sysync.pm view on Meta::CPAN
$self->log("creating: $stagefilesdir/$host/$item->{directory}");
}
my $mode = sprintf("%04i", $item->{mode});
chmod $mode, "$stagefilesdir/$host/$item->{directory}";
chown $item->{uid}, $item->{gid}, "$stagefilesdir/$host/$item->{directory}";
$r++;
}
for my $path (keys %{ $files || {} })
lib/Sysync.pm view on Meta::CPAN
}
my $mode = sprintf("%04i", $item->{mode});
chmod oct($mode), "$stagefilesdir/$host/$item->{file}";
chown $item->{uid}, $item->{gid}, "$stagefilesdir/$host/$item->{file}";
}
# get list of staging directory contents
my @staged_file_list;
File::Find::find({
lib/Sysync.pm view on Meta::CPAN
unless (-d "$stagedir/$host")
{
mkdir "$stagedir/$host";
chmod 0755, "$stagedir/$host";
chown 0, 0, "$stagedir/$host";
$self->log("creating: $stagedir/$host");
$r++;
}
unless (-d "$stagedir/$host/etc")
{
mkdir "$stagedir/$host/etc";
chmod 0755, "$stagedir/$host/etc";
chown 0, 0, "$stagedir/$host/etc";
$self->log("creating: $stagedir/$host/etc");
$r++;
}
unless (-d "$stagedir/$host/etc/ssh")
{
mkdir "$stagedir/$host/etc/ssh";
chmod 0755, "$stagedir/$host/etc/ssh";
chown 0, 0, "$stagedir/$host/etc/ssh";
$self->log("creating: $stagedir/$host/etc/ssh");
$r++;
}
unless (-d "$stagedir/$host/etc/ssh/authorized_keys")
{
mkdir "$stagedir/$host/etc/ssh/authorized_keys";
chmod 0755, "$stagedir/$host/etc/ssh/authorized_keys";
chown 0, 0, "$stagedir/$host/etc/ssh/authorized_keys";
$self->log("creating: $stagedir/$host/etc/ssh/authorized_keys");
$r++;
}
unless (-d "$stagedir/$host/var")
{
mkdir "$stagedir/$host/var";
chmod 0755, "$stagedir/$host/var";
chown 0, 0, "$stagedir/$host/var";
$self->log("creating: $stagedir/$host/var");
$r++;
}
unless (-d "$stagedir/$host/var/lib")
{
mkdir "$stagedir/$host/var/lib";
chmod 0755, "$stagedir/$host/var/lib";
chown 0, 0, "$stagedir/$host/var/lib";
$self->log("creating: $stagedir/$host/var/lib");
$r++;
}
unless (-d "$stagedir/$host/var/lib/extrausers")
{
mkdir "$stagedir/$host/var/lib/extrausers";
chmod 0755, "$stagedir/$host/var/lib/extrausers";
chown 0, 0, "$stagedir/$host/var/lib/extrausers";
$self->log("creating: $stagedir/$host/var/lib/extrausers");
$r++;
}
lib/Sysync.pm view on Meta::CPAN
my $text = $key->{keys};
if ($self->write_file_contents("$stagedir/$host/etc/ssh/authorized_keys/$username", $text))
{
chmod 0600, "$stagedir/$host/etc/ssh/authorized_keys/$username";
chown $uid, 0, "$stagedir/$host/etc/ssh/authorized_keys/$username";
$r++;
}
}
my ($shadow_group) =
lib/Sysync.pm view on Meta::CPAN
$shadow_group = $shadow_group->{gid} || 0;
if ($self->write_file_contents("$stagedir/$host/$passwd_file", $ent_data->{passwd}))
{
chmod 0644, "$stagedir/$host/$passwd_file";
chown 0, 0, "$stagedir/$host/$passwd_file";
$r++;
}
if ($self->write_file_contents("$stagedir/$host/${group_file}", $ent_data->{group}))
{
chmod 0644, "$stagedir/$host/${group_file}";
chown 0, 0, "$stagedir/$host/${group_file}";
$r++;
}
if ($self->write_file_contents("$stagedir/$host/${shadow_file}", $ent_data->{shadow}))
{
chmod 0640, "$stagedir/$host/${shadow_file}";
chown 0, $shadow_group, "$stagedir/$host/${shadow_file}";
$r++;
}
if ($self->write_file_contents("$stagedir/$host/${gshadow_file}", $ent_data->{gshadow}))
{
chmod 0640, "$stagedir/$host/${gshadow_file}";
chown 0, $shadow_group, "$stagedir/$host/${gshadow_file}";
$r++;
}
}
return $r;
TAP3-Tap3edit
view release on metacpan or search on metacpan
inc/File/Temp.pm view on Meta::CPAN
unless (-d $parent) {
${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
return ();
}
# Check the stickiness of the directory and chown giveaway if required
# If the directory is world writable the sticky bit
# must be set
if (File::Temp->safe_level == MEDIUM) {
my $safeerr;
inc/File/Temp.pm view on Meta::CPAN
return 1;
}
# Internal routine to check whether a directory is safe
# for temp files. Safer than _is_safe since it checks for
# the possibility of chown giveaway and if that is a possibility
# checks each directory in the path to see if it is safe (with _is_safe)
# If _PC_CHOWN_RESTRICTED is not set, does the full test of each
# directory anyway.
inc/File/Temp.pm view on Meta::CPAN
my $err_ref = shift;
# Should Get the value of _PC_CHOWN_RESTRICTED if it is defined
# and If it is not there do the extensive test
local($@);
my $chown_restricted;
$chown_restricted = &POSIX::_PC_CHOWN_RESTRICTED()
if eval { &POSIX::_PC_CHOWN_RESTRICTED(); 1};
# If chown_resticted is set to some value we should test it
if (defined $chown_restricted) {
# Return if the current directory is safe
return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted );
}
# To reach this point either, the _PC_CHOWN_RESTRICTED symbol
# was not available or the symbol was there but chown giveaway
# is allowed. Either way, we now have to test the entire tree for
# safety.
# Convert path to an absolute directory if required
unless (File::Spec->file_name_is_absolute($path)) {
inc/File/Temp.pm view on Meta::CPAN
#pod for sticky bit.
#pod
#pod =item HIGH
#pod
#pod In addition to the MEDIUM security checks, also check for the
#pod possibility of ``chown() giveaway'' using the L<POSIX|POSIX>
#pod sysconf() function. If this is a possibility, each directory in the
#pod path is checked in turn for safeness, recursively walking back to the
#pod root directory.
#pod
#pod For platforms that do not support the L<POSIX|POSIX>
#pod C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is
#pod assumed that ``chown() giveaway'' is possible and the recursive test
#pod is performed.
#pod
#pod =back
#pod
#pod The level can be changed as follows:
TOML-XS
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
TOON-XS
view release on metacpan or search on metacpan
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003||Viu
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
TT2-Play-Area
view release on metacpan or search on metacpan
lib/auto/TT2/Play/Area/public/codemirror/mode/perl/perl.js view on Meta::CPAN
caller :1, // - get context of the current subroutine call
chdir :1, // - change your current working directory
chmod :1, // - changes the permissions on a list of files
chomp :1, // - remove a trailing record separator from a string
chop :1, // - remove the last character from a string
chown :1, // - change the ownership on a list of files
chr :1, // - get character this number represents
chroot :1, // - make directory new root for path lookups
close :1, // - close file (or pipe or socket) handle
closedir :1, // - close directory handle
connect :1, // - connect to a remote socket
TableDataBundle-CPAN-Release-Static-Older
view release on metacpan or search on metacpan
share/2003.csv view on Meta::CPAN
LaBrea-Tarpit-1.18,2003-09-30T00:14:07,MIKER,backpan,released,1.18,,LaBrea-Tarpit,"Utilities and web displays for Tom Liston's LaBrea scanner/worm disruptor"
Mail-SpamCannibal-0.14,2003-09-30T01:15:20,MIKER,backpan,released,0.14,,Mail-SpamCannibal,"A tool to stop SPAM"
Authen-Tcpdmatch-0.01,2003-09-30T02:22:51,IOANNIS,cpan,released,0.01,1,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Sys-HostIP-1.3.1,2003-09-30T03:55:41,BLUELINES,cpan,released,1.3.1,,Sys-HostIP,"Try extra hard to get ip address related info"
Authen-Tcpdmatch-0.02,2003-09-30T04:53:33,IOANNIS,backpan,released,0.02,,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Lchown-0.04,2003-09-30T05:23:48,NCLEATON,backpan,released,0.04,1,Lchown,"use the lchown(2) system call from Perl"
Lchown-0.05,2003-09-30T05:49:56,NCLEATON,backpan,released,0.05,,Lchown,"use the lchown(2) system call from Perl"
metaconfig-for-Perl-5.8.1,2003-09-30T06:41:45,JHI,cpan,released,v5.8.1,,metaconfig-for-Perl,
OODoc-0.09,2003-09-30T08:01:05,MARKOV,backpan,released,0.09,,OODoc,"object oriented production of code documentation"
Finance-YahooJPN-Quote-0.08,2003-09-30T08:28:14,HATA,backpan,released,0.08,1,Finance-YahooJPN-Quote,"fetch a quote of Japanese stock market"
MKDoc-XML-0.53,2003-09-30T09:53:39,JHIVER,backpan,released,0.53,,MKDoc-XML,"The MKDoc XML Toolkit"
File-Scan-0.68,2003-09-30T10:33:39,HDIAS,cpan,released,0.68,,File-Scan,"Perl extension for Scanning files for Viruses"
share/2003.csv view on Meta::CPAN
Thread-Synchronized-0.02,2003-09-30T21:39:29,ELIZABETH,backpan,released,0.02,1,Thread-Synchronized,"synchronize subroutine calls between threads"
POE-Sugar-Args-1.3,2003-09-30T22:04:01,CWEST,latest,released,1.3,,POE-Sugar-Args,"Get ""pretty"", OO representation of args."
Module-Info-File-0.01,2003-09-30T22:18:33,JONASBN,backpan,released,0.01,1,Module-Info-File,"extracts module data from installed and uninstalled modules"
Text-Scan-0.16,2003-09-30T22:18:49,IWOODHEAD,backpan,released,0.16,,Text-Scan,"Fast search for very large numbers of keys in a body of text."
Net-Traces-SSFNet-0.01,2003-10-01T04:35:55,KOSTAS,backpan,released,0.01,1,Net-Traces-SSFNet,"Analyze traces generated by SSFNet"
Lchown-0.06,2003-10-01T04:46:21,NCLEATON,backpan,released,0.06,,Lchown,"use the lchown(2) system call from Perl"
PHP-Session-0.21,2003-10-01T05:42:38,MIYAGAWA,backpan,released,0.21,,PHP-Session,"read / write PHP session files"
Class-Member-1.2,2003-10-01T09:21:20,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Class-Member-1.2a,2003-10-01T10:16:06,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Pangloss-0.04,2003-10-01T10:52:58,SPURKIS,backpan,released,0.04,,Pangloss,"Build script generator for Pangloss"
Module-Info-0.24,2003-10-01T11:55:42,MBARBON,backpan,released,0.24,,Module-Info,"Basic utilities for writing tests."
TableDataBundle-Perl-CPAN-Release-Static-Older
view release on metacpan or search on metacpan
share/2003.csv view on Meta::CPAN
LaBrea-Tarpit-1.18,2003-09-30T00:14:07,MIKER,backpan,released,1.18,,LaBrea-Tarpit,"Utilities and web displays for Tom Liston's LaBrea scanner/worm disruptor"
Mail-SpamCannibal-0.14,2003-09-30T01:15:20,MIKER,backpan,released,0.14,,Mail-SpamCannibal,"A tool to stop SPAM"
Authen-Tcpdmatch-0.01,2003-09-30T02:22:51,IOANNIS,cpan,released,0.01,1,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Sys-HostIP-1.3.1,2003-09-30T03:55:41,BLUELINES,cpan,released,1.3.1,,Sys-HostIP,"Try extra hard to get ip address related info"
Authen-Tcpdmatch-0.02,2003-09-30T04:53:33,IOANNIS,backpan,released,0.02,,Authen-Tcpdmatch,"Perl extension for parsing hosts.allow and hosts.deny"
Lchown-0.04,2003-09-30T05:23:48,NCLEATON,backpan,released,0.04,1,Lchown,"use the lchown(2) system call from Perl"
Lchown-0.05,2003-09-30T05:49:56,NCLEATON,backpan,released,0.05,,Lchown,"use the lchown(2) system call from Perl"
metaconfig-for-Perl-5.8.1,2003-09-30T06:41:45,JHI,cpan,released,v5.8.1,,metaconfig-for-Perl,
OODoc-0.09,2003-09-30T08:01:05,MARKOV,backpan,released,0.09,,OODoc,"object oriented production of code documentation"
Finance-YahooJPN-Quote-0.08,2003-09-30T08:28:14,HATA,backpan,released,0.08,1,Finance-YahooJPN-Quote,"fetch a quote of Japanese stock market"
MKDoc-XML-0.53,2003-09-30T09:53:39,JHIVER,backpan,released,0.53,,MKDoc-XML,"The MKDoc XML Toolkit"
File-Scan-0.68,2003-09-30T10:33:39,HDIAS,cpan,released,0.68,,File-Scan,"Perl extension for Scanning files for Viruses"
share/2003.csv view on Meta::CPAN
Thread-Synchronized-0.02,2003-09-30T21:39:29,ELIZABETH,backpan,released,0.02,1,Thread-Synchronized,"synchronize subroutine calls between threads"
POE-Sugar-Args-1.3,2003-09-30T22:04:01,CWEST,latest,released,1.3,,POE-Sugar-Args,"Get ""pretty"", OO representation of args."
Module-Info-File-0.01,2003-09-30T22:18:33,JONASBN,backpan,released,0.01,1,Module-Info-File,"extracts module data from installed and uninstalled modules"
Text-Scan-0.16,2003-09-30T22:18:49,IWOODHEAD,backpan,released,0.16,,Text-Scan,"Fast search for very large numbers of keys in a body of text."
Net-Traces-SSFNet-0.01,2003-10-01T04:35:55,KOSTAS,backpan,released,0.01,1,Net-Traces-SSFNet,"Analyze traces generated by SSFNet"
Lchown-0.06,2003-10-01T04:46:21,NCLEATON,backpan,released,0.06,,Lchown,"use the lchown(2) system call from Perl"
PHP-Session-0.21,2003-10-01T05:42:38,MIYAGAWA,backpan,released,0.21,,PHP-Session,"read / write PHP session files"
Class-Member-1.2,2003-10-01T09:21:20,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Class-Member-1.2a,2003-10-01T10:16:06,OPI,backpan,released,1.2,,Class-Member,"A set of modules to make the module developement easier"
Pangloss-0.04,2003-10-01T10:52:58,SPURKIS,backpan,released,0.04,,Pangloss,"Build script generator for Pangloss"
Module-Info-0.24,2003-10-01T11:55:42,MBARBON,backpan,released,0.24,,Module-Info,"Basic utilities for writing tests."
Task-BeLike-PERLANCAR-Used
view release on metacpan or search on metacpan
lib/Task/BeLike/PERLANCAR/Used.pm view on Meta::CPAN
=head3 L<File::Which::Patch::Hide> 0
=head3 L<File::Write::Rotate> 0.28
=head3 L<File::chown> 0
=head3 L<Filename::Archive> 0.033
=head3 L<Filename::Audio> 0.004
Task-Cpanel-Core
view release on metacpan or search on metacpan
lib/Task/Cpanel/Core.pm view on Meta::CPAN
=cut
use LWP::Protocol::https;
=item L<Lchown|Lchown>
Use the lchown(2) system call from Perl
=cut
use Lchown;
=item L<Linux::Inotify2|Linux::Inotify2>
scalable directory/file change notification
Task-Perl-Critic
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"liblatex-decode-perl", "LaTeX-Decode", "0.03", "0", "1"
"liblatex-driver-perl", "LaTeX-Driver", "0.08", "0", "6"
"liblatex-encode-perl", "LaTeX-Encode", "0.03", "1", "1"
"liblatex-table-perl", "LaTeX-Table", "1.0.6", "0", "0"
"liblayout-manager-perl", "Layout-Manager", "0.34", "0", "0"
"liblchown-perl", "Lchown", "1.01", "0", "0"
"liblexical-persistence-perl", "Lexical-Persistence", "0.98", "1", "0"
"liblingua-en-inflect-number-perl", "Lingua-EN-Inflect-Number", "1.1", "0", "0"
"liblingua-en-inflect-perl", "Lingua-EN-Inflect", "1.893", "0", "1"
"liblingua-en-inflect-phrase-perl", "Lingua-EN-Inflect-Phrase", "0.04", "0", "0"
"liblingua-en-nameparse-perl", "Lingua-EN-NameParse", "1.30", "0", "2"
Tcl-Tk-Tkwidget-Tix
view release on metacpan or search on metacpan
tclconfig/install-sh view on Meta::CPAN
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
instcmd="$mvprog"
chmodcmd=""
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
tclconfig/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
tclconfig/install-sh view on Meta::CPAN
$doit $instcmd $src $dsttmp
# and set any options; do chmod last to preserve setuid bits
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
# Now rename the file to the real destination.
Tcl-Tk-Tkwidget-treectrl
view release on metacpan or search on metacpan
shellicon/tclconfig/install-sh view on Meta::CPAN
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
instcmd="$mvprog"
chmodcmd=""
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
shellicon/tclconfig/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
shellicon/tclconfig/install-sh view on Meta::CPAN
$doit $instcmd $src $dsttmp
# and set any options; do chmod last to preserve setuid bits
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi
# Now rename the file to the real destination.
Template-TT2Site
view release on metacpan or search on metacpan
- util/image: can take a partial image object, or an image name.
Missing data (e.g. image dimensions) will be automatically filled
in (Ticket #11245).
- util/image: add optional title attribute (Ticket #11246).
- Eliminate chown warnings on setup (Ticket #11204).
* 0.94 Jan 16, 2005
- Add site.design (in page/footer).
- Add XML heading (page/html).
Template-Toolkit
view release on metacpan or search on metacpan
lib/Template/App/ttree.pm view on Meta::CPAN
unless (-d $target || $dryrun) {
mkpath($target, $verbose, $mode) or
die red("Could not mkpath ($target): $!\n");
# commented out by abw on 2000/12/04 - seems to raise a warning?
# chown($uid, $gid, $target) || warn "chown($target): $!\n";
$$n_mkdir++;
$self->emit_log( green( sprintf " + %-32s (created target directory)\n", $path ) )
if $verbose;
}
lib/Template/App/ttree.pm view on Meta::CPAN
$$n_copy++;
unless ($dryrun) {
copy($absfile, $dest) or die red("Could not copy ($absfile to $dest) : $!\n");
if ($preserve) {
chown($uid, $gid, $dest) || $self->emit_warn( red("chown($dest): $!\n") );
chmod($mode, $dest) || $self->emit_warn( red("chmod($dest): $!\n") );
}
}
$self->emit_log( green( sprintf " > %-32s (copied, matches $check)\n", $file ) )
lib/Template/App/ttree.pm view on Meta::CPAN
$template->process($file, $replace, $destfile,
$binmode ? {binmode => $binmode} : {})
|| $self->emit_log(red(" ! "), $template->error(), "\n");
if ($preserve) {
chown($uid, $gid, $dest) || $self->emit_warn( red("chown($dest): $!\n") );
chmod($mode, $dest) || $self->emit_warn( red("chmod($dest): $!\n") );
}
}
}
Term-Menus
view release on metacpan or search on metacpan
lib/Term/Menus.pm view on Meta::CPAN
4 basename
5 bash
6 cat
7 chgrp
8 chmod
9 chown
10 cp
a. Select All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
* 7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
as if the items were selected by the user. This can be done with two
constructs - simple string or pre-compiled regular expression.
Note: The C<Default> element is available only when the C<Select> element
is set to C<'Many'> - C<Select => 'Many',>
Default => 'base|chown',
Default => qr/base|chown/i,
The user sees ==>
Choose a /bin Utility :
lib/Term/Menus.pm view on Meta::CPAN
* 4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
* 9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
The I<Exclude> element provides a means to remove matching elements
from the Menu seen by the user. This element is useful only when the
C<]Convey[> macro is used to populate items. This can be done with two
constructs - simple string or pre-compiled regular expression.
Exclude => 'base|chown',
Exclude => qr/base|chown/i,
=back
=item
lib/Term/Menus.pm view on Meta::CPAN
refine the final list of items used to construct the menu. The C<Include>
element - when used - always takes presidence, and the C<Exclude> will be used
only on the C<Include> filtered results. This element can be used with
two value constructs - simple string or pre-compiled regular expression.
Include => 'base|chown',
Include => qr/base|chown/i,
=back
=item
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
([ESC] to Quit) PLEASE ENTER A CHOICE:
--< 5 >-<ENTER>----------------------------------
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4 /bin Utility - basename
- 5 /bin Utility - bash
6 /bin Utility - cat
7 /bin Utility - chgrp
8 /bin Utility - chmod
9 /bin Utility - chown
10 /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
lib/Term/Menus.pm view on Meta::CPAN
4. /bin Utility - basename
+ 5. /bin Utility - bash
6. /bin Utility - cat
7. /bin Utility - chgrp
8. /bin Utility - chmod
9. /bin Utility - chown
10. /bin Utility - cp
a. Select All c. Clear All f. FINISH
___
93 Total Choices |_v_| Scroll with ARROW keys [F1] for HELP
Term-ReadLine-Gnu
view release on metacpan or search on metacpan
syscall sysread sysseek syswrite tell telldir
truncate warn write
pack read syscall sysread syswrite unpack vec
chdir chmod chown chroot fcntl glob ioctl
link lstat mkdir open opendir readlink rename
rmdir stat symlink umask unlink utime
caller continue die do dump eval exit goto
last next redo return sub wantarray
Test-AutoBuild
view release on metacpan or search on metacpan
lib/Test/AutoBuild/Lib.pm view on Meta::CPAN
my $file = shift;
my $sb = shift;
confess "called setStats with an undefined file" unless defined $file;
confess "called setStats with an undefined sb" unless defined $sb;
chmod ($sb->mode, $file);
chown ($sb->uid, $sb->gid, $file);
}
sub delete_files {
my $dir = shift;
Test-Cmd
view release on metacpan or search on metacpan
t/writable.t view on Meta::CPAN
# Make sure we can call with the optional error-collecting hash.
# It would be good to check that this does, in fact, collect errors,
# but the only two ways I can think of to get chmod() to generate an
# error are a non-existent file (which won't happen because
# finddepth() only calls its routine for existing files) or a file
# owned by someone else. We can't rely on being able to chown()
# a file unless we're root, though, and if we're root, the file will
# be writable because root can write to anything. So just punt on
# this for now.
my %errs;
$ret = $test->writable($wdir, 0, \%errs);
Test-DBIx-Class
view release on metacpan or search on metacpan
pp_caller ../perl/lib/B/Deparse.pm /^sub pp_caller { unop(@_, "caller") }$/;" s class:Deparse
pp_chdir ../perl/lib/B/Deparse.pm /^sub pp_chdir {$/;" s class:Deparse
pp_chmod ../perl/lib/B/Deparse.pm /^sub pp_chmod { maybe_targmy(@_, \\&listop, "chmod") }$/;" s class:Deparse
pp_chomp ../perl/lib/B/Deparse.pm /^sub pp_chomp { maybe_targmy(@_, \\&unop, "chomp") }$/;" s class:Deparse
pp_chop ../perl/lib/B/Deparse.pm /^sub pp_chop { maybe_targmy(@_, \\&unop, "chop") }$/;" s class:Deparse
pp_chown ../perl/lib/B/Deparse.pm /^sub pp_chown { maybe_targmy(@_, \\&listop, "chown") }$/;" s class:Deparse
pp_chr ../perl/lib/B/Deparse.pm /^sub pp_chr { maybe_targmy(@_, \\&unop, "chr") }$/;" s class:Deparse
pp_chroot ../perl/lib/B/Deparse.pm /^sub pp_chroot { maybe_targmy(@_, \\&unop, "chroot") }$/;" s class:Deparse
pp_close ../perl/lib/B/Deparse.pm /^sub pp_close { unop(@_, "close") }$/;" s class:Deparse
pp_closedir ../perl/lib/B/Deparse.pm /^sub pp_closedir { unop(@_, "closedir") }$/;" s class:Deparse
pp_complement ../perl/lib/B/Deparse.pm /^sub pp_complement { maybe_targmy(@_, \\&pfixop, "~", 21) }$/;" s class:Deparse
( run in 1.957 second using v1.01-cache-2.11-cpan-92ad3014f07 )