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/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;
}
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
dist => {
PREOP => 'pod2text Stability.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "Canary::Stability",
VERSION_FROM => "Stability.pm",
view release on metacpan or search on metacpan
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
Datum/Strip.pm view on Meta::CPAN
return;
}
if ($file ne '-' && $fnew ne '-') {
my $mode = (stat(OLD))[2] & 07777;
chmod $mode, $fnew or logwarn "can't propagate mode %04o on $fnew: $!";
}
unless (close NEW) {
logerr "can't flush $fnew: $!";
close OLD;
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',
view release on metacpan or search on metacpan
lib/Carton/Packer.pm view on Meta::CPAN
my $executable = $dir->child('carton');
warn "Bundling $executable\n";
$dir->mkpath;
$executable->spew($fatpacked);
chmod 0755, $executable;
}
sub do_fatpack {
my($self, $file) = @_;
view release on metacpan or search on metacpan
bin/convert_dmoz.PL view on Meta::CPAN
($file = basename($0)) =~ s/\.PL$//;
$file =~ s/\.pl$//
if ($Config{'osname'} eq 'VMS' or
$Config{'osname'} eq 'OS2'); # "case-forgiving"
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";
print OUT <<"!GROK!THIS!";
$Config{'startperl'} -w
view release on metacpan or search on metacpan
SKIP: {
skip "Can't run shell scripts on non-*nix", 1
if $^O eq 'MSWin32' || $^O eq 'VMS';
# for some reason the +x is not preserved in the dist
system "chmod +x $Bin/lib/TestCGIBin/root/cgi-bin/test.sh";
system "chmod +x $Bin/lib/TestCGIBin/root/cgi-bin/exit_nonzero.sh";
is(get('/my-bin/test.sh'), "Hello!\n", 'Non-Perl CGI File');
$response = request GET '/my-bin/exit_nonzero.sh';
is $response->code, 500, 'Non-Perl CGI with non-zero exit dies';
view release on metacpan or search on metacpan
lib/Catalyst/Helper.pm view on Meta::CPAN
my $output;
$t->process( \$template, { %{$self}, %$vars }, \$output )
|| Catalyst::Exception->throw(
message => qq/Couldn't process "$template", / . $t->error() );
my $file = $self->mk_file( $path, $output );
chmod $perms, file($file) if defined $perms;
return $file;
}
sub _mk_information {
my $self = shift;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/JobQueue/POE.pm view on Meta::CPAN
my $app = $helper->{app};
my $appprefix = lc($app);
$appprefix =~ s/::/_/;
my $filename = File::Spec->catfile( $base, 'script', "${appprefix}_jobqueue.pl");
$helper->render_file( 'jobqueue', $filename, { appprefix => $appprefix, scriptgen => $CATALYST_SCRIPT_GEN } );
chmod 0700, $filename;
}
sub _mk_crontab
{
my ( $self, $helper, @args ) = @_;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/PSGI.pm view on Meta::CPAN
$app =~ s/::/_/g;
my $script = File::Spec->catfile($base, 'script', "$app.psgi");
$helper->render_file('psgi_app', $script);
chmod 0755, $script;
}
=head1 NAME
Catalyst::Helper::PSGI - PSGI helper to create a .psgi application script
view release on metacpan or search on metacpan
lib/Catalyst/Helper/SCGI.pm view on Meta::CPAN
my $base = $helper->{base};
my $app = lc($helper->{app});
$helper->render_file( "scgi_script",
File::Spec->catfile( $base, 'script', "$app\_scgi.pl" ) );
chmod 0700, "$base/script/$app\_scgi.pl";
}
=head1 AUTHOR
Orlando Vazquez, C< <orlando at 2wycked.net> >
view release on metacpan or search on metacpan
lib/Catalyst/Helper/AuthDBIC.pm view on Meta::CPAN
{ start_perl => $startperl,
appprefix => $app_prefix,
startperl => $startperl,
app_name => app_name(),
});
chmod 0700, $script;
}
=head2 BUGS
This is experimental, fairly rough code. It's a proof of concept for
view release on metacpan or search on metacpan
lib/Catalyst/Helper/DBIC/DeploymentHandler.pm view on Meta::CPAN
$app =~ s/::/_/g;
my $script = File::Spec->catfile($base, 'script', $app.'_dbicdh.pl');
$helper->render_file('dbicdh', $script);
chmod 0755, $script;
}
1;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/FastCGI/ExternalServer.pm view on Meta::CPAN
my $script_file
= File::Spec->catfile( $helper->{base}, 'script', $config->{script} );
$helper->render_file( 'script', $script_file, $config );
chmod 0755, $script_file;
}
sub _parse_args {
my ( $self, $config, @args ) = @_;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/HTML/FormHandler/Scripts.pm view on Meta::CPAN
$app =~ s/::/_/g;
my $script = File::Spec->catfile($base, 'script', $app.'_hfh.pl');
$helper->render_file('hfh', $script);
chmod 0755, $script;
}
1;
view release on metacpan or search on metacpan
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
overwrite? (y or n) [default n] y
/usr/home/bokutin/svk/YourApp/trunk/script/../yourapp.sh.sample was created.
The following commands were needed to complete setting up.
% sudo cp /usr/home/bokutin/svk/YourApp/trunk/script/../yourapp.sh.sample /usr/local/etc/rc.d/yourapp.sh
% sudo chmod 755 /usr/local/etc/rc.d/yourapp.sh
% sudo touch /var/run/yourapp.pid
% sudo touch /var/run/yourapp.sockets
=cut
lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN
my @msgs;
push @msgs, "$output was created.";
push @msgs, "";
push @msgs, "The following commands were needed to complete setting up.";
push @msgs, "% sudo cp $output /usr/local/etc/rc.d/$vars->{app}.sh";
push @msgs, "% sudo chmod 755 /usr/local/etc/rc.d/$vars->{app}.sh";
push @msgs, "% sudo touch $vars->{pidfile}";
push @msgs, "% sudo touch $vars->{listen}" if $vars->{use_socket};
print join("\n", @msgs), "\n";
}
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
CHMOD = $(PERLRUN) -MExtUtils::Command -e chmod
CP = $(PERLRUN) -MExtUtils::Command -e cp
MV = $(PERLRUN) -MExtUtils::Command -e mv
NOOP = rem
NOECHO = @
RM_F = $(PERLRUN) -MExtUtils::Command -e rm_f
view release on metacpan or search on metacpan
DEPLOYMENT.md view on Meta::CPAN
# Extract public key
openssl rsa -in /secure/path/private.pem -pubout -out /secure/path/public.pem
# Set restrictive permissions
chmod 600 /secure/path/private.pem
chmod 644 /secure/path/public.pem
```
Note: For production, consider using 4096-bit keys or storing keys in a HSM (Hardware Security Module).
### 3. Configure Your Application
view release on metacpan or search on metacpan
t/lib/MakeTestApp.pm view on Meta::CPAN
Catalyst::ScriptRunner->run('TestApp', '$command');
1;
END_CODE
close $fh;
chmod 0755, $script;
}
open my $fh, '>:raw', "$testapp/cpanfile";
close $fh;
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfcgi-perl", "FCGI", "0.67", "1", "0"
"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-changenotify-perl", "File-ChangeNotify", "not-uploaded", "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-find-object-perl", "File-Find-Object", "0.2.0", "0", "0"
"libfile-find-rule-perl", "File-Find-Rule", "0.30", "1", "0"
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
lib/CatalystX/Crudite/Util.pm view on Meta::CPAN
copy($original, $filename) or die "copy failed: $!";
}
} elsif (my $content = $result{$filename}{write}) {
$log->("template -> $filename");
write_file($filename, $content) unless $args{dryrun};
chmod 0755, $filename if $filename =~ /\.(pl|sh)$/;
}
}
$log->('Finished.');
}
1;
view release on metacpan or search on metacpan
lib/CatalystX/Starter.pm view on Meta::CPAN
$dist_name =~ s/::/-/g;
$main_module_path =~ s|::|/|g;
foreach my $file (@files) {
my $data = read_file($file);
chmod 0644, $file;
$data =~ s/\[% DIST_NAME %\]/$dist_name/g;
$data =~ s/\[% MODULE %\]/$module/g;
$data =~ s/\[% MAIN_MODULE_PATH %\]/$main_module_path/g;
write_file($file, $data);
}