view release on metacpan or search on metacpan
src/core/ngx_cycle.c view on Meta::CPAN
continue;
}
if (fi.st_uid != user) {
if (chown((const char *) file[i].name.data, user, -1) == -1) {
ngx_log_error(NGX_LOG_EMERG, cycle->log, ngx_errno,
"chown(\"%s\", %d) failed",
file[i].name.data, user);
if (ngx_close_file(fd) == NGX_FILE_ERROR) {
ngx_log_error(NGX_LOG_EMERG, cycle->log, ngx_errno,
ngx_close_file_n " \"%s\" failed",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/No/Worries/Stat.pm view on Meta::CPAN
if ($message->{group} and $stat->[ST_GID] != $option->{gid}) {
$stat->[ST_GID] = $option->{gid};
push(@todo, $message->{group});
}
return(0) unless @todo and $option->{callback}->($path, "@todo");
chown($stat->[ST_UID], $stat->[ST_GID], $path)
or dief("cannot chown(%d, %d, %s): %s",
$stat->[ST_UID], $stat->[ST_GID], $path, $!);
return(1)
}
#
lib/No/Worries/Stat.pm view on Meta::CPAN
"symlink", "unknown" and "whiteout".
=item stat_ensure(PATH[, OPTIONS])
make sure the given path has the expected file "status" (w.r.t. stat()) and
call chown(), chmod() or utime() if needed, returning the number of changes
performed; supported options:
=over
=item * C<user>: expected user name or uid
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Number/Phone/UK/DBM/Deep.pm view on Meta::CPAN
##
my @stats = stat($self->_fh);
my $perms = $stats[2] & 07777;
my $uid = $stats[4];
my $gid = $stats[5];
chown( $uid, $gid, $self->_root->{file} . '.tmp' );
chmod( $perms, $self->_root->{file} . '.tmp' );
# q.v. perlport for more information on this variable
if ( $^O eq 'MSWin32' || $^O eq 'cygwin' ) {
##
view all matches for this distribution
view release on metacpan or search on metacpan
include/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
include/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||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
view all matches for this distribution
view release on metacpan or search on metacpan
include/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
include/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
view all matches for this distribution
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|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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/OSDial.pm view on Meta::CPAN
$dir = '.' unless ($dir);
$overwrite = 0 unless ($overwrite);
unless (-e $dir) {
mkdir($dir,oct('0777'));
my ($login,$pass,$uid,$gid) = getpwnam('asterisk');
chown($uid,$gid,$dir);
}
chmod(oct('0777'),$dir);
my $file = $dir.'/'.$filename;
$self->debug(3,'media_save_file'," Adding File:%s Dir:%s Name:%s Overwrite:%s", $file, $dir, $filename, $overwrite);
lib/OSDial.pm view on Meta::CPAN
open(MSF, '>'.$file);
binmode(MSF);
print MSF $filedata;
close(MSF);
my ($login,$pass,$uid,$gid) = getpwnam('asterisk');
chown($uid,$gid,$file);
chmod(oct('0666'),$file);
return '='.$filename if ($overwrite);
return '+'.$filename;
}
lib/OSDial.pm view on Meta::CPAN
$pattern = '.*' unless ($pattern);
$self->debug(3,'media_save_files',"Adding Files:%s Pattern:%s Overwrite:%s", $dir, $pattern, $overwrite);
unless (-e $dir) {
mkdir($dir,oct('0777'));
my ($login,$pass,$uid,$gid) = getpwnam('asterisk');
chown($uid,$gid,$dir);
}
chmod(oct('0777'),$dir);
my @files;
while (my $sret = $self->sql_query("SELECT * FROM osdial_media;", "MSF")) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Object/Import.pm view on Meta::CPAN
$special_source{$_}++, $special_target{$_}++ for
qw"BEGIN UNITCHECK CHECK INIT END";
# The following names could override a builtin function if exported to a module
$special_target{$_}++ for qw"
abs accept alarm atan2 bind binmode bless break caller chdir chmod
chomp chop chown chr chroot close closedir connect continue cos
crypt dbmclose dbmopen default defined delete die do dump each
else elsif endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exists exit exp fcntl fileno flock for
foreach fork format formline getc getgrent getgrgid getgrnam
gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr
view all matches for this distribution
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|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
view all matches for this distribution
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|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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/OpenGL/Modern/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
lib/OpenGL/Modern/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
view all matches for this distribution
view release on metacpan or search on metacpan
OpenIndex.pm view on Meta::CPAN
$msg=$lang->{GIDbad} || 'GID name not found';
errmsg(qq~${cmdname}: "$igid" $msg~);
return 0;
}
}
unless($igid && chown(-1,$igid,$src)) {
$msg=$lang->{GIDset} || 'GID not set';
errmsg(qq~${cmdname}: "$name" $msg~);
return 0;
}
$r->log->notice(__PACKAGE__." $args->{user}: SetGID: $igid $src");
OpenIndex.pm view on Meta::CPAN
return 0 unless $fgid;
unless(mkdir $dst,0755) {
errmsg("${cmdname}: $!");
return 0;
}
chown(-1,$fgid,$dst);
} else {
unless(mkdir $dst,0755) {
errmsg("${cmdname}: $!");
return 0;
}
OpenIndex.pm view on Meta::CPAN
$dst.='/';
for my $member ($zip->members()) {
($name=$dst).=$member->fileName();
if($member->isDirectory()) {
mkdir $name,0775;
chown(-1,$fgid,$name);
next;
}
unless($member->extractToFileNamed($name)==AZ_OK) {
errmsg("$cmdname: $name");
return 0;
}
chown(-1,$fgid,$name);
++$files;
}
$r->log->notice(__PACKAGE__." $args->{user}: Unzip: $src files=$files");
1;
}
OpenIndex.pm view on Meta::CPAN
$dst="$dst/$target" if $src_is_dir;
unless(File::Copy::move($src, $dst)) {
errmsg("${cmdname}: $!");
return 0;
}
chown(-1,$dstgid,$dst) unless $args->{isadmin}; # admin can move others
$r->log->notice(__PACKAGE__." $args->{user}: Move: $src->$dst");
1;
}
sub Rename {
OpenIndex.pm view on Meta::CPAN
}
$bytes+=$size;
}
$args->{bytes}+=$bytes;
close DFH;
chown(-1,$fgid,$dst);
$r->log->notice(__PACKAGE__." $args->{user}: Upload: $bytes: $src->$dst");
1;
}
sub View {
OpenIndex.pm view on Meta::CPAN
print FILE $args->{text};
close FILE;
unless($exists) {
my ($parent)=$file=~m:(^.*)/.+:o;
my $fgid=(stat $parent)[5];
chown(-1,$fgid,$file);
}
$r->log->notice(__PACKAGE__." $args->{user}: EditSave: $file");
}
}
editini($r,$args,$file,"$docroot$args->{info}");
OpenIndex.pm view on Meta::CPAN
}
0;
}
sub chgid {
chown(-1,$chgid,$_[1]) if $chgid;
1;
}
sub outfile {
my ($file,$suppress) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
INSTALL.website view on Meta::CPAN
most of the time this is 'nobody'.
To do this, just run:
$ cd %%WEBSITE_DIR%%
$ chown -R nobody html/
$ chown -R nobody cache/
$ chown -R nobody overflow/
$ chown -R nobody uploads/
(7) Edit Apache virtual host configuration
Using the static/modperl configuration assumes that you have already
view all matches for this distribution
view release on metacpan or search on metacpan
share/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
share/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
view all matches for this distribution
view release on metacpan or search on metacpan
inc/File/NCopy.pm view on Meta::CPAN
utime $atime,$mtime,$file_to
unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';
# this may only work for men in white hats; on Unix
chown $uid,$gid,$file_to
unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';
1;
}
# all the actual copying is done here, folks ;)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/OpenVZ/Vzctl.pm view on Meta::CPAN
####################################
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
lib/OpenVZ/Vzctl.pm view on Meta::CPAN
=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'.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Orbital/Transfer/System/Debian.pm view on Meta::CPAN
method _install() {
if( Orbital::Transfer::System::Docker->is_inside_docker ) {
# create a non-root user
say STDERR "Creating user nonroot (this should only occur inside Docker)";
system(qw(useradd -m notroot));
system(qw(chown -R notroot:notroot /build));
}
my @packages = map {
Orbital::Transfer::RepoPackage::APT->new( name => $_ )
} qw(xvfb xauth);
$self->runner->system(
lib/Orbital/Transfer/System/Debian.pm view on Meta::CPAN
}
}
method process_git_path($path) {
if( Orbital::Transfer::System::Docker->is_inside_docker ) {
system(qw(chown -R notroot:notroot), $path);
}
}
with qw(
Orbital::Transfer::System::Role::Config
view all matches for this distribution
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
view all matches for this distribution
view release on metacpan or search on metacpan
lib/PAGI/Server.pm view on Meta::CPAN
sudo groupadd myapp
sudo usermod -aG myapp www-data # nginx user
sudo usermod -aG myapp myappuser # app user
sudo mkdir -p /var/run/myapp
sudo chown myappuser:myapp /var/run/myapp
sudo chmod 0750 /var/run/myapp
=item * B<Use systemd C<RuntimeDirectory>> for automatic directory management:
# /etc/systemd/system/myapp.service
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile (
NAME => 'PApp::SQL',
VERSION_FROM => 'SQL.pm',
'dist' => {
PREOP => 'pod2text SQL.pm | tee README >$(DISTVNAME)/README; '.
'chown -R root.root .; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
'PREREQ_PM' => {
DBI => 1.609,
view all matches for this distribution
view release on metacpan or search on metacpan
I18n/I18n.pm view on Meta::CPAN
sub export_dpo($$;$$) {
my ($domain, $path, $uid, $gid, $attr) = @_;
local $PApp::SQL::DBH = PApp::Config::DBH;
mkdir $path, defined $attr ? $attr | 0111 : 0755;
chown $uid, $gid, $path if defined $uid;
unlink for glob "$path/*.dpo";
for my $lang (sql_fetchall "select distinct s.lang
from msgid i, msgstr s
where i.domain = ? and i.nr = s.nr",
$domain) {
I18n/I18n.pm view on Meta::CPAN
my $dpo = new PApp::I18n::DPO_Writer "$pofile~", $prime;
while ($st->fetch) {
$dpo->add(utf8_on $id,utf8_on $msg) if $id ne $msg;
}
undef $dpo;
chown $uid, $gid, "$pofile~" if defined $uid;
chmod $attr, "$pofile~" if defined $attr;
rename "$pofile~", $pofile;
push @files, $pofile;
} else {
unlink $pofile;
view all matches for this distribution
view release on metacpan or search on metacpan
sndlib/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}"
mkdirprog="${MKDIRPROG-mkdir}"
transformbasename=""
transform_arg=""
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
sndlib/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
sndlib/install-sh view on Meta::CPAN
if [ x"$dir_arg" != x ]
then
$doit $instcmd $dst &&
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
else
sndlib/install-sh view on Meta::CPAN
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $instcmd $src $dsttmp" command.
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
# Now rename the file to the real destination.
view all matches for this distribution
view release on metacpan or search on metacpan
matio-1.5.0/config/install-sh view on Meta::CPAN
# Put in absolute file names if you don't have them in your path;
# or use environment vars.
chgrpprog=${CHGRPPROG-chgrp}
chmodprog=${CHMODPROG-chmod}
chownprog=${CHOWNPROG-chown}
cmpprog=${CMPPROG-cmp}
cpprog=${CPPROG-cp}
mkdirprog=${MKDIRPROG-mkdir}
mvprog=${MVPROG-mv}
rmprog=${RMPROG-rm}
matio-1.5.0/config/install-sh view on Meta::CPAN
# Desired mode of installed file.
mode=0755
chgrpcmd=
chmodcmd=$chmodprog
chowncmd=
mvcmd=$mvprog
rmcmd="$rmprog -f"
stripcmd=
src=
matio-1.5.0/config/install-sh view on Meta::CPAN
-c (ignored)
-C install only if different (preserve the last data modification time)
-d create directories instead of installing files.
-g GROUP $chgrpprog installed files to GROUP.
-m MODE $chmodprog installed files to MODE.
-o USER $chownprog installed files to USER.
-s $stripprog installed files.
-t DIRECTORY install into DIRECTORY.
-T report an error if DSTFILE is a directory.
Environment variables override the default commands:
matio-1.5.0/config/install-sh view on Meta::CPAN
echo "$0: invalid mode: $mode" >&2
exit 1;;
esac
shift;;
-o) chowncmd="$chownprog $2"
shift;;
-s) stripcmd=$stripprog;;
-t) dst_arg=$2
matio-1.5.0/config/install-sh view on Meta::CPAN
fi
fi
fi
if test -n "$dir_arg"; then
{ test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
{ test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
else
# Make a couple of temp file names in the proper directory.
dsttmp=$dstdir/_inst.$$_
matio-1.5.0/config/install-sh view on Meta::CPAN
#
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $cpprog $src $dsttmp" command.
#
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
{ test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
{ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
# If -C, don't bother to copy if it wouldn't change the file.
view all matches for this distribution
view release on metacpan or search on metacpan
t/helpers/travis-setup.sh view on Meta::CPAN
sudo service postgresql stop
sudo pg_createcluster -u travis $PGVERSION replica # PORT 5434
sudo sh -c "cat t/helpers/config/main.conf >> /etc/postgresql/$PGVERSION/replica/postgresql.conf"
sudo rm -rf ~postgres/$PGVERSION/replica
sudo cp -r ~postgres/$PGVERSION/main2 ~postgres/$PGVERSION/replica
sudo chown -R travis ~postgres/$PGVERSION/replica
sudo cp t/helpers/config/recovery.conf ~postgres/$PGVERSION/replica
sudo sh -c "cat t/helpers/config/replica.conf >> /etc/postgresql/$PGVERSION/replica/postgresql.conf"
sudo sh -c "echo 'local replication travis trust' >> /etc/postgresql/$PGVERSION/main2/pg_hba.conf"
sudo service postgresql start $PGVERSION
view all matches for this distribution
view release on metacpan or search on metacpan
lib/PHP/Decode/Func.pm view on Meta::CPAN
is_file => {},
is_dir => {},
is_link => {},
stat => {},
lstat => {},
chown => {},
chgrp => {},
lchown => {},
lchgrp => {},
chmod => {},
touch => {},
clearstatcache => {},
disk_total_space => {},
view all matches for this distribution
view release on metacpan or search on metacpan
basiclib/Config.pm-txt view on Meta::CPAN
cf_email='support@ActiveState.com'
cf_time='Tue Feb 4 15:34:07 2003'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm=''
compress=''
contains='grep'
cp='copy'
basiclib/Config.pm-txt view on Meta::CPAN
d_bsdsetpgrp='undef'
d_bzero='undef'
d_casti32='undef'
d_castneg='define'
d_charvspr='undef'
d_chown='undef'
d_chroot='undef'
d_chsize='define'
d_closedir='define'
d_const='define'
d_crypt='define'
basiclib/Config.pm-txt view on Meta::CPAN
d_endpwent='undef'
d_endsent='undef'
d_eofnblk='define'
d_eunice='undef'
d_fchmod='undef'
d_fchown='undef'
d_fcntl='undef'
d_fcntl_can_lock='undef'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'
basiclib/Config.pm-txt view on Meta::CPAN
d_int64_t='undef'
d_isascii='define'
d_isnan='define'
d_isnanl='undef'
d_killpg='undef'
d_lchown='undef'
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf='undef'
d_longdbl='define'
basiclib/Config.pm-txt view on Meta::CPAN
From F<Loc.U>:
This variable is defined but not used by Configure.
The value is a plain '' and is not useful.
=item C<chown>
From F<Loc.U>:
This variable is defined but not used by Configure.
The value is a plain '' and is not useful.
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines C<CHARVSPRINTF> if this system
has vsprintf returning type (char*). The trend seems to be to
declare it as "int vsprintf()".
=item C<d_chown>
From F<d_chown.U>:
This variable conditionally defines the C<HAS_CHOWN> symbol, which
indicates to the C program that the chown() routine is available.
=item C<d_chroot>
From F<d_chroot.U>:
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines the C<HAS_FCHMOD> symbol, which
indicates to the C program that the fchmod() routine is available
to change mode of opened files.
=item C<d_fchown>
From F<d_fchown.U>:
This variable conditionally defines the C<HAS_FCHOWN> symbol, which
indicates to the C program that the fchown() routine is available
to change ownership of opened files.
=item C<d_fcntl>
From F<d_fcntl.U>:
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines the C<HAS_KILLPG> symbol, which
indicates to the C program that the killpg() routine is available
to kill process groups.
=item C<d_lchown>
From F<d_lchown.U>:
This variable conditionally defines the C<HAS_LCHOWN> symbol, which
indicates to the C program that the lchown() routine is available
to operate on a symbolic link (instead of following the link).
=item C<d_ldbl_dig>
From F<d_ldbl_dig.U>:
view all matches for this distribution
view release on metacpan or search on metacpan
basiclib/Config.pm-txt view on Meta::CPAN
cf_email='support@ActiveState.com'
cf_time='Tue Feb 4 15:34:07 2003'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm=''
compress=''
contains='grep'
cp='copy'
basiclib/Config.pm-txt view on Meta::CPAN
d_bsdsetpgrp='undef'
d_bzero='undef'
d_casti32='undef'
d_castneg='define'
d_charvspr='undef'
d_chown='undef'
d_chroot='undef'
d_chsize='define'
d_closedir='define'
d_const='define'
d_crypt='define'
basiclib/Config.pm-txt view on Meta::CPAN
d_endpwent='undef'
d_endsent='undef'
d_eofnblk='define'
d_eunice='undef'
d_fchmod='undef'
d_fchown='undef'
d_fcntl='undef'
d_fcntl_can_lock='undef'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'
basiclib/Config.pm-txt view on Meta::CPAN
d_int64_t='undef'
d_isascii='define'
d_isnan='define'
d_isnanl='undef'
d_killpg='undef'
d_lchown='undef'
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf='undef'
d_longdbl='define'
basiclib/Config.pm-txt view on Meta::CPAN
From F<Loc.U>:
This variable is defined but not used by Configure.
The value is a plain '' and is not useful.
=item C<chown>
From F<Loc.U>:
This variable is defined but not used by Configure.
The value is a plain '' and is not useful.
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines C<CHARVSPRINTF> if this system
has vsprintf returning type (char*). The trend seems to be to
declare it as "int vsprintf()".
=item C<d_chown>
From F<d_chown.U>:
This variable conditionally defines the C<HAS_CHOWN> symbol, which
indicates to the C program that the chown() routine is available.
=item C<d_chroot>
From F<d_chroot.U>:
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines the C<HAS_FCHMOD> symbol, which
indicates to the C program that the fchmod() routine is available
to change mode of opened files.
=item C<d_fchown>
From F<d_fchown.U>:
This variable conditionally defines the C<HAS_FCHOWN> symbol, which
indicates to the C program that the fchown() routine is available
to change ownership of opened files.
=item C<d_fcntl>
From F<d_fcntl.U>:
basiclib/Config.pm-txt view on Meta::CPAN
This variable conditionally defines the C<HAS_KILLPG> symbol, which
indicates to the C program that the killpg() routine is available
to kill process groups.
=item C<d_lchown>
From F<d_lchown.U>:
This variable conditionally defines the C<HAS_LCHOWN> symbol, which
indicates to the C program that the lchown() routine is available
to operate on a symbolic link (instead of following the link).
=item C<d_ldbl_dig>
From F<d_ldbl_dig.U>:
view all matches for this distribution
view release on metacpan or search on metacpan
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
compilador conoce el contexto en tiempo de compilación. Se generará aquà el
operador coma, no la versión de concatenación de listas de la propia coma.
Esto significa que nunca será una lista.
En general, funciones en Perl que sirven como envoltorios para llamadas al
sistema ("syscalls") del mismo nombre (como L<chown(2)>, L<fork(2)>,
L<closedir(2)>, etc.) devuelven verdadero cuando tienen éxito, y
L<C<undef>|/undef EXPR> en otro caso, como se menciona en las siguientes
descripciones. Esto es diferente de las interfaces en C, que devuelven C<-1> en
caso de error. Excepciones a esta regla incluyen a L<C<wait>|/wait>,
L<C<waitpid>|/waitpid PID,INDICADORES> y L<C<syscall>|/syscall NÃMERO, LISTA>.
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink> X<archivo> X<identificador de archivo> X<enlace>
=for Pod::Functions =File
L<C<-I<X>>|/-X IDENTIFICADOR_ARCHIVO>, L<C<chdir>|/chdir EXPR>,
L<C<chmod>|/chmod LISTA>, L<C<chown>|/chown LISTA>, L<C<chroot>|/chroot
NOMBRE_ARCHIVO>, L<C<fcntl>|/fcntl IDENTIFICADOR_ARCHIVO,FUNCIÃN,ESCALAR>,
L<C<glob>|/glob EXPR>, L<C<ioctl>|/ioctl
IDENTIFICADOR_ARCHIVO,FUNCIÃN,ESCALAR>, L<C<link>|/link
ARCHIVO_VIEJO,ARCHIVO_NUEVO>, L<C<lstat>|/lstat IDENTIFICADOR_ARCHIVO>,
L<C<mkdir>|/mkdir NOMBRE_ARCHIVO,MÃSCARA>, L<C<open>|/open
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
sistema Unix pueden no estar disponibles, o los detalles de la funcionalidad
disponible pueden diferir ligeramente. Las funciones Perl afectadas por esto
son:
L<C<-I<X>>|/-X IDENTIFICADOR_ARCHIVO>, L<C<binmode>|/binmode
IDENTIFICADOR_ARCHIVO, CAPA>, L<C<chmod>|/chmod LISTA>, L<C<chown>|/chown
LISTA>, L<C<chroot>|/chroot NOMBRE_ARCHIVO>, L<C<crypt>|/crypt
TEXTOPLANO,SALTO>, L<C<dbmclose>|/dbmclose HASH>, L<C<dbmopen>|/dbmopen
HASH,NOMBRE_BASE_DATOS,MÃSCARA>, L<C<dump>|/dump ETIQUETA>,
L<C<endgrent>|/endgrent>, L<C<endhostent>|/endhostent>,
L<C<endnetent>|/endnetent>, L<C<endprotoent>|/endprotoent>,
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
Note que L<C<chop>|/chop VARIABLE> devuelve el último carácter. Para devolver
todos menos el último carácter, use C<substr($string, 0, -1)>.
Vea también L<C<chomp>|/chomp VARIABLE>.
=item chown LISTA
X<chown> X<owner> X<user> X<group> X<propietario> X<usuario> X<grupo>
=for Pod::Functions change the ownership on a list of files
Cambia el propietario (y grupo) de una lista de archivos. Los primeros dos
elementos de la lista deben ser el valor I<numérico> del uid y gid, en este
orden. Un valor de -1 en cualquier posición es interpretado en la mayorÃa de
los sistemas como que se deja el actual valor sin cambiar. Devuelve el número
de archivos cambiados con éxito.
my $cnt = chown $uid, $gid, 'foo', 'bar';
chown $uid, $gid, @archivos;
En sistemas que soporten L<fchown(2)>, puede pasar identificadores de archivo
entre los archivos. En sistemas que no admiten L<fchown(2)>, pasar un
identificador de archivo lanza una excepción. Identificadores de archivo se
deben pasar como comodines o referencias a comodines para que sean reconocidos;
las palabras sueltas se consideran como nombres de archivo.
Aquà hay un ejemplo que obtiene el uid numérico a partir del archivo de
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
my ($login,$pass,$uid,$gid) = getpwnam($usuario)
or die "$usuario no está en archivo de contraseñas";
my @ary = glob($patron); # expande los nombres de los archivos
chown $uid, $gid, @ary;
En la mayorÃa de los sistemas, no se le permite cambiar la propiedad del
archivo a menos que sea el superusuario, aunque sà pueda cambiar el grupo a
cualquiera de sus grupos secundarios. En sistemas inseguros, estas
restricciones pueden estar más relajadas, pero no es una suposición normal.
En sistemas POSIX, puede detectar esta condición de esta manera:
use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
my $puede_hacer_chown = ! sysconf(_PC_CHOWN_RESTRICTED);
Cuestiones de portabilidad: L<perlport/chown>.
=item chr NÃMERO
X<chr> X<character> X<ASCII> X<Unicode> X<carácter>
=item chr
view all matches for this distribution
view release on metacpan or search on metacpan
FR/perlfunc.pod view on Meta::CPAN
générerait ici l'opérateur scalaire virgule, et non pas la version
construction de liste de la virgule. Ce qui signifie que ça n'a jamais été
considéré comme une liste avec laquelle travailler.
En général, les fonctions en Perl qui encapsulent les appels système du même
nom (comme chown(2), fork(2), closedir(2), etc.) retournent toutes vrai quand
elles réussissent et C<undef> sinon, comme c'est souvent mentionné
ci-dessous. C'est différent des S<interfaces C> qui retournent C<-1> en cas
d'erreur. Les exceptions à cette règle sont C<wait>, C<waitpid()> et
C<syscall()>. Les appels système positionnent aussi la variable spéciale C<$!>
en cas d'erreur. Les autres fonctions ne le font pas, sauf de manière
FR/perlfunc.pod view on Meta::CPAN
C<pack>, C<read>, C<syscall>, C<sysread>, C<syswrite>, C<unpack>, C<vec>
=item Fonctions de descripteurs de fichiers, de fichiers ou de répertoires
X<fichier> X<filehandle> X<descripteur de fichier> X<répertoire> X<tube> X<lien> X<lien symbolique>
C<-I<X>>, C<chdir>, C<chmod>, C<chown>, C<chroot>, C<fcntl>, C<glob>,
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<umask>, C<unlink>,
C<utime>
=item Mots-clés liés au contrôle d'exécution de votre programme Perl
FR/perlfunc.pod view on Meta::CPAN
Perl est né sur Unix et peut, par conséquent, accéder à tous les appels
systèmes Unix courants. Dans des environnements non-Unix, les fonctionnalités
de certains appels systèmes Unix peuvent manquer ou différer sur certains
détails. Les fonctions Perl affectées par cela S<sont :>
C<-X>, C<binmode>, C<chmod>, C<chown>, C<chroot>, C<crypt>,
C<dbmclose>, C<dbmopen>, C<dump>, C<endgrent>, C<endhostent>,
C<endnetent>, C<endprotoent>, C<endpwent>, C<endservent>, C<exec>,
C<fcntl>, C<flock>, C<fork>, C<getgrent>, C<getgrgid>, C<gethostbyname>,
C<gethostent>, C<getlogin>, C<getnetbyaddr>, C<getnetbyname>, C<getnetent>,
C<getppid>, C<getpgrp>, C<getpriority>, C<getprotobynumber>,
FR/perlfunc.pod view on Meta::CPAN
Notez que C<chop()> retourne le dernier caractère. Pour retourner tout
sauf le dernier caractère, utilisez C<substr($string, 0, -1)>.
Voir aussi L</chomp>.
=item chown LISTE
X<chown> X<propriétaire> X<utilisateur> X<groupe>
Change le propriétaire (et le groupe) d'une liste de fichiers. Les
deux premiers éléments de la liste doivent être, dans l'ordre, les uid
et gid I<numériques>. Une valeur -1 à l'une de ces positions est
interprétée par la plupart des systèmes comme une valeur à ne pas
modifier. Retourne le nombre de fichiers modifiés avec succès.
$cnt = chown $uid, $gid, 'foo', 'bar';
chown $uid, $gid, @filenames;
Sur les systèmes qui connaissent fchown, vous pouvez utiliser des
descripteurs de fichier à la place des noms de fichier. Sur les
systèmes ne connaissant pas fchown, cela produira une erreur fatal
lors de l'exécution.
Voici un exemple qui cherche les uid non numériques dans le fichier de
mots de S<passe :>
FR/perlfunc.pod view on Meta::CPAN
($login,$pass,$uid,$gid) = getpwnam($user)
or die "$user not in passwd file";
@ary = glob($pattern); # expansion des noms de fichiers
chown $uid, $gid, @ary;
Sur la plupart des systèmes, vous n'êtes pas autorisé à changer le
propriétaire d'un fichier à moins d'être le super-utilisateur, même si avez la
possibilité de changer un groupe en l'un de vos groupes secondaires. Sur les
systèmes non sécurisés, ces restrictions peuvent être moindres, mais ceci
n'est pas une hypothèse portable. Sur les systèmes POSIX, vous pouvez détecter
cette condition de la manière S<suivante :>
use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
$can_chown_giveaway = not sysconf(_PC_CHOWN_RESTRICTED);
=item chr NOMBRE
X<chr> X<caractère> X<ASCII> X<Unicode>
=item chr
view all matches for this distribution