view release on metacpan or search on metacpan
lib/CPANPLUS/Dist/Slackware.pm view on Meta::CPAN
# Skip symbolic links.
return if -l _;
# Sanitize the file modes.
my $perm = ( $stat[2] & oct '0755' ) | oct '0200';
if ( !chmod $perm, $filename ) {
error( loc( q{Could not chmod '%1': %2}, $filename, $OS_ERROR ) );
++$fail;
}
if ( -d $filename ) {
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
rename( $new_file, $file ) || do {
carp "Unable to rename temp config file ($new_file) to $file: $!";
return undef;
};
if (exists $self->{file_mode}) {
chmod oct($self->{file_mode}), $file;
}
} # Otherwise, reset to the start of the file and write, unless we are using STDIN
else {
# Get a filehandle, allowing almost any type of 'file' parameter
view release on metacpan or search on metacpan
cpan-security-advisory.json view on Meta::CPAN
{"meta":{"date":"Thu Jul 3 16:46:22 2025","generator":"util/generate","commit":"bf3bf39915e1ebde1c11224c270c5b6bff6ac398","repo":"https://github.com/briandfoy/cpan-security-advisory.git","epoch":1751561182},"module2dist":{"Mojo::Content":"Mojoliciou...
view release on metacpan or search on metacpan
docs/Install.pod view on Meta::CPAN
</VirtualHost>
=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
=head2 Put some distributions in the XrRoot directory
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
lib/CSAF/Util/CWE.pm view on Meta::CPAN
'CWE-553' => q"Command Shell in Externally Accessible Directory",
'CWE-554' => q"ASP.NET Misconfiguration: Not Using Input Validation Framework",
'CWE-555' => q"J2EE Misconfiguration: Plaintext Password in Configuration File",
'CWE-556' => q"ASP.NET Misconfiguration: Use of Identity Impersonation",
'CWE-558' => q"Use of getlogin() in Multithreaded Application",
'CWE-560' => q"Use of umask() with chmod-style Argument",
'CWE-561' => q"Dead Code",
'CWE-562' => q"Return of Stack Variable Address",
'CWE-563' => q"Assignment to Variable without Use",
'CWE-564' => q"SQL Injection: Hibernate",
'CWE-565' => q"Reliance on Cookies without Validation and Integrity Checking",
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.18", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.06", "0", "0"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "0"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.10", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "0", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "0"
"libfile-dircompare-perl", "File-DirCompare", "0.5", "0", "0"
"libfile-find-object-perl", "File-Find-Object", "0.2.1", "0", "0"
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
(ABSTRACT_FROM => 'SAC.pm', # retrieve abstract from module
AUTHOR => 'Robin Berjon') : ()),
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=cpan --owner=bjoern -cvf',
},
);
view release on metacpan or search on metacpan
lib/CTK/Command.pm view on Meta::CPAN
print STDERR "Can't create file $orig: $!\n";
return
};
my $perm = $fromstat[2] || 0;
$perm &= 07777;
eval { chmod $perm, $orig; };
if ($@) {
print STDERR $@, "\n"
} else {
print "ok\n";
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use constant DEPENDS => [
{
target => 'cvs2cl.pl',
reqs => [catfile(qw( bin cvs2cl ))],
rules => ['$(PERL) make-cvs2cl.pl $< > $@',
'$(PERL) -e "chmod 0755, @ARGV" $@',
],
},
{ target => 'test-pl',
env => { CVS2CL =>
view release on metacpan or search on metacpan
lib/CWB/CQI/Server.pm view on Meta::CPAN
my $fh = new FileHandle "> $passfile";
croak "Can't create temporary user list file. Aborting."
unless defined $fh;
print $fh "user $user \"$passwd\";\n";
$fh->close;
chmod 0600, $passfile; # so no one can spy on us
# scan for free port (using rand() so two servers invoked at the same time won't collide)
my $port = 10000 + int rand(2000);
my %in_use =
map {$_ => 1}
view release on metacpan or search on metacpan
lib/CWB/Web/Cache.pm view on Meta::CPAN
my $dir = $self->{'dir'};
my $index = $self->{'index'};
my $data = $self->{'data'};
unless (-d $dir) {
CWB::Shell::Cmd("mkdir $dir");
CWB::Shell::Cmd("chmod 777 $dir");
}
unless (-d $index) {
CWB::Shell::Cmd("mkdir $index");
CWB::Shell::Cmd("chmod 777 $index");
}
unless (-d $data) {
CWB::Shell::Cmd("mkdir $data");
CWB::Shell::Cmd("chmod 777 $data");
}
}
## INTERNAL: $cache->sweep_cache;
## check size of cache data directory and delete old files when it exceeds the limit
lib/CWB/Web/Cache.pm view on Meta::CPAN
my $unique = "$name-$ext";
my $unique_local = "$localname-$ext";
# now create empty index file to "lock" the unique name from other processes
my $fh = CWB::OpenFile "> $index/$unique";
$fh->close;
CWB::Shell::Cmd("chmod 666 $index/$unique");
# set DataDirectory in CQP session and re-activate base corpus
$cqp->exec("set DataDirectory '$data'");
$cqp->exec("$corpus");
# copy named query to unique name and store it in data directory
$cqp->exec("$unique_local = $name");
$cqp->exec("save $unique");
CWB::Shell::Cmd("chmod 666 $data/$unique");
# re-write index file if caller has passed metadata
if (@_) {
$fh = CWB::OpenFile "> $index/$unique";
while (@_) {
my $line = shift;
view release on metacpan or search on metacpan
lib/CWB/Encoder.pm view on Meta::CPAN
=item $idx->group($group);
=item $idx->perm($permission);
Optional group membership and access permissions for newly created
files (otherwise, neither B<chgrp> nor B<chmod> will be called). Note
that I<$permission> must be a string rather than an octal number (as
for the built-in B<chmod> function). Indexing will fail if the
specified group and/or permissions cannot be set.
=cut
sub group {
lib/CWB/Encoder.pm view on Meta::CPAN
foreach my $c (@$creates) {
my $f = $self->filename($att, $c);
croak "CWB::Indexer: Creation of component $att/$c ($f) failed (aborted).\n"
unless -s $f;
if ($perm) {
my $cmd = "chmod $perm '$f'";
print STDERR "CWB::Indexer: exec: $cmd\n"
if $self->{DEBUG};
CWB::Shell::Cmd $cmd;
}
if ($group) {
lib/CWB/Encoder.pm view on Meta::CPAN
=item $enc->group($group);
=item $enc->perm($permission);
Optional group membership and access permissions for newly created
files (otherwise, neither B<chgrp> nor B<chmod> will be called). Note
that I<$permission> must be a string rather than an octal number (as
for the built-in B<chmod> function). Encoding will fail if the
specified group and/or permissions cannot be set. If the data
directory has to be created, its access permissions and group
membership are set accordingly.
=cut
lib/CWB/Encoder.pm view on Meta::CPAN
croak "CWB::Encoder: Can't create data directory $dir\n"
unless mkdir $dir;
my $perm = $self->{PERM};
if ($perm) {
$perm =~ tr[642][753]; # derive directory permissions
CWB::Shell::Cmd(["chmod", $perm, $dir]);
$perm = "(chmod $perm)";
}
else {
$perm = "";
}
my $group = $self->{GROUP};
lib/CWB/Encoder.pm view on Meta::CPAN
my $norm_att = $att;
$norm_att =~ s{/$}{}; # remove feature set marker from attribute name
my $pattern = CWB::Shell::Quote($dir)."/${norm_att}.*";
print STDERR "CWB::Encoder: processing group $pattern\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd("chmod $perm $pattern")
if $perm;
CWB::Shell::Cmd("chgrp $group $pattern")
if $group;
}
foreach my $attspec (@{$self->{SATT}}) { # structural attributes
lib/CWB/Encoder.pm view on Meta::CPAN
foreach my $n ("", 1 .. $rec) { # indices of embedded regions
foreach my $ext ("", map {s{/$}{}; "_$_"} @xmlatts) { # extensions for XML tag attributes (with feature set marker removed)
my $pattern = CWB::Shell::Quote($dir)."/$att$ext$n.*";
print STDERR "CWB::Encoder: processing group $pattern\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd("chmod $perm $pattern")
if $perm;
CWB::Shell::Cmd("chgrp $group $pattern")
if $group;
}
}
lib/CWB/Encoder.pm view on Meta::CPAN
if $self->{VERBOSE};
my $infofile = "$dir/.info";
my $fh = CWB::OpenFile "> $infofile";
print $fh $self->{INFO}, "\n";
$fh->close;
CWB::Shell::Cmd(["chmod", $perm, $infofile])
if $perm;
CWB::Shell::Cmd(["chgrp", $group, $infofile])
if $group;
print "Editing registry entry ...\n" # edit registry file
lib/CWB/Encoder.pm view on Meta::CPAN
$rf->write($regfile);
print STDERR "CWB::Encoder: registry entry $regfile has been edited\n"
if $self->{DEBUG};
print STDERR "CWB::Encoder: setting access permissions for $regfile\n"
if $self->{DEBUG} and ($perm or $group);
CWB::Shell::Cmd(["chmod", $perm, $regfile])
if $perm;
CWB::Shell::Cmd(["chgrp", $group, $regfile])
if $group;
my $idx = new CWB::Indexer "$reg:".(uc $name); # build indices and compress p-attributes
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
Dependencies for this module are recorded in the `META.json` file.
Installation is most easily done with `cpanminus`[1], which can be
made available locally via:
$ curl -L https://cpanmin.us/ -o cpanm
$ chmod +x cpanm
To install the dependencies into a local directory (to avoid polluting
your Perl distribution),
$ export PERL5LIB=${PERL5LIB}:$PWD/local
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',
Makefile.PL view on Meta::CPAN
--outfile \"\$\$o\" && \\
\$(PERL) -pi -e 's|href=\"/./blib/lib/Cac/|href=\"|g' \"\$\$o\" && \\
\$(PERL) -pi -e 's|href=\"/./Cac/|href=\"|g' \"\$\$o\" && \\
\$(PERL) -pi -e 's|href=\"/\\./Cac\\.|href=\"Cac.|g' \"\$\$o\" ; \\
done && \\
chmod -R 444 \"\$\$t\"
_clean:
find . -iname '*~' -print0|xargs -0r rm -f
find . -iname '*.html' -print0|xargs -0r rm -f
find . -iname '*.tmp' -print0|xargs -0r rm -f
view release on metacpan or search on metacpan
lib/Cache/FileBackend.pm view on Meta::CPAN
warn( "Temp file '$temp_filename' shouldn't still exist" );
}
$p_optional_mode ||= 0666 - umask( );
chmod( $p_optional_mode, _Untaint_Path($p_path) );
umask( $old_umask ) if $old_umask;
}
view release on metacpan or search on metacpan
1.07_04 Version started at 2008-09-09-17:20. *** Development version. ***
31-size-hack-force-missing-devel-size.t:
1.07_03 changes didn't fix taint issue.
Do own tempdir cleanup rather than rely on File::Temp's cleanup
that appears to trigger tainted chmod in perl 5.6.2's File::Path
rmtree().
Use a template for tempdir name that makes it clear that
Cache::CacheFactory is the culprit if it fails to be cleaned up.
Version released at 2008-09-09-18:46.
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/Repository.pm view on Meta::CPAN
if ($cb_opts{end})
{
$fh->close();
$fh = undef;
chmod $cb_opts{mode}, $filename;
chown $cb_opts{owner}, $cb_opts{group}, $filename;
}
1;
};
view release on metacpan or search on metacpan
lib/Cache/Static.pm view on Meta::CPAN
#try to set up the logfile with lenient permissions
eval {
open(FH, ">>$LOGFILE");
close(FH);
chmod 0666, $LOGFILE;
};
#number of levels of directory in cache
#TODO: move this to config file
my $CACHE_LEVELS = 3;
lib/Cache/Static.pm view on Meta::CPAN
my $tmpf = $key;
$tmpf =~ s/\///g;
open(FH, ">$ROOT/$ns/tmp/$tmpf") || die "couldn't open $ROOT/$ns/tmp/$tmpf: $!";
(print FH $content) || die "couldn't print: $!";
close(FH) || die "couldn't close: $!";
chmod 0666, "$ROOT/$ns/tmp/$tmpf";
#move the new cache file in place
(rename "$ROOT/$ns/tmp/$tmpf", "$ROOT/$ns/cache/$key") ||
die "couldn't rename content to $ROOT/$ns/cache/$key";
lib/Cache/Static.pm view on Meta::CPAN
#write out the deps
my $frozen_deps = join('', map { $a=$_; $a.="\n"; $a } @$deps);
open(FH, ">$ROOT/$ns/tmp/$tmpf.dep") || die "couldn't open: $!";
(print FH $frozen_deps) || die "couldn't print: $!";
close(FH) || die "couldn't close: $!";
chmod 0666, "$ROOT/$ns/tmp/$tmpf.dep";
#move the new .dep file in place
(rename "$ROOT/$ns/tmp/$tmpf.dep", "$ROOT/$ns/cache/$key.dep") ||
die "couldn't rename deps to $ROOT/$ns/cache/$key.dep: $!";
}
lib/Cache/Static.pm view on Meta::CPAN
open(FH, ">$file") || die "couldn't open $file: $!";
if($output) {
print FH $output || die "couldn't print $output to $file: $!";
}
close(FH) || die "couldn't close $file: $!";
chmod 0666, $file;
}; if($@) {
_log(2, "Cache::Static::_mkdirs_and_touch: couldn't update timestamps: $@");
}
}
lib/Cache/Static.pm view on Meta::CPAN
my $dir_so_far = '/';
foreach my $d (@dirs) {
$dir_so_far .= "$d/";
unless(-e $dir_so_far) {
mkdir($dir_so_far) || die "couldn't create $dir_so_far: $!";
chmod(0777, $dir_so_far) || die "couldn't change perms on $dir_so_far: $!";
}
}
}
1;
view release on metacpan or search on metacpan
lib/Cache/File/Entry.pm view on Meta::CPAN
# replace existing data
rename($filename, $self->{path});
# fix permissions of tempfile
my $mode = 0666 & ~($self->{cache}->cache_umask());
chmod $mode, $self->{path};
# invalidate any active handle locks
unlink($self->{path} . $Cache::File::LOCK_EXT);
delete $PROCESS_LOCKS{$self->{path}};
view release on metacpan or search on metacpan
lib/CallBackery/Config.pm view on Meta::CPAN
has secretFile => sub ($self) {
my $secretFile = $self->file.'.secret';
if (not -f $secretFile){
open my $rand, '>', $secretFile;
chmod 0600,$secretFile;
print $rand sprintf('%x%x',int(rand()*1e14),int(rand()*1e14));
close $rand;
chmod 0400,$secretFile;
}
return $secretFile;
};
has app => sub { croak "the app parameter is mandatory" }, weak => 1;
lib/CallBackery/Config.pm view on Meta::CPAN
sub reConfigure {
my $self = shift;
my $secretFile = $self->secretFile;
if (not -f $secretFile){
open my $rand, '>', $secretFile;
chmod 0600,$secretFile;
print $rand sprintf('%x%x',int(rand()*1e14),int(rand()*1e14));
close $rand;
chmod 0400,$secretFile;
}
for my $obj (@{$self->configPlugins}){
$obj->reConfigure;
}
}