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
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);
}
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
lib/Catmandu.pm view on Meta::CPAN
$ cat myfixes.fix
#!/usr/local/bin/catmandu run
do importer(OAI,url:"http://biblio.ugent.be/oai")
retain(_id)
end
$ chmod 755 myfixes.fix
$ ./myfixes.fix
=head1 DESCRIPTION
Catmandu provides a command line tools for the conversion of various data
view release on metacpan or search on metacpan
lib/CfgTie/filever.pm view on Meta::CPAN
#Migrate us to some backup copies, use one more than default so we
#can unroll
&Roll($Old,$RollDepth+1);
# Modify the permissions of the new file to match that of the old one.
if (!chmod($S[2], $New) ||
# Modify the ownership of the new file to match that of the old one.
!chown($S[4], $S[5], $New)||
!rename($New, $Old))
view release on metacpan or search on metacpan
t/cfn_json/001.json view on Meta::CPAN
"UserData" : {
"Fn::Base64" : {
"Fn::Join" : [
"",
[
"#!/bin/bash\necho \"code ALL=(ALL) NOPASSWD:ALL\" > /etc/sudoers.d/code\nchmod 440 /etc/sudoers.d/code\napt-get install -y git htop\n"
]
]
}
},
"ImageId" : {
view release on metacpan or search on metacpan
example/example-latex.pl view on Meta::CPAN
handler => sub {
my ($t_name,$t_base,$t_ext)=@_;
my $rerun=1;
my ($multiply_defined_labels,$undefined_references,$font_shapes_not_available);
while ($rerun) {
print "> latex -interaction=batchmode $t_base.tex\n";
$rerun=0;
$multiply_defined_labels=0;
my $output=`latex $t_base.tex`;
$rerun=1 if ($output =~ /LaTeX Warning: Label\(s\) may have changed/);
$multiply_defined_labels=1 if ($output =~ /LaTeX Warning: There were multiply-defined labels/);