view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my %common_opts = (
VERSION => $VERSION,
PREREQ_PM => \%prereqs,
dist => {
COMPRESS => 'gzip -9f', SUFFIX => 'gz',
PREOP => 'find $(DISTVNAME) -type d -print|xargs chmod 0755 && ' .
'find $(DISTVNAME) -type f -print|xargs chmod 0644',
TO_UNIX => 'find $(DISTVNAME) -type f -print|xargs dos2unix'
},
clean => { FILES => 't/TEST' },
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
);
sub MY::postamble {
q{
README: Stage.pm Makefile
chmod +w $@
pod2text Stage.pm > $@
}
}
view release on metacpan or search on metacpan
lib/Apache/TestConfig.pm view on Meta::CPAN
$self->genfile_warning($file, undef, $fh);
print $fh $content if $content;
close $fh;
chmod 0755, $file;
}
sub make_shebang {
# if perlpath is longer than 62 chars, some shells on certain
# platforms won't be able to run the shebang line, so when seeing
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
Makefile.old view on Meta::CPAN
POD2MAN_EXE = /usr/bin/pod2man
POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(q[$(PERLRUN) $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW)), $$m{$$_}) or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
manifypods : pure_all lib/Apache/TopicMaps.pm
@$(POD2MAN) \
lib/Apache/TopicMaps.pm \
$(INST_MAN3DIR)/Apache::TopicMaps.$(MAN3EXT)
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
if (!rename("$dest.new", "$dest")) {
print STDERR "Cannot rename $dest.new to $dest: $!\n";
exit 10;
}
unlink "$dest.bak";
unless (chmod $perms, $dest) {
print STDERR "Cannot change permissions on $dest: $!\n";
}
1;
}
view release on metacpan or search on metacpan
lib/Apache/Voodoo/Install.pm view on Meta::CPAN
$pretend || mkdir($dir,770) || $self->{ignore} || die "Can't create directory $dir: $!";
$self->debug(": created");
}
$self->info("- Making sure the $dir directory is writable by apache");
$pretend || chown($uid,$gid,$dir) || $self->{ignore} || die "Can't chown directory: $!";
$pretend || chmod(0770,$dir) || $self->{ignore} || die "Can't chmod directory: $!";
$self->debug(": ok");
}
}
sub make_writeable_files {
lib/Apache/Voodoo/Install.pm view on Meta::CPAN
$pretend || (system("touch $file") && ($self->{ignore} || die "Can't create file: $!"));
$self->debug(": created");
}
$self->info("- Making sure the $file directory is writable by apache");
$pretend || chown($uid,$gid,$file) || $self->{ignore} || die "Can't chown file: $!";
$pretend || chmod(0600,$file) || $self->{ignore} || die "Can't chmod file: $!";
$self->debug(": ok");
}
}
# In a pine box somewhere De Morgan is either spinning violently, or applauding. We're not
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
view release on metacpan or search on metacpan
conf/server.xml.PL view on Meta::CPAN
(my $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;
require '../.cfg';
print "Extracting $file (with variable substitutions)\n";
view release on metacpan or search on metacpan
lib/Apache2/ASP/ASPPage.pm view on Meta::CPAN
unlink( $s->pm_path ) if -f $s->pm_path;
open my $ofh, '>', $s->pm_path
or die "Cannot open '" . $s->pm_path . "' for writing: $!";
print $ofh $code;
close($ofh);
chmod( 0666, $s->pm_path );
}# end _assemble_code()
#==============================================================================
sub _get_directives
view release on metacpan or search on metacpan
0.22 Wed Jun 12 06:33:30 2003
- Try to fix the "extended" text in the documentation of module
0.23 Wed Jun 12 06:33:30 2003
- Fix the chmod on the files so that the installation will be able to manipulate
the files.
0.24 Sat Jun 21 06:33:30 2003
- Fix the Makefile.PL, to make sure that the module can not be made
without Net::LDAP
view release on metacpan or search on metacpan
lib/Apache2/Authen/Passphrase.pm view on Meta::CPAN
my $conf = eval { LoadFile $file } // undef;
$conf->{passphrase}=pwhash $pass;
$conf->{passphrase_version}=PASSPHRASE_VERSION;
DumpFile $file, $conf;
chmod 0660, $file;
}
sub pwcheck{
my ($user, $pass)=@_;
die INVALID_USER unless $user =~ USER_REGEX; ## no critic (RequireCarping)
view release on metacpan or search on metacpan
Auth/RCS/Makefile.old,v view on Meta::CPAN
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
Auth/RCS/Makefile.old,v view on Meta::CPAN
POD2MAN_EXE = /usr/local/bin/pod2man
POD2MAN = $(PERL) -we '%m=@@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'
manifypods : pure_all Auth.pm
@@$(POD2MAN) \
Auth.pm \
$(INST_MAN3DIR)/Apache::AuthenSecurID::Auth.$(MAN3EXT)
view release on metacpan or search on metacpan
t/session/005internal_redirect.t view on Meta::CPAN
#!/usr/bin/perl
print "Location: /TestSession__001session_generation?SESSION\n\n";
EOF
close F;
chmod 0755, "t/htdocs/bin/x.pl";
my $got=GET_BODY( "/bin/x.pl" );
ok t_cmp( $got, qr/^SESSION=.+/m, ), "without session";
$got=~m/^SESSION=(.+)/;
view release on metacpan or search on metacpan
set_pureperl.PL view on Meta::CPAN
my $fh;
open ($fh,$dispatch) || die "cannot read Dispatch.pm: $!";
my $code=join('',<$fh>);
close $fh;
chmod(0755,$dispatch);
$code =~ s{(\$Apache::Dispatch::PUREPERL\=)\d}{$1$pureperl};
open ($fh,">", $dispatch) || die "cannot write to Dispatch.pm: $!";
print $fh $code;
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- 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
FileManager.pm view on Meta::CPAN
Make sure the web server has read, write, and execute access access to the
directory you want to manage files in. Typically you are going to want to
run the following commands before you begin.
chown -R nobody /web/xyz/htdocs
chmod -R 755 /web/xyz/htdocs
The extract functionality only works with *.tar.gz and *.zip files.
=head1 RSYNC FEATURE
FileManager.pm view on Meta::CPAN
(will fail but will make known_hosts file)
- log out from user nobody back to root user
- dev_server> cd /usr/local/apache/nobody/.ssh
- dev_server> scp id_dsa.pub production_server:/usr/local/apache/nobody/.ssh/authorized_keys
- dev_server> chown -R nobody.nobody /usr/local/apache/nobody
- dev_server> chmod -R 700 /usr/local/apache/nobody
#7 log back into the production server
#8 become root
#9 Do the following commands:
- production_server> chown -R nobody.nobody /usr/local/apache/nobody
- production_server> chmod -R 700 /usr/local/apache/nobody
You also need to specify the production server in the development server's
web conf file. So your conf file should look like this:
<Location /FileManager>
view release on metacpan or search on metacpan
$dbh->do( $tables{$table} );
}
}
$dbh->disconnect;
chmod 0666 => "$pkit_root/dbfile";
unless ($root_found) {
push( @ARGV, '--documentroot' => $pkit_root );
chmod 0777 => catfile( $pkit_root, 'View', 'pkit_cache' );
}
Apache::TestRunPerl->new->run(@ARGV);
1;
view release on metacpan or search on metacpan
Apache::TestRequest::user_agent(reset => 1,
requests_redirectable => 0);
my @functions=qw/ -X 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 endgrent endhostent endnetent
endprotoent endpwent endservent eof eval exec exists
exit exp fcntl fileno flock fork format formline getc
getgrent getgrgid getgrnam gethostbyaddr gethostbyname
view release on metacpan or search on metacpan
lib/Apache2/WebApp/Helper/Project.pm view on Meta::CPAN
mkpath("$doc_root/tmp", $verbose);
mkpath("$doc_root/tmp/cache", $verbose);
mkpath("$doc_root/tmp/cache/templates", $verbose);
mkpath("$doc_root/tmp/uploads", $verbose);
# File::Path ignores default 0777, use chmod instead
chmod 0777, "$doc_root/logs";
chmod 0777, "$doc_root/tmp";
chmod 0777, "$doc_root/tmp/cache";
chmod 0777, "$doc_root/tmp/cache/templates";
chmod 0777, "$doc_root/tmp/uploads";
open (FILE1, ">$doc_root/logs/access_log" ) or $self->error("Cannot open file: $!"); close(FILE1);
open (FILE2, ">$doc_root/logs/error_log" ) or $self->error("Cannot open file: $!"); close(FILE2);
open (FILE3, ">$doc_root/htdocs/favicon.ico") or $self->error("Cannot open file: $!"); close(FILE3);
lib/Apache2/WebApp/Helper/Project.pm view on Meta::CPAN
$self->write_file("$source/index_html.tt", "$doc_root/htdocs/index.html" );
$self->write_file("$source/projrc.tt", "$doc_root/.projrc" );
$self->write_file("$source/template.tt", "$doc_root/templates/example.tt" );
$self->write_file("$source/error.tt", "$doc_root/templates/error.tt" );
chmod 0666, "$doc_root/conf/htpasswd";
print "\033[33mProject '$project' created successfully\033[0m\n";
exit;
}
view release on metacpan or search on metacpan
bin/loghack view on Meta::CPAN
{ # record results
want_dir("$outpath.loaded");
my $tag = ($ENV{HOSTNAME} || '') . '.' . $$;
open($ch, '>', "$checkfile.$tag") or
die "cannot write '$checkfile.$tag' $!";
# TODO chmod
rename("$checkfile.$tag", $checkfile) or
die "cannot make $checkfile $!";
}
# TODO a replayable pipe would be nice
bin/loghack view on Meta::CPAN
print $out join("\t", @$v), "\n";
}
print $ch "$linecount\n";
close($ch) or die "write '$checkfile' failed $!";
# TODO race checks/chmod
}
wait(); # XXX need this?
return(@loaded);
}
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_bless|5.003007||Viu
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
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
Perl_langinfo|5.027004|5.027004|n
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
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
view release on metacpan or search on metacpan
script/acme-cpanauthors view on Meta::CPAN
# }
# die "Cannot resolve Sah schema: can't check whether $type is a builtin Sah type: $err"
# unless $err =~ /\ACan't locate/;
#
# # not a type, try a schema under Sah::Schema
# my $schmod = "Sah::Schema::$type";
# (my $schmod_pm = "$schmod.pm") =~ s!::!/!g;
# eval { require $schmod_pm; 1 };
# die "Cannot resolve Sah schema: not a known built-in Sah type '$type' (can't locate ".
# "Data::Sah::Type::$type) and not a known schema name '$type' ($@)"
# if $@;
# no strict 'refs';
# my $sch2 = ${"$schmod\::schema"};
# die "Cannot resolve Sah schema: BUG: Schema module $schmod doesn't contain \$schema"
# unless $sch2;
# $res->{type} = $sch2->[0];
# unshift @{ $res->{clsets_after_type} }, $sch2->[1];
# _resolve($opts, $res);
#}
view release on metacpan or search on metacpan
Step 1: Install cpanm
mkdir ~/bin
cd ~/bin
curl -LO http://xrl.us/cpanm
chmod +x cpanm
Step 2: Install local::lib and setup your environment
~/bin/cpanm --local-lib=~/perl5 local::lib
eval $(perl -I ~/perl5/lib/perl5/ -Mlocal::lib)
view release on metacpan or search on metacpan
doc/bacteria_2_3.md view on Meta::CPAN
## lambda: download
* Reference genome
* Strain: Escherichia virus Lambda (viruses)
* Taxid: [10710](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=10710&lvl=3&lin=f&keep=1&srchmode=1&unlock)
* RefSeq assembly accession:
[GCF_000840245.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/840/245/GCF_000840245.1_ViralProj14204/GCF_000840245.1_ViralProj14204_assembly_report.txt)
* Proportion of paralogs (> 1000 bp): 0.0
```bash
doc/bacteria_2_3.md view on Meta::CPAN
## Lpne: download
* Reference genome
* Strain: Legionella pneumophila subsp. pneumophila str. Philadelphia 1
* Taxid: [272624](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=272624&lvl=3&lin=f&keep=1&srchmode=1&unlock)
* RefSeq assembly accession:
[GCF_000008485.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/008/485/GCF_000008485.1_ASM848v1/GCF_000008485.1_ASM848v1_assembly_report.txt)
* Proportion of paralogs (> 1000 bp): 0.0264
```bash
doc/bacteria_2_3.md view on Meta::CPAN
## Cjej: download
* Reference genome
* Strain: Campylobacter jejuni subsp. jejuni NCTC 11168 = ATCC 700819
* Taxid: [192222](https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=192222&lvl=3&lin=f&keep=1&srchmode=1&unlock)
* RefSeq assembly accession:
[GCF_000009085.1](ftp://ftp.ncbi.nlm.nih.gov/genomes/all/GCF/000/009/085/GCF_000009085.1_ASM908v1/GCF_000009085.1_ASM908v1_assembly_report.txt)
* Proportion of paralogs (> 1000 bp): 0.0196
```bash
view release on metacpan or search on metacpan
maint/Makefile.include view on Meta::CPAN
pack: bcssh
bcssh: bin/bcssh $(TO_INST_PM) maint/pack
$(PERL) maint/pack bin/bcssh > bcssh
chmod +x bcssh
release-pack: bcssh
maint/update-build-branch $(VERSION) build bcssh
view release on metacpan or search on metacpan
check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
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
Perl_langinfo|5.027004|5.027004|n
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
Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu
view release on metacpan or search on metacpan
bin/appbasis view on Meta::CPAN
path($appname)->spew($boilerplate);
if ( -f $appname ) {
# being lazy, not reading in the current value and updating and writing back
system("chmod a+x '$appname'");
print "app $appname created.\n";
}
else {
print "failed to create $appname\n";
exit 1;
view release on metacpan or search on metacpan
t/app-boolfindgrep.t view on Meta::CPAN
@ENV{qw[TMDIR TMP_DIR]},
q(/tmp);
$tmpdir = catdir( $tmpdir, $basename );
if ( -d $tmpdir ) {
chmod oct q(0770), $tmpdir;
remove_tree $tmpdir or die $!;
}
mkdir $tmpdir, oct q(0770) or die $!;
my @tmpfile;
view release on metacpan or search on metacpan
bin/bootstrap-perl view on Meta::CPAN
if (not -e $bin_mycpan) {
open (my $MYCPAN, '>', $bin_mycpan) or die "Can not create $bin_mycpan";
print $MYCPAN qq{#! /bin/bash\n};
print $MYCPAN qq{$CPAN -j $CFG "\$\@"\n};
close $MYCPAN;
print_and_system qq!chmod +x $bin_mycpan!;
}
print $USER "# PERL: $PERL\n";
print $USER "# CPAN: $CPAN\n";
print $USER "# MYCPAN: $bin_mycpan\n";
bin/bootstrap-perl view on Meta::CPAN
# force a CPAN.pm with all features we need, assume old-school CPAN.pm
print_and_system qq{if [ -L $bin_cpan -o ! -e $bin_cpan ] ; then echo Why?: /bin/rm -f $bin_cpan ; echo "force install CPAN" | $PERL -MCPAN -e shell ; fi};
# once upon a time the cpan exe missed the executable bit - set it to be sure
print_and_system qq!chmod +x $CPAN!;
print_and_system qq!chmod +x $bin_cpan!;
print $USER "*** INSTALL cpan dependencies\n";
# install extended cpan toolchain; contains some "force" where we know they are really required
install_cpan_module($PERL, $bin_cpan, $CFG, NO_REINSTALL, FORCE, "CPAN::DistnameInfo");