view release on metacpan or search on metacpan
lib/ACME/QuoteDB.pm view on Meta::CPAN
=item * By default, the quotes database used by this module installs in the
system path, 'lib', (See L<Module::Build/"INSTALL PATHS">)
as world writable - i.e. 0666 (and probably owned by root)
If you don't like this, you can modify Build.PL to not chmod the file and it
will install as 444/readonly, you can also set a chown in there for whoever
you want to have RW access to the quotes db.
Alternativly, one can specify a location to a quotes database (file) to use.
(Since the local mode is sqlite3, the file doesn't even need to exist, just
needs read/write access to the path on the filesystem)
view release on metacpan or search on metacpan
lib/AFS/Command/PTS.pod view on Meta::CPAN
cell => $cell,
noauth => 1,
force => 1,
);
=head2 chown
The pts help string is:
pts chown: change ownership of a group
Usage: pts chown -name <group name> -owner <new owner>
[-cell <cell name>] [-noauth] [-force]
The corresponding method invocation looks like:
my $result = $pts->chown
(
# Required arguments
name => $name,
owner => $owner,
# Optional arguments
view release on metacpan or search on metacpan
examples/v2/ktct/tokens
examples/v2/ktct/UserAuthenticateGeneral
examples/v2/pts/adduser
examples/v2/pts/ascii2ptsaccess
examples/v2/pts/chid
examples/v2/pts/chown
examples/v2/pts/constructor
examples/v2/pts/creategroup
examples/v2/pts/createuser
examples/v2/pts/delete
examples/v2/pts/dumpentry
view release on metacpan or search on metacpan
scripts/arcxd.conf view on Meta::CPAN
fs = Fs
vos = Fs
pv = Pv
chown = Unix
mkdir = Unix
rmdir = Unix
mv = Unix
acl = Acl
view release on metacpan or search on metacpan
Version 3.000.012, 2006/12/20, Central and Distributed support
- added common variable TYPEMONITORING to Asnmtap.cnf
fixRights.sh
- updated: script om rechten (chmod en chown) te zetten
Makefile.PL
- version update CPAN 1.8802 & CPANPLUS 0.076
- version update ExtUtils::MakeMaker 6.31
- version update Module::AutoInstall 1.03
- version update Bundle::DBI 1.53
view release on metacpan or search on metacpan
docs/ACEDB.HOWTO view on Meta::CPAN
To run the server as acedb, you must make its database files writable
by the acedb user. To do this, become the root user, and run the
following commands:
# chown -R acedb ~acedb/elegans/database
# chgrp -R acedb ~acedb/elegans/database
# chmod -R +rw ~acedb/elegans/database
Replace the path ~acedb/elegans with the path to the database that you
want to be accessible. What this is doing is to make the "database"
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip exec mkdir -p /home/cip/tmp
cip sudo apt-get update
cip sudo apt-get -y install libffi-dev g++
cip sudo bash -c 'curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x'
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
cip exec bash -c 'env ALIEN_INSTALL_TYPE=system cpanm -n FFI::Platypus'
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip exec mkdir -p /home/cip/tmp
cip sudo apt-get update
cip sudo apt-get -y install libffi-dev g++
cip sudo bash -c "env $CIP_ENV curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x"
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
cip exec bash -c 'env ALIEN_INSTALL_TYPE=system cpanm -n FFI::Platypus'
view release on metacpan or search on metacpan
bin/mboxextract view on Meta::CPAN
write_file($writename, {binmode => ':raw'}, $file->contents );
chmod $file->mode, $writename or warn "$0: chmod $writename: $!\n";
if ($> == 0) {
chown $file->uid, $file->gid, $writename or warn "$0: chown $writename: $!\n";
}
}
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
{
module => 'PerlPowerTools',
script => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
/],
'x.command' => [qw/
addbib apply ar arch arithmetic asa awk banner base64 basename
bc bcd cal cat chgrp ching chmod chown clear cmp col colrm comm
cp cut date dc deroff diff dirname du echo ed env expand expr
factor false file find fish fmt fold fortune from glob grep
hangman head hexdump id install join kill ln lock look ls mail
maze mimedecode mkdir mkfifo moo morse nl od par paste patch pig
ping pom ppt pr primes printenv printf pwd rain random rev rm
lib/Acme/CPANModules/UnixCommandImplementations.pm view on Meta::CPAN
=over
=item L<PerlPowerTools>
Scripts: L<addbib>, L<apply>, L<ar>, L<arch>, L<arithmetic>, L<asa>, L<awk>, L<banner>, L<base64>, L<basename>, L<bc>, L<bcd>, L<cal>, L<cat>, L<chgrp>, L<ching>, L<chmod>, L<chown>, L<clear>, L<cmp>, L<col>, L<colrm>, L<comm>, L<cp>, L<cut>, L<date>...
=back
=head1 FAQ
view release on metacpan or search on metacpan
lib/Acme/Claude/Shell/Tools.pm view on Meta::CPAN
=item * C<sudo> commands
=item * C<mkfs>, C<dd of=>, device writes
=item * C<chmod 777>, C<chown -R>
=item * C<kill -9>, C<reboot>, C<shutdown>, C<halt>, C<poweroff>
=item * Fork bombs, remote script piping (curl/wget | sh)
lib/Acme/Claude/Shell/Tools.pm view on Meta::CPAN
reason => 'Direct disk write' },
{ pattern => qr/>\s*\/dev\//,
reason => 'Writing to device file' },
{ pattern => qr/\bchmod\s+(-R\s+)?777\b/,
reason => 'World-writable permissions' },
{ pattern => qr/\bchown\s+-R\b.*\//,
reason => 'Recursive ownership change' },
{ pattern => qr/\bkill\s+-9\b/,
reason => 'Forceful process termination' },
{ pattern => qr/\b(reboot|shutdown|halt|poweroff)\b/,
reason => 'System shutdown/reboot' },
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use File::Checkm::v;
use File::Checksum;
use File::CheckTree;
use File::chmod;
use File::chmod::Recursive::v;
use File::chown;
use File::Chunk;
use File::CleanupTask;
use File::Cmp;
use File::Coda;
use File::CodeSearch::v;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use File::KeePass;
use File::KeePass::Agent;
use FileKGlob;
use File::Kit;
use File::Kvpar;
use File::lchown;
use File::LckPwdF;
use File::LibMagic;
use File::LibMagic::FFI;
use File::LinearRaid;
use File::LinkDir;
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip exec mkdir -p /home/cip/tmp
cip sudo apt-get update
cip sudo apt-get -y install libffi-dev
cip sudo bash -c 'curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x'
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
cip exec bash -c 'env ALIEN_INSTALL_TYPE=system cpanm -n FFI::Platypus'
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
set -ex
cip exec mkdir -p /home/cip/tmp
cip sudo bash -c 'curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x'
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 mkdir -p /home/cip/tmp
cip sudo apt-get update
cip sudo apt-get -y install libffi-dev
cip sudo bash -c 'curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x'
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
cip exec bash -c 'env ALIEN_INSTALL_TYPE=system cpanm -n FFI::Platypus'
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
set -ex
cip exec mkdir -p /home/cip/tmp
cip sudo bash -c 'curl https://alienfile.org/travis/install-system-dontpanic.sh | bash -x'
cip sudo chown -R cip.cip /home/cip/dzil
cip exec ./maint/cip-before-install-inside
view release on metacpan or search on metacpan
lib/Acme/Ghost.pm view on Meta::CPAN
}
# Child
$self->{daemonized} = 1; # Set daemonized flag
$self->filepid->pid($$)->save; # Set new PID and Write PID file
chown($uid, $gid, $pid_file) if IS_ROOT && -e $pid_file;
# Set GID and UID
$self->set_gid->set_uid;
# Turn process into session leader, and ensure no controlling terminal
view release on metacpan or search on metacpan
glob gmtime exp defined caller or binmode log ord
abs lc sqrt study alarm split time or formline cos
ne rewinddir kill chdir reset prototype split sqrt
ord int localtime abs oct pack pop eq scalar print
telldir open unpack return and unlink write chroot
hex bless utime split chown split close rmdir join
exp fileno getc sleep redo glob mkdir stat ne pack
reverse getpwnam next lstat gethostent and getpgrp
eq log ord time xor chr undef and eval caller and
printf srand lstat chown chdir syscall open select
eq -w closedir sleep chr split and quotemeta reset
require ne closedir sleep chr undef or pack unpack
length splice shift umask readpipe pos xor defined
join system and die or do exit if defined require
hex defined undef or sprintf localtime cmp time or
view release on metacpan or search on metacpan
$keep || unlink($file);
}
=head2 chall
Does chmod + utime + chown on one or more files.
Returns the number of files of which those operations was successful.
Mode, uid, gid, atime and mtime are set from the array ref in the first argument.
chall( \@stat, $filenameB, $filenameC, ... ); # by stat-array
chall( $filenameA, $filenameB, $filenameC, ... ); # by file name
Copies the chmod, owner, group, access time and modify time from file A to file B and C.
See C<perldoc -f stat>, C<perldoc -f chmod>, C<perldoc -f chown>, C<perldoc -f utime>
=cut
sub chall {
my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks )
= ref($_[0]) ? @{shift()} : stat(shift());
my $successful=0;
for(@_){ chmod($mode,$_) && utime($atime,$mtime,$_) && chown($uid,$gid,$_) && $successful++ }
return $successful;
}
=head2 makedir
my $cmd=qq($cat "$_"|$unz|$z>"$new");
#todo: "$cat $_|$unz|$cnt|$z>$new";
#cat /tmp/kontroll-linux.xz|unxz|tee >(wc -c>/tmp/p)|gzip|wc -c;cat /tmp/p
$cmd=~s,\|+,|,g; #print "cmd: $cmd\n";
sys($cmd);
chall($_,$new) or croak("$0 cannot chmod|chown|touch $new") if !$o{n};
my($szold,$sznew)=map{-s$_}($_,$new);
$bsf+=-s$_;
unlink $_ if !$o{k};
rename($new, replace($new,qr/.tmp$/)) or die if $same;
if($o{v}){
view release on metacpan or search on metacpan
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])flock([^\w\d])/$1WwWWww$2/g;
s/([^\$\w\d])fcntl([^\w\d])/$1WwWwWW$2/g;
s/([^\$\w\d])elsif([^\w\d])/$1WwWwWw$2/g;
s/([^\$\w\d])crypt([^\w\d])/$1WwWwwW$2/g;
s/([^\$\w\d])close([^\w\d])/$1WwWwww$2/g;
s/([^\$\w\d])chown([^\w\d])/$1WwwWWW$2/g;
s/([^\$\w\d])chomp([^\w\d])/$1WwwWWw$2/g;
s/([^\$\w\d])chmod([^\w\d])/$1WwwWwW$2/g;
s/([^\$\w\d])chdir([^\w\d])/$1WwwWww$2/g;
s/([^\$\w\d])break([^\w\d])/$1WwwwWW$2/g;
s/([^\$\w\d])bless([^\w\d])/$1WwwwWw$2/g;
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])WwWWww([^\w\d])/$1flock$2/g;
s/([^\$\w\d])WwWwWW([^\w\d])/$1fcntl$2/g;
s/([^\$\w\d])WwWwWw([^\w\d])/$1elsif$2/g;
s/([^\$\w\d])WwWwwW([^\w\d])/$1crypt$2/g;
s/([^\$\w\d])WwWwww([^\w\d])/$1close$2/g;
s/([^\$\w\d])WwwWWW([^\w\d])/$1chown$2/g;
s/([^\$\w\d])WwwWWw([^\w\d])/$1chomp$2/g;
s/([^\$\w\d])WwwWwW([^\w\d])/$1chmod$2/g;
s/([^\$\w\d])WwwWww([^\w\d])/$1chdir$2/g;
s/([^\$\w\d])WwwwWW([^\w\d])/$1break$2/g;
s/([^\$\w\d])WwwwWw([^\w\d])/$1bless$2/g;
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 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
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
corpus/libpalindrome/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}
corpus/libpalindrome/install-sh view on Meta::CPAN
# Desired mode of installed file.
mode=0755
chgrpcmd=
chmodcmd=$chmodprog
chowncmd=
mvcmd=$mvprog
rmcmd="$rmprog -f"
stripcmd=
src=
corpus/libpalindrome/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:
corpus/libpalindrome/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)
corpus/libpalindrome/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.$$_
corpus/libpalindrome/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
cp/codepress/languages/perl.js view on Meta::CPAN
Language.syntax = [
{ input : /\"(.*?)(\"|<br>|<\/P>)/g, output : '<s>"$1$2</s>' }, // strings double quote
{ input : /\'(.*?)(\'|<br>|<\/P>)/g, output : '<s>\'$1$2</s>' }, // strings single quote
{ input : /([\$\@\%][\w\.]*)/g, output : '<a>$1</a>' }, // vars
{ input : /(sub\s+)([\w\.]*)/g, output : '$1<em>$2</em>' }, // functions
{ input : /\b(abs|accept|alarm|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|connect|continue|cos|crypt|dbmclose|dbmopen|defined|delete|die|do|dump|each|else|elsif|endgrent|endhostent|endnetent|endprotoent|e...
{ input : /([\(\){}])/g, output : '<u>$1</u>' }, // special chars
{ input : /#(.*?)(<br>|<\/P>)/g, output : '<i>#$1</i>$2' } // comments
]
Language.snippets = []
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip sudo apt-get -y install libffi-dev
else
echo use internet libffi
fi
cip sudo chown -R cip.cip /home/cip/dzil
cip exec dzil-cpanm -n Alien::Build::Plugin::Download::GitHub
view release on metacpan or search on metacpan
src/judy-1.0.5/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}"
chmodcmd="$chmodprog 0755"
chowncmd=
chgrpcmd=
stripcmd=
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=
src/judy-1.0.5/install-sh view on Meta::CPAN
Options:
-c (ignored)
-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.
--help display this help and exit.
--version display version info and exit.
src/judy-1.0.5/install-sh view on Meta::CPAN
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-s) stripcmd=$stripprog
src/judy-1.0.5/install-sh view on Meta::CPAN
done
fi
if test -n "$dir_arg"; then
$doit $mkdircmd "$dst" \
&& { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \
&& { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \
&& { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \
&& { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; }
else
src/judy-1.0.5/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 "$dsttmp"; } &&
# Now rename the file to the real destination.
view release on metacpan or search on metacpan
maint/cip-before-install view on Meta::CPAN
cip sudo apt-get -y install nettle-dev
else
echo use internet nettle-dev
fi
cip sudo chown -R cip.cip /home/cip/dzil
view release on metacpan or search on metacpan
inc/inc_Archive-Extract/Archive/Extract.pm view on Meta::CPAN
### is a potential security hole. -autrijus
### have to do it here, since A::T needs to be /loaded/ first ###
{ no strict 'refs'; local $^W;
### older versions of archive::tar <= 0.23
*Archive::Tar::chown = sub {};
}
{ local $^W; # quell 'splice() offset past end of array' warnings
# on older versions of A::T