view release on metacpan or search on metacpan
CAF_MB_Installer.pm view on Meta::CPAN
File::Path::mkpath($server_path, 0, 0777);
}
foreach my $server_path (@server_paths, @server_files) {
# skip chown on Win32 - instead notify the user
if ($^O =~ /Win32/) {
print "Make sure this path is writeable by your webserver:\n\t$server_path\n";
next;
}
print "making path writeable by webserver: $server_path\n" if $verbose;
chown $uid, $gid, $server_path
or warn "Could not make the following path writeable by the webserver - you'll have to do it manually:\n\t$server_path\n";
# Make writeable
my $current_mode = (stat $server_path)[2];
chmod $current_mode | 0600, $server_path;
CAF_MB_Installer.pm view on Meta::CPAN
else {
File::Path::mkpath($targetdir,0,0755);
print "mkpath($targetdir,0,0755)\n" if $verbose>1;
if ($user && $group) {
chown $user, $group, $targetdir;
print "chown($user, $group, $targetdir)\n" if $verbose>1;
}
}
File::Copy::copy($sourcefile, $targetfile);
print "Installing $targetfile\n";
CAF_MB_Installer.pm view on Meta::CPAN
print "chmod($mode, $targetfile)\n" if $verbose>1;
}
# MAG - allow changing ownership of installed files
if ($user && $group) {
chown $user, $group, $targetfile;
print "chown($user, $group, $targetfile)\n" if $verbose>1;
}
}
else {
print "Skipping $targetfile (unchanged)\n" if $verbose;
view release on metacpan or search on metacpan
lib/CGI/Auth/Auto.pm view on Meta::CPAN
The authdir needs to exist and contain a user.dat simple text file.
If you do not provide an authdir argument, that's ok, we try to guess for it.
If your script is in /home/myself/cgi-bin/script.pl , then your auth dir is guessed as
/home/myself/cgi-bin/auth
And it must exist and contain the user.dat file. This can be a blank text file to begin with.
Make sure it is chown and chmod properly.
If your cgi is failing, turn on L<DEBUG> and run it again. A lot of useful information may be there.
=head2 Auth::check - Invalid 'User Name' field at ...
view release on metacpan or search on metacpan
lib/CGI/Browse.pm view on Meta::CPAN
=over 4
=item 1. Install CGI::Browse.
=item 2. Set script ownership (chown) and permissions (chmod) if necessary.
=item 3. Run the included browse.sql script against your database.
=item 4. Edit browse.cgi and change the database "mydb" to your database name.
view release on metacpan or search on metacpan
doc/FormMagick-FAQ.html view on Meta::CPAN
<P>
<H2><A NAME="why isn't my data preserved from one page to the next">Why isn't my data preserved from one page to the next?</A></H2>
<P>You probably need to make your <CODE>session-tokens</CODE> directory writable and
executable by the web server. Either:</P>
<PRE>
chown www session-tokens
(assuming your webserver runs as the www user)
chmod 700 session-tokens</PRE>
<P>Or...</P>
<PRE>
chmod 777 session-tokens</PRE>
view release on metacpan or search on metacpan
.circleci/config.yml view on Meta::CPAN
environment:
# PATH: ~/perl5/bin:/bin:/usr/bin
AUTOMATED_TESTING: 1
NO_NETWORK_TESTING: 1
NONINTERACTIVE_TESTING: 1
command: sudo chown -R circleci . && perl Makefile.PL && make
- run:
name: Run tests
environment:
# PATH: ~/perl5/bin:/bin:/usr/bin
AUTOMATED_TESTING: 1
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'
mydist: README README.html lib/CGI/SpeedyCGI.pm readable tardist
readable:
chown -R $(USER) .
chmod -R u+w,go-w,go+r .
README: src/SpeedyCGI.pm
cd src && $(PERL) -e "use Pod::Text; pod2text(-80)" <SpeedyCGI.pm >../README
view release on metacpan or search on metacpan
A typical all public site for creating open content may want
to allow every directory to be writeable. Adopt the following
lines to migrate existing content.
find /var/www/test.copyleft.de/ -print | xargs sudo chown kraehe.www-data
find /var/www/test.copyleft.de/ -type d -print | xargs chmod 6775
find /var/www/test.copyleft.de/ ! -type d -print | xargs chmod 664
You may want to restrict edit access to the Wiki as a webmaster
by defining a directory directive :
view release on metacpan or search on metacpan
t/lib/My/PerlFunctions/Command/Summary.pm view on Meta::CPAN
caller - get context of the current subroutine call
chdir - change your current working directory
chmod - changes the permissions on a list of files
chomp - remove a trailing record separator from a string
chop - remove the last character from a string
chown - change the owership on a list of files
chr - get character this number represents
chroot - make directory new root for path lookups
close - close file (or pipe or socket) handle
closedir - close directory handle
connect - connect to a remote socket
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
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"
view release on metacpan or search on metacpan
t/CPAN/modules/02packages.details.txt view on Meta::CPAN
P5AST::op_caller undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chdir undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chmod undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chomp undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chop undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chown undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chr undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_chroot undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_close undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_closedir undef F/FL/FLORA/perl-5.17.4.tar.bz2
P5AST::op_complement undef F/FL/FLORA/perl-5.17.4.tar.bz2
t/CPAN/modules/02packages.details.txt view on Meta::CPAN
PLXML::op_caller undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chdir undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chmod undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chomp undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chop undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chown undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chr undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_chroot undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_close undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_closedir undef F/FL/FLORA/perl-5.17.4.tar.bz2
PLXML::op_complement undef F/FL/FLORA/perl-5.17.4.tar.bz2
view release on metacpan or search on metacpan
lib/CPAN/Dependency.pm view on Meta::CPAN
Now mount it:
mkdir /mnt/ramdisk
mount /dev/ram0 /mnt/ramdisk/
mkdir /mnt/ramdisk/cpanplus
chown cpanplus /mnt/ramdisk/cpanplus/
=item *
Now, as the user cpanplus, move the build directory onto the ramdisk
and symlink it:
view release on metacpan or search on metacpan
lib/CPAN/ParseDistribution.pm view on Meta::CPAN
msgget msgrcv msgsnd semctl semget semop shmctl
shmget shmread shmwrite require dofile caller
syscall dump chroot link unlink rename symlink
truncate backtick system fork wait waitpid glob
exec exit kill time tms mkdir rmdir utime chmod
chown fcntl sysopen open close umask binmode
open_dir closedir
), ($] >= 5.010 ? qw(say) : ()));
$c->share_from(__PACKAGE__, [qw(qv)]);
s/\buse\s+version\b.*?;//gs;
# qv broke some time between version.pm 0.74 and 0.82
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
view release on metacpan or search on metacpan
lib/CPAN/FTP.pm view on Meta::CPAN
chmod $stat[2], $dest
or $CPAN::Frontend->mywarn("Can't chmod '$dest' to " . sprintf("0%o", $stat[2]) . ": $!\n");
};
warn $@ if $@;
eval {
chown $stat[4], $stat[5], $dest
or do {
my $save_err = $!; # otherwise it's lost in the get... calls
$CPAN::Frontend->mywarn("Can't chown '$dest' to " .
(getpwuid($stat[4]))[0] . "/" .
(getgrgid($stat[5]))[0] . ": $save_err\n"
);
};
};
view release on metacpan or search on metacpan
script/setupdistarch view on Meta::CPAN
=over
=item B<sudo>
DO NOT run this script with sudo or your CPANPLUS configuration file
will become owned by root. To change it back, use sudo and chown
on your configuration file. For example:
sudo chown <yourname>.<yourgroup> ~/.cpanplus/lib/CPANPLUS/Config/User.pm
=item B<PATH>
I<This problem has been fixed in recent versions of Archlinux.>
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Debora/Package/Tar.pm view on Meta::CPAN
sub _add_file {
my ($self, $tar, $path) = @_;
my ($tarfile) = $tar->add_files(catfile(q{.}, $path));
if (defined $tarfile) {
$tarfile->chown('root', 'root');
$self->_clamp_mtime($tarfile);
}
return $tarfile;
}
lib/CPANPLUS/Dist/Debora/Package/Tar.pm view on Meta::CPAN
my $file = substr $path, length $self->builddir;
my $new_name = unix_path(catfile(q{.}, $docdir, $file));
my ($tarfile) = $tar->add_files($path);
if (defined $tarfile) {
$tarfile->chown('root', 'root');
$tarfile->rename($new_name);
$self->_clamp_mtime($tarfile);
}
return $tarfile;
view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
my $verbose = $param_ref->{verbose};
my $destdir = $pkgdesc->destdir;
my $outputname = $pkgdesc->outputname;
my $needs_chown = 0;
my $cmd = [ '/sbin/makepkg', '-l', 'y', '-c', 'y', $outputname ];
if ( $EFFECTIVE_USER_ID > 0 ) {
my $fakeroot = $status->_fakeroot_cmd;
if ($fakeroot) {
unshift @{$cmd}, $fakeroot;
}
else {
my $sudo = $conf->get_program('sudo');
if ($sudo) {
unshift @{$cmd}, $sudo;
$needs_chown = 1;
}
else {
error( loc($NONROOT_WARNING) );
return;
}
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
msg( loc( q{Creating package '%1'}, $outputname ) );
my $orig_uid = $UID;
my $orig_gid = ( split /\s+/, $GID )[0];
if ($needs_chown) {
my @stat = stat($destdir);
if ( !@stat ) {
error( loc( q{Could not stat '%1': %2}, $destdir, $OS_ERROR ) );
return;
}
$orig_uid = $stat[4];
$orig_gid = $stat[5];
$dist->_chown_recursively( 0, 0, $destdir ) or return;
}
my $fail = 0;
if ( !run( $cmd, { dir => $destdir, verbose => $verbose } ) ) {
++$fail;
}
if ($needs_chown) {
if ( -d $destdir ) {
if (!$dist->_chown_recursively( $orig_uid, $orig_gid, $destdir ) )
{
++$fail;
}
}
if ( -f $outputname ) {
if (!$dist->_chown_recursively(
$orig_uid, $orig_gid, $outputname
)
)
{
++$fail;
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
my $descfile = catfile( $installdir, 'slack-desc' );
my $desc = $pkgdesc->slack_desc;
return spurt( $descfile, $desc );
}
sub _chown_recursively {
my ( $dist, $uid, $gid, @filenames ) = @_;
my $module = $dist->parent;
my $cb = $module->parent;
my $conf = $cb->configure_object;
my $cmd = [ '/bin/chown', '-R', "$uid:$gid", @filenames ];
if ( $EFFECTIVE_USER_ID > 0 ) {
my $sudo = $conf->get_program('sudo');
if ($sudo) {
unshift @{$cmd}, $sudo;
}
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
=head1 DEPENDENCIES
Requires the Slackware Linux package management tools C<makepkg>,
C<installpkg>, C<updatepkg>, and C<removepkg>. Other required commands are
C<chown>, C<cp>, C<file>, C<make>, C<strip> and a C compiler.
In order to manage packages as a non-root user, which is highly recommended,
you must have C<sudo> and, optionally, C<fakeroot>. You can download a script
that builds C<fakeroot> from L<https://slackbuilds.org/>.
view release on metacpan or search on metacpan
inc/bundle/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
view release on metacpan or search on metacpan
docs/Install.pod view on Meta::CPAN
=head2 Installing the HTML files
% cp -R setup/html /var/www/cpanxr.mycompany.com
% chmod -R 755 /var/www/cpanxr.mycompany.com
% chown nobody:nogroup /var/www/cpanxr.mycompany
Change the path I</var/www/cpanxr.mycompany.com> to whatever you specified in your httpd.conf. Change nobody:nogroup to the user and group that apache is configured to runs as.
=head2 Installing and configuring the config file
docs/Install.pod view on Meta::CPAN
The following assumes you have downloaded some Acme- modules and unpacked them into /var/cpan/
% cp -R /var/cpan/Acme-* /var/cpanxr/dists/
% chmod -R 755 /var/cpanxr/dists/
% chown -R nobody:nogroup /var/cpanxr/dists
=head2 Install the database
% mysql -uroot -p < setup/setup-mysql.sql
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libkwiki-cache-perl", "Kwiki-Cache", "0.11", "0", "0"
"libkwiki-perl", "Kwiki", "0.39", "1", "0"
"liblatex-driver-perl", "LaTeX-Driver", "0.08", "0", "0"
"liblatex-encode-perl", "LaTeX-Encode", "0.03", "0", "0"
"liblatex-table-perl", "LaTeX-Table", "1.0.0", "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.891", "0", "0"
"liblingua-en-nameparse-perl", "Lingua-EN-NameParse", "1.24", "0", "0"
"liblingua-en-numbers-ordinate-perl", "Lingua-EN-Numbers-Ordinate", "1.02", "0", "0"
view release on metacpan or search on metacpan
lib/CTK/Daemon.pm view on Meta::CPAN
# PidFile prepare
if (defined($uid) or defined($gid)) {
my $pidfile = $self->{pidfile};
unless (-e $pidfile) {
CTK::Util::fsave($pidfile, "0\n");
chown($uid, $gid, $pidfile) if -e $pidfile;
}
}
# Set GID and UID
if (defined($gid)) {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Config;
WriteMakefile(
'NAME' => 'Cac',
'dist' => {
PREOP => 'chown -R root.root .; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
DIST_DEFAULT=> 'predist',
},
'VERSION_FROM' => 'Cac.pm',
view release on metacpan or search on metacpan
lib/Cache/FastMmap.pm view on Meta::CPAN
C<pre_loop_hook>, because that's executed before the fork, but after
the process ownership has changed and any chroot has been done.
In mod_perl, just open the cache at the global level in the appropriate
module, which is executed as the server is starting and before it
starts forking children, but you'll probably want to chmod or chown
the file to the permissions of the apache process.
=head1 RELIABILITY
Cache::FastMmap is being used in an extensive number of systems at
view release on metacpan or search on metacpan
lib/Cache/RamDisk.pm view on Meta::CPAN
=head1 REQUIRES
Perl B<5.6.1> on a Linux/ Unix System containing the following binaries:
chown, mkdir, mke2fs, mount, umount
The package uses these Perl modules available from CPAN:
IPC::Shareable
IPC::SysV
view release on metacpan or search on metacpan
lib/Cache/Repository.pm view on Meta::CPAN
{
$fh->close();
$fh = undef;
chmod $cb_opts{mode}, $filename;
chown $cb_opts{owner}, $cb_opts{group}, $filename;
}
1;
};
return undef unless $self->retrieve_with_callback(
view release on metacpan or search on metacpan
setcap "CAP_NET_ADMIN+pe" /usr/sbin/ipset
setcap "CAP_NET_RAW+pe CAP_NET_ADMIN+pe" /usr/sbin/iptables
in addition we allow execution only from the wwwrun user
chown wwwrun /usr/sbin/ipset /usr/sbin/iptables
chmod 500 /usr/sbin/ipset /usr/sbin/iptables
view release on metacpan or search on metacpan
lib/Carrot/Diversity/English/Builtins.pm view on Meta::CPAN
# 're_match' => 'm', # operator
# 're_substitution' => 's', # operator
'file_chdir' => 'chdir',
'file_chmod' => 'chmod',
'file_chown' => 'chown',
'file_chroot' => 'chroot',
'file_fcntl' => 'fcntl',
'file_glob' => 'glob',
'file_ioctl' => 'ioctl',
'file_link' => 'link',
view release on metacpan or search on metacpan
conf/Makefile view on Meta::CPAN
install:
-for i in *.conf ; do \
if [ ! -f $(config_dir)/$$i ] ; \
then \
cp $$i $(config_dir) ; \
$(chown) $(userid) $(config_dir)/$$i ; \
else \
echo $$i already installed - not overwritten ; \
diff $$i $(config_dir)/$$i ; \
fi ; \
done
view release on metacpan or search on metacpan
DEPLOYMENT.md view on Meta::CPAN
openssl genrsa -out /app/keys/private.pem 2048 && \
openssl rsa -in /app/keys/private.pem -pubout -out /app/keys/public.pem
# Create non-root user
RUN useradd -m -u 1000 catalyst && \
chown -R catalyst:catalyst /app
USER catalyst
EXPOSE 5000