view release on metacpan or search on metacpan
src/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
src/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 release on metacpan or search on metacpan
src/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
src/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 release on metacpan or search on metacpan
src/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
src/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 release on metacpan or search on metacpan
src/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
src/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 release on metacpan or search on metacpan
src/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
src/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 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 release on metacpan or search on metacpan
lib/Egg/Release.pm view on Meta::CPAN
% chmod 777 cache tmp
or
% chown webserver cache tmp
The access authority from the WEB server is set.
=head2 Model
lib/Egg/Release.pm view on Meta::CPAN
The work file of L<HTML::Mason> is temporarily deleted if normally displayed.
% rm -rf /path/to/MyApp/tmp/*
# It is also good to change the owner.
% chown -R webserver /path/to/MyApp/tmp
Because this tutorial explains the method of constructing the application, the
method of setting these is omitted only though it is made to set 'mod_perl' and
'FastCGI' and to display by a browser now. Please see at the document of L<Egg>
in detail.
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 avialable 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)) {
view release on metacpan or search on metacpan
t/data/busybox.ecd view on Meta::CPAN
#
# /bin/busybox
# /bin/cat y
# /bin/chgrp y
# /bin/chmod y
# /bin/chown y
# /bin/cp y
# /bin/date y
# /bin/dd y
# /bin/df y
# /bin/dmesg y
t/data/busybox.ecd view on Meta::CPAN
<PROVIDES>
cat
</PROVIDES>
</OPTION>
<OPTION keep-bb-chmod-chown-chrgrp>
TYPE=bool
DEFAULT_VALUE=1
PROMPT=Include /bin/chmod, /bin/chown, /bin/chgrp?
<HELP>
chmod -- change file access permissions.
chown -- change file ownership.
chgrp -- change file group ownership.
</HELP>
STATIC_SIZE=4401
MIN_DYNAMIC_SIZE=0
STORAGE_SIZE=4376
t/data/busybox.ecd view on Meta::CPAN
<BUILD_VARS>
BB_CHMOD_CHOWN_CHGRP=BB_CHMOD_CHOWN_CHGRP
</BUILD_VARS>
<KEEPLIST>
/bin/chmod
/bin/chown
/bin/chgrp
</KEEPLIST>
<PROVIDES>
chmod
chown
chgrp
</PROVIDES>
</OPTION>
<OPTION keep-bb-cp-mv>
view release on metacpan or search on metacpan
t/reset_perms.pl view on Meta::CPAN
chown $<, '.perldb';
chmod 0644, '.perldb';
1;
view release on metacpan or search on metacpan
lib/English/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/English/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 release on metacpan or search on metacpan
lib/Error/SystemException.pm view on Meta::CPAN
or throw Error::SystemException( "mkdir($dir)" );
try {
chmod( $mode, $dir )
or throw Error::SystemException( "chmod($dir)" );
chown( $uid, $gid, $dir )
or throw Error::SystemException( "chown($dir)" );
}
catch Error with {
my $e = shift;
rmdir( $dir );
$e->throw;
view release on metacpan or search on metacpan
examples/perl_keyword.pl view on Meta::CPAN
if last local m my map next no our pos print printf package
prototype q qr qq qw qx redo return require s scalar sort split
study sub tr tie tied use undef until untie unless while y);
my @neg = qw(__FILE__ __LINE__ __PACKAGE__ and abs alarm atan2 accept bless
bind binmode CORE cmp chr cos chop close chdir chomp chmod chown
crypt chroot caller connect closedir continue die dump dbmopen
dbmclose eq eof err exp exit exec each endgrent endpwent
endnetent endhostent endservent endprotoent fork fcntl flock
fileno formline getppid getpgrp getpwent getpwnam getpwuid
getpeername getprotoent getpriority getprotobyname
examples/perl_keyword.pl view on Meta::CPAN
getlogin: 158
reset: 127
gethostbyaddr: 68
getgrgid: 67
srand: 41
chown: 34
seekdir: 20
readline: 19
semctl: 17
getpwent: 12
getgrnam: 11
view release on metacpan or search on metacpan
bundled/File-Temp/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;
bundled/File-Temp/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.
bundled/File-Temp/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 avialable 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)) {
bundled/File-Temp/File/Temp.pm view on Meta::CPAN
for sticky bit.
=item HIGH
In addition to the MEDIUM security checks, also check for the
possibility of ``chown() giveaway'' using the L<POSIX|POSIX>
sysconf() function. If this is a possibility, each directory in the
path is checked in turn for safeness, recursively walking back to the
root directory.
For platforms that do not support the L<POSIX|POSIX>
C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is
assumed that ``chown() giveaway'' is possible and the recursive test
is performed.
=back
The level can be changed as follows:
view release on metacpan or search on metacpan
lib/Extism/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/Extism/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 release on metacpan or search on metacpan
(or a link to one) there in advance:
...
% mv fom /usr/local/etc/httpd/cgi-bin/fom
% mkdir /usr/local/etc/httpd/cgi-bin/meta
% chown nobody /usr/local/etc/httpd/cgi-bin/meta
% netscape http://localhost/cgi-bin/fom
or
...
% mv fom /usr/local/etc/httpd/cgi-bin/fom
% mkdir /somewhere/else/meta
% chown nobody /somewhere/else/meta
% ln -s /somewhere/else/meta /usr/local/etc/httpd/cgi-bin/meta
% netscape http://localhost/cgi-bin/fom
* If you'd rather not even put a link in that directory, modify the
fom CGI stub to name the meta directly:
view release on metacpan or search on metacpan
lib/FAST/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
eval "fn @pre @post" or die $@;
}
my @builtin = qw(
abs accept alarm atan2 bind binmode bless caller chdir chmod chomp
chop chown chr chroot close closedir connect cos crypt dbmclose dbmopen
default defined die do endgrent endhostent endnetent endprotoent
endpwent endservent eof eval exec exit exp fcntl fileno flock fork
formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent
lib/FAST/List/Gen/Lazy/Builtins.pm view on Meta::CPAN
my $x = &shift(\@array); # must use parens and manually take the reference
the implemented functions are:
abs accept alarm atan2 bind binmode bless caller chdir chmod chomp chop
chown chr chroot close closedir connect cos crypt dbmclose dbmopen default
defined die do endgrent endhostent endnetent endprotoent endpwent
endservent eof eval exec exit exp fcntl fileno flock fork formline getc
getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid getpriority
getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid
view release on metacpan or search on metacpan
lib/FCGI/Daemon.pm view on Meta::CPAN
FCGI::OpenSocket($o{sockfile},$o{prefork}*$o{queue}),
FCGI::FAIL_ACCEPT_ON_INTR())
or die "Error: Unable to create FCGI::Request...";
if(defined $o{gid_num} and defined $o{uid_num}){ # if run as root
chown $o{uid_num},$o{gid_num},$o{sockfile} # chown SOCKfile
or dieif($OS_ERROR,'Unable to chown SOCKfile');
}
$o{fcgi_pm}->pm_manage(); # from now on we are worker process
# drop privileges if run as root
view release on metacpan or search on metacpan
lib/FCGI/Spawn.pm view on Meta::CPAN
FCGI::Spawn->new->spawn;
Never put this in production use. The C<fcgi_spawn> script supplied should care about sadly mandatory whistles and bells, at least the security is a king in sight of this:
FCGI::Spawn code should be run as its own user id, and the web server should be configured to request its FastCGI; in the case the local socket file is used, the web server should have the read and write permissions on it, the default name is /tmp/sp...
Consider about sock_chmod/sock_chown parameters for this, too.
In the case if you request via TCP care should be taken on network security like DMZ/VPN/firewalls setup instead of sock_* parameters.
About the ready to run applications compatibility refer to C<fcgi_spawn> docs.
lib/FCGI/Spawn.pm view on Meta::CPAN
=head2 new({hash parameters})
Class method.
Constructs a new process manager.
Takes an option hash of the sock_name and sock_chown initial parameter values, and passes the entire hash rest to ProcManager's constructor.
The parameters are:
=over
=item * $ENV{FCGI_SOCKET_PATH}
lib/FCGI/Spawn.pm view on Meta::CPAN
or you can enclose it into the eval() like that:
$ENV{FCGI_SOCKET_PATH} = '/var/lib/fcgi.sock';
eval( "use FCGI::Spawn;" ); die $@ if $@;
=item * sock_chown
is the array reference which sets the parameters for chown() builtin on newly created socket, when needed.
Default: none.
=item * readchunk
is the buffer size for user's source reading in plsrc function.
lib/FCGI/Spawn.pm view on Meta::CPAN
else {
$properties = $defaults;
}
my $proc_manager = FCGI::ProcManager->new($properties);
my $sock_name = $ENV{FCGI_SOCKET_PATH};
if ( defined $properties->{sock_chown} ) {
chown( @{ $properties->{sock_chown} }, $sock_name )
or die $!;
}
if ( defined $properties->{sock_chmod} ) {
chmod( $properties->{sock_chmod}, $sock_name )
or die $!;
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
set -ex
cip sudo apt-get update
cip sudo apt-get install libffi-dev
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip exec bash -c 'mkdir $TMPDIR'
cip sudo apt-get update
cip sudo apt-get install libffi-dev
cip pkg golang
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
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 release on metacpan or search on metacpan
deps/libffi/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}
deps/libffi/install-sh view on Meta::CPAN
# Desired mode of installed file.
mode=0755
chgrpcmd=
chmodcmd=$chmodprog
chowncmd=
mvcmd=$mvprog
rmcmd="$rmprog -f"
stripcmd=
src=
deps/libffi/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:
deps/libffi/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
deps/libffi/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.$$_
deps/libffi/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 release on metacpan or search on metacpan
lib/FWS/V2/Admin.pm view on Meta::CPAN
$errorReturn .= "</li></ul><br/>";
}
else {
if ( !$self->_testDirWritePermission( $newDir ) ) {
$errorReturn .= "<ul><li>The directory '" . $newDir . "' is not web server writable.<br/>";
$errorReturn .= "<ul><li>Usually this means changing your file permissions for this directly using: chmod 755 " . $newDir . "</li><li>chmod style permissions can also be done though web based server administration programs or even FTP if ...
$errorReturn .= "</li></ul><br/>";
}
}
return $errorReturn;
}
view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/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 owership 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
view release on metacpan or search on metacpan
lib/Fauxtobox.pm view on Meta::CPAN
bless => defined &CORE::bless ? \&CORE::bless : sub { bless $_[0], @_ > 1 ? $_[1] : scalar caller },
_scalar('chdir'),
_xlist(1, 'chmod'),
_xlist(0, 'chomp'),
_xlist(0, 'chop'),
_xlist(2, 'chown'),
_scalar('chr'),
_scalar('chroot'),
_scalar('cos'),
_fixed(2, 'crypt'),
defined => sub { defined $_[0] },
lib/Fauxtobox.pm view on Meta::CPAN
C<< $X->$_chop >> is equivalent to C<< chop @{$X} >> if C<$X> is an array
reference and C<< chop $X >> otherwise.
See L<perlfunc/chop>.
=item $_chown
C<< $X->$_chown($UID, $GID) >> is equivalent to
C<< chown $UID, $GID, @{$X} >> if C<$X> is an array reference and
C<< chown $UID, $GID, $X >> otherwise.
See L<perlfunc/chown>.
=item $_chr
C<< $X->$_chr >> is equivalent to C<< chr $X >>.
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 release on metacpan or search on metacpan
lib/File/Append/TempFile.pm view on Meta::CPAN
$self->err("Could not chmod $self->{stat}->[2] ".
"$f: $!");
return undef;
}
# Owner & group
if (!chown $self->{stat}->[4], $self->{stat}->[5], $f) {
$self->err("Could not chown $self->{stat}->[4], ".
"$self->{stat}->[5], $f: $!");
return undef;
}
}
view release on metacpan or search on metacpan
lib/File/Append/Undoable.pm view on Meta::CPAN
or return [500, "Can't copy from $res->[2]: $!"];
open my($fh), ">>", $path or return [500, "Can't open for append: $!"];
print $fh $string;
close $fh or return [500, "Can't close: $!"];
chmod $st[2] & 07777, $path; # XXX ignore error?
unless ($>) { chown $st[4], $st[5], $path } # XXX ignore error?
return [200, "OK"];
}
[400, "Invalid -tx_action"];
}
view release on metacpan or search on metacpan
lib/File/At.pm view on Meta::CPAN
push(@EXPORT_OK,qw( dir open_fd_at open_fh_at ));
# raw bindings (callable directly if you want)
push(@EXPORT_OK,qw(
openat fstatat unlinkat mkdirat mknodat
mkfifoat fchmodat fchownat utimensat linkat
symlinkat readlinkat renameat renameat2 faccessat
futimesat
)
);
};
lib/File/At.pm view on Meta::CPAN
$ffi->attach( mkfifoat => ['int','string','mode_t'] => 'int' );
# int fchmodat(int dirfd, const char *pathname, mode_t mode, int flags);
$ffi->attach( fchmodat => ['int','string','mode_t','int'] => 'int' );
# int fchownat(int dirfd, const char *pathname,
# uid_t owner, gid_t group, int flags);
$ffi->attach( fchownat => ['int','string','uid_t','gid_t','int'] => 'int' );
# int utimensat(int dirfd, const char *pathname,
# const struct timespec times[2], int flags);
$ffi->attach( utimensat => ['int','string','opaque','int'] => 'int' );