Result:
found more than 1006 distributions - search limited to the first 2001 files matching your query
( run in 0.621 )
App-vl
view release on metacpan or search on metacpan
=head2 Downloading the standalone executable
You can also copy the standalone executable to whatever location you'd like.
% curl -o vl -L http://bit.ly/App-vl
% chmod +x vl
NOTE: Edit shebang if you don't have /usr/bin/env
=head1 DOCUMENTATION
App-wdq
view release on metacpan or search on metacpan
Then install C<wdq> from CPAN as described above or copy the script to some
place in your C<$PATH>:
wget https://github.com/nichtich/wdq/raw/master/script/wdq
chmod +x wdq
The latter method will not install this documentation.
=head1 MODES
App-whatthecommit
view release on metacpan or search on metacpan
lib/App/whatthecommit.pm view on Meta::CPAN
my $prepare_commit_msg = $git . "/.git/hooks/prepare-commit-msg";
open my $REPO, ">$prepare_commit_msg"
or die( print "Cannot open $prepare_commit_msg\n" );
print $REPO $HOOK;
close $REPO;
chmod 0755, $prepare_commit_msg;
print "[$git] You are good to go, try to commit in your repo now\n";
}
__END__
=encoding utf-8
App-wordlist
view release on metacpan or search on metacpan
script/wordlist 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);
#}
App-xml_grep2
view release on metacpan or search on metacpan
t/01-options.t view on Meta::CPAN
test_encoding( "$XML_GREP2 $xs1 $LATIN1", wrapped( "<s1>été</s1>"), 'UTF-8', "latin1 input, utf8 output");
test_encoding( "$XML_GREP2 -o $xs1 $LATIN1", wrapped( "<s1>été</s1>", 'ISO-8859-1'), 'ISO-8859-1', "latin1 input, latin1 output");
test_encoding( "$XML_GREP2 -H -o $xs1 $LATIN1", wrapped( file_wrapped( qq{<s1>été</s1>}, $LATIN1), 'ISO-8859-1'), 'ISO-8859-1', "-H -o latin1");
test_encoding( "$XML_GREP2 -f 1 -H -o $xs1 $LATIN1", wrapped( file_wrapped( qq{ <s1>été</s1>}, $LATIN1), 'ISO-8859-1'), 'ISO-8859-1', "-H -o -f 1 latin1");
my $mode= 0000; chmod $mode, $MALFORMED or die "cannot chmod $mode $MALFORMED: $!";
is( `$XML_GREP2 $RECURSE $foo $TEST_DIR 2>&1`, "xml_grep2: $MALFORMED: Permission denied\n", 'test on unreadable file');
$mode= 0644; chmod $mode, $MALFORMED or die "cannot chmod $mode $MALFORMED: $!";
# prepare the catalog (make uri absolute)
system "$PERL -p -e$Q use Cwd; s{PWD}{cwd()}ge;$Q t/catalog.templ > t/catalog";
is( `$XML_GREP2 -t -C $TEST_DIR/catalog $xs1 $TEST_DIR/with_cat.cxml`, "entity c \n", "-C");
AppLib-CreateSelfSignedSSLCert
view release on metacpan or search on metacpan
lib/AppLib/CreateSelfSignedSSLCert.pm view on Meta::CPAN
my $h = $args{hostname};
system("openssl genrsa 2048 > "._sq("$h.key"));
return [500, "Can't generate key: ".explain_child_error()] if $?;
chmod 0400, "$h.key" or warn "WARN: Can't chmod 400 $h.key: $!";
my $cmd = "openssl req -new -key "._sq("$h.key")." -out "._sq("$h.csr");
if ($args{interactive}) {
system $cmd;
return [500, "Can't generate csr: ".explain_child_error()] if $?;
lib/AppLib/CreateSelfSignedSSLCert.pm view on Meta::CPAN
return [500, "Can't generate info: ".explain_child_error()] if $?;
system("cat "._sq("$h.crt")." "._sq("$h.key")." > "._sq("$h.pem"));
return [500, "Can't generate pem: ".explain_child_error()] if $?;
system("chmod 400 "._sq("$h.pem"));
log_info("Your certificate has been created at $h.pem");
[200];
}
Arabic
view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
my $e_script = Arabic::escape_script($filename);
print {$fh} $e_script;
my $mode = (stat($filename))[2] & 0777;
chmod $mode, "$filename.e";
close($fh) or die "Can't close file: $filename.e: $!";
}
my $fh = gensym();
Archive-Any
view release on metacpan or search on metacpan
anonymize-archives view on Meta::CPAN
my $member = file( $dir, $path );
unshift @mtime, [ ( ( stat $member )[9] ) x 2, "$member" ];
next if -d $member;
if ( !-w $member ) {
$mode = ( stat $member )[2] if !-w $member;
chmod 0644, $member;
}
$member->spew( pack "C*", map rand 256, 1 .. -s $member );
chmod $mode, $member if $mode;
}
# restore date and time
utime @$_ for @mtime;
Archive-Ar-Libarchive
view release on metacpan or search on metacpan
lib/Archive/Ar/Libarchive.pm view on Meta::CPAN
$ret;
}
sub chmod
{
my($self, $filename, $mode) = @_;
$self->_chmod($filename, $mode + 0 eq $mode ? $mode : oct($mode));
}
sub chown
{
lib/Archive/Ar/Libarchive.pm view on Meta::CPAN
and 2 for warnings with a stack trace. Default is zero.
Warnings that originate with libarchive itself will not include a
stacktrace, even with a warn level set to 2.
=item chmod
Change the file permissions of files created when extracting. Default
is true (non-zero).
This option is provided only for compatibility with L<Archive::Ar>.
lib/Archive/Ar/Libarchive.pm view on Meta::CPAN
$ar->rename($filename, $newname);
Changes the name of a file in the in-memory archive.
=head2 chmod
$ar->chmod($filename, $mode);
Change the permission mode of the member to C<$mode>.
=head2 chown
Archive-Ar-Ng
view release on metacpan or search on metacpan
lib/Archive/Ar/Ng.pm view on Meta::CPAN
my $class = shift;
my $file = shift;
my $opts = shift || 0;
my $self = bless {}, $class;
my $defopts = {
chmod => 1,
chown => 1,
same_perms => ( $> == 0 ) ? 1 : 0,
symbols => undef,
};
$opts = {warn => $opts} unless ref $opts;
lib/Archive/Ar/Ng.pm view on Meta::CPAN
##--
close $fh or return $self->_error( "$filename: $!" );
if ( CAN_CHOWN && $self->{opts}->{chown} ) {
chown $meta->{fuid}, $meta->{fgid}, $filename or return $self->_error( "$filename: $!" );
}
if ( $self->{opts}->{chmod} ) {
my $mode = $meta->{mode};
unless ( $self->{opts}->{same_perms} ) {
$mode &= ~( oct( 7000 ) | ( umask | 0 ) );
}
chmod $mode, $filename or return $self->_error( "$filename: $!" );
}
utime $meta->{date}, $meta->{date}, $filename or return $self->_error( "$filename: $!" );
return 1;
}
Archive-Ar
view release on metacpan or search on metacpan
lib/Archive/Ar.pm view on Meta::CPAN
my $class = shift;
my $file = shift;
my $opts = shift || 0;
my $self = bless {}, $class;
my $defopts = {
chmod => 1,
chown => 1,
same_perms => ($> == 0) ? 1:0,
symbols => undef,
};
$opts = {warn => $opts} unless ref $opts;
lib/Archive/Ar.pm view on Meta::CPAN
close $fh or return $self->_error("$filename: $!");
if (CAN_CHOWN && $self->{opts}->{chown}) {
chown $meta->{uid}, $meta->{gid}, $filename or
return $self->_error("$filename: $!");
}
if ($self->{opts}->{chmod}) {
my $mode = $meta->{mode};
unless ($self->{opts}->{same_perms}) {
$mode &= ~(oct(7000) | (umask | 0));
}
chmod $mode, $filename or return $self->_error("$filename: $!");
}
utime $meta->{date}, $meta->{date}, $filename or
return $self->_error("$filename: $!");
return 1;
}
lib/Archive/Ar.pm view on Meta::CPAN
}
}
}
}
sub chmod {
my $self = shift;
my $filename = shift;
my $mode = shift; # octal string or numeric
return unless $self->{files}->{$filename};
lib/Archive/Ar.pm view on Meta::CPAN
$ar->extract;
$ar->add_files('./bar.tar.gz', 'bat.pl')
$ar->add_data('newfile.txt','Some contents');
$ar->chmod('file1', 0644);
$ar->chown('file1', $uid, $gid);
$ar->remove('file1', 'file2');
my $filehash = $ar->get_content('bar.tar.gz');
lib/Archive/Ar.pm view on Meta::CPAN
=item * warn
Warning level. Levels are zero for no warnings, 1 for brief warnings,
and 2 for warnings with a stack trace. Default is zero.
=item * chmod
Change the file permissions of files created when extracting. Default
is true (non-zero).
=item * same_perms
lib/Archive/Ar.pm view on Meta::CPAN
$ar->rename($filename, $newname)
Changes the name of a file in the in-memory archive.
=head2 chmod
$ar->chmod($filename, $mode);
Change the mode of the member to C<$mode>.
=head2 chown
Archive-Builder
view release on metacpan or search on metacpan
lib/Archive/Builder/File.pm view on Meta::CPAN
File::Flat->write( $filename, $contents )
or return $self->_error( "Error writing to '$filename': $!" );
# If it is executable, set the mode
if ( $self->{executable} ) {
chmod 0755, $filename;
}
1;
}
Archive-Ipkg
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
Archive-Libarchive-FFI
view release on metacpan or search on metacpan
lib/Archive/Libarchive/FFI/Function.pod view on Meta::CPAN
my $status = archive_entry_acl_reset($entry, $want_type);
prepare reading the list of ACL entries with
L<archive_entry_acl_next|Archive::Libarchive::FFI::Function#archive_entry_acl_next> or L<archive_entry_acl_next_w|Archive::Libarchive::FFI::Function#archive_entry_acl_next_w>. The function returns
either 0, if no non-extended ACLs are found. In this case, the access permissions
should be obtained by L<archive_entry_mode|Archive::Libarchive::FFI::Function#archive_entry_mode> or set using L<chmod|perlfunc#chmod>.
Otherwise, the function returns the same value as L<archive_entry_acl_count|Archive::Libarchive::FFI::Function#archive_entry_acl_count>.
=head2 archive_entry_acl_text
my $string = archive_entry_acl_text($entry, $flags);
Archive-Libarchive-XS
view release on metacpan or search on metacpan
lib/Archive/Libarchive/XS.xs view on Meta::CPAN
my $status = archive_entry_acl_reset($entry, $want_type);
prepare reading the list of ACL entries with
L<#archive_entry_acl_next> or L<#archive_entry_acl_next_w>. The function returns
either 0, if no non-extended ACLs are found. In this case, the access permissions
should be obtained by L<#archive_entry_mode> or set using L<chmod|perlfunc#chmod>.
Otherwise, the function returns the same value as L<#archive_entry_acl_count>.
=cut
#if HAS_archive_entry_acl_reset
Archive-Libarchive
view release on metacpan or search on metacpan
maint/Dockerfile view on Meta::CPAN
RUN mkdir -p /tmp/build \
&& cd /tmp/build \
&& curl -L http://libarchive.org/downloads/libarchive-${unsupported}.tar.gz | tar zxf - \
&& cd libarchive-${unsupported} \
&& chmod +x ./configure \
&& ./configure \
--prefix=/opt/libarchive/${unsupported} \
--without-openssl \
--with-nettle \
--enable-bsdtar=static \
Archive-Par
view release on metacpan or search on metacpan
This package tests the handling of pars with corrupt source files of
Archive::Par.
=cut
use Fatal 1.02 qw( chmod unlink );
use File::Compare 1.1002 qw( cmp );
use File::Copy 2.03 qw( cp mv );
use File::Spec::Functions qw( catfile rel2abs );
use FindBin 1.42 qw( $Bin );
use Test 1.13 qw( ok plan skip );
mv catfile(DATA_DIR, "miffy.$_"), catfile(DATA_DIR, "miffy-moved.$_");
}
for (map "miffy.$_", 1,3..5) {
my $stat = (stat($_))[2] & 0777;
my $target = catfile(DATA_DIR, $_);
chmod 0600, $target
if -e $target; # #4 should be gone
cp $_, $target
or die sprintf "Failed to move %s -> %s: $!", $_, $target;
chmod $stat, $target;
}
}
# -------------------------------------
Archive-SevenZip
view release on metacpan or search on metacpan
t/22_deflated_dir.t
t/badjpeg/expected.jpg
t/badjpeg/source.zip
t/common.pm
t/data/bad_github11.zip
t/data/chmod.zip
t/data/crypcomp.zip
t/data/crypt.zip
t/data/def.zip
t/data/defstr.zip
t/data/emptydef.zip
Archive-Tar-Builder
view release on metacpan or search on metacpan
t/lib-Archive-Tar-Builder.t view on Meta::CPAN
eval { $builder->finish(); };
ok( !$@, '$builder->finish() does not die() if "ignore_errors" is set for non-fatals' );
chmod( 0600, $dir );
}
#
# Test external functionality
#
t/lib-Archive-Tar-Builder.t view on Meta::CPAN
eval { $builder->finish(); };
like( $@ => qr/^Delayed nonzero exit/, '$builder->finish() dies if any errors were encountered' );
chmod( 0600, $path );
}
# Test long filenames, symlinks
foreach my $ext (qw/gnu posix/) {
my $tmpdir = File::Temp::tempdir( 'CLEANUP' => 1 );
Archive-Tar-Wrapper-IPC-Cmd
view release on metacpan or search on metacpan
lib/Archive/Tar/Wrapper/IPC/Cmd.pm view on Meta::CPAN
chown -1, $gid, $target or
LOGDIE "Can't chown $target gid to $gid ($!)";
}
if(defined $perm) {
chmod $perm, $target or
LOGDIE "Can't chmod $target to $perm ($!)";
}
if(!defined $uid and
!defined $gid and
!defined $perm and
lib/Archive/Tar/Wrapper/IPC/Cmd.pm view on Meta::CPAN
######################################
my($filename, $perms) = @_;
chown($perms->[1], $perms->[2], $filename) or
LOGDIE "Cannot chown $filename ($!)";
chmod($perms->[0] & 07777, $filename) or
LOGDIE "Cannot chmod $filename ($!)";
}
###########################################
sub remove {
###########################################
Archive-Tar-Wrapper
view release on metacpan or search on metacpan
lib/Archive/Tar/Wrapper.pm view on Meta::CPAN
chown -1, $gid, $target
or LOGDIE "Can't chown $target gid to $gid ($!)";
}
if ( defined $perm ) {
chmod $perm, $target
or LOGDIE "Can't chmod $target to $perm ($!)";
}
if ( not defined $uid
and not defined $gid
and not defined $perm
lib/Archive/Tar/Wrapper.pm view on Meta::CPAN
}
sub perm_set {
my ( $filename, $perms ) = @_;
chown( $perms->[1], $perms->[2], $filename );
chmod( $perms->[0] & oct(777), $filename )
or LOGDIE "Cannot chmod $filename ($!)";
return 1;
}
sub remove {
my ( $self, $rel_path ) = @_;
Archive-Tar
view release on metacpan or search on metacpan
lib/Archive/Tar.pm view on Meta::CPAN
$tar->add_data('file/baz.txt', 'This is the contents now');
$tar->rename('oldname', 'new/file/name');
$tar->chown('/', 'root');
$tar->chown('/', 'root:root');
$tar->chmod('/tmp', '1777');
$tar->write('files.tar'); # plain tar
$tar->write('files.tgz', COMPRESS_GZIP); # gzip compressed
$tar->write('files.tbz', COMPRESS_BZIP); # bzip2 compressed
$tar->write('files.txz', COMPRESS_XZ); # xz compressed
lib/Archive/Tar.pm view on Meta::CPAN
if( $CHOWN && CAN_CHOWN->() and not -l $full ) {
CORE::chown( $entry->uid, $entry->gid, $full ) or
$self->_error( qq[Could not set uid/gid on '$full'] );
}
### only chmod if we're allowed to, but never chmod symlinks, since they'll
### change the perms on the file they're linking too...
if( $CHMOD and not -l $full ) {
my $mode = $entry->mode;
unless ($SAME_PERMISSIONS) {
$mode &= ~(oct(7000) | umask);
}
CORE::chmod( $mode, $full ) or
$self->_error( qq[Could not chown '$full' to ] . $entry->mode );
}
return 1;
}
lib/Archive/Tar.pm view on Meta::CPAN
my $entry = $self->_find_entry( $file ) or return;
return $entry->rename( $new );
}
=head2 $tar->chmod( $file, $mode )
Change mode of $file to $mode.
Returns true on success and false on failure.
=cut
sub chmod {
my $self = shift;
my $file = shift; return unless defined $file;
my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
my @args = ("$mode");
my $entry = $self->_find_entry( $file ) or return;
my $x = $entry->chmod( @args );
return $x;
}
=head2 $tar->chown( $file, $uname [, $gname] )
lib/Archive/Tar.pm view on Meta::CPAN
The default is C<1>.
=head2 $Archive::Tar::CHMOD
By default, C<Archive::Tar> will try to C<chmod> your files to
whatever mode was specified for the particular file in the archive.
In some cases, this may not be desired. In that case, set this
variable to C<0> to disable C<chmod>-ing.
The default is C<1>.
=head2 $Archive::Tar::SAME_PERMISSIONS
Archive-Unzip-Burst
view release on metacpan or search on metacpan
unzip-6.0/History.600 view on Meta::CPAN
- AOS/VS, Atari, AtheOS, BeOS, UNIX (and unzpriv.h, fileio.c): modified the
symlink code to use the opened outfile handle for re-reading the symlink
target data; modified open_outfile to allow read access on outfile handle
(security fix against "ToCToU" vulnerability) [Chr. Spieler]
- UNIX (unix.c, Makefile, configure): fixed "ToCToU" security vulnerability
in close_outfile by using fchown() & fchmod() instead of chown() & chmod()
(only when available); added check for function existence to configure
[Dan Yefimov, Matthias Scheler, Chr. Spieler]
- fileio.c - open_outfile(): deny access for group&world to currently open
outfile on all systems that support umask() (AOS/VS, Atari, AtheOS, BeOS,
QDOS, Tandem, UNIX) [Chr. Spieler]
unzip-6.0/History.600 view on Meta::CPAN
with warning display (suppressible by -q command qualifier). [C. Spieler]
6.00h02 (16 Apr 09):
- extract.c: fixed evaluation sequence of check expression by adding correct
pairs of parentheses. [EG, SMS]
- unix/configure: added working check for lchmod. [SMS]
- unzip.c: added compile option display for MBCS support. [Chr. Spieler]
- unzpriv.h, unix/unxcfg.h, win32/w32cfg.h: the new preprocessor symbol
NO_MBCS allows to explicitely disable MBCS support. [Chr. Spieler]
- INSTALL: documented _MBCS and NO_MBCS preprocessor symbols. [Chr. Spieler]
- unix/configure: added checks for MBCS support. [Chr. Spieler]
Archive-Zip-SimpleZip
view release on metacpan or search on metacpan
t/compress/CompTestUtils.pm view on Meta::CPAN
Carp::croak "NO!!!!" if defined $_;
# autogenerate the name if none supplied
$_ = "tst" . $$ . "X" . $index ++ . ".tmp"
unless defined $_;
}
chmod 0777, @_;
for (@_) { 1 while unlink $_ } ;
bless [ @_ ], $self ;
}
sub DESTROY
{
my $self = shift ;
chmod 0777, @{ $self } ;
for (@$self) { 1 while unlink $_ } ;
}
}
Archive-Zip
view release on metacpan or search on metacpan
lib/Archive/Zip/Member.pm view on Meta::CPAN
($status, $fh) = _newFileHandle($name, 'w');
}
return _ioError("Can't open file $name for write") unless $status;
$status = $self->extractToFileHandle($fh);
$fh->close();
chmod($self->unixFileAttributes(), $name)
or return _error("Can't chmod() ${name}: $!");
utime($self->lastModTime(), $self->lastModTime(), $name);
return $status;
}
}
Arcus-Client
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
Arepa
view release on metacpan or search on metacpan
install_arepa.pl view on Meta::CPAN
use lib qw(lib);
use File::Path;
use File::Basename;
use File::chmod qw(symchmod);
use File::Spec;
use Arepa::Config;
use Arepa::PackageDb;
$File::chmod::UMASK = 0;
my $arepa_user = "arepa-master";
my $arepa_group = "arepa";
my $web_user = "www-data";
my $web_group = "www-data";
install_arepa.pl view on Meta::CPAN
$config->get_key("upload_queue:path"),
$config->get_key("dir:build_logs")) {
print "Creating directory $path\n";
mkpath($path);
chown($uid, $gid, $path);
symchmod("g+w", $path);
}
my $builder_dir = "/etc/arepa/builders";
print "Creating builder configuration directory $builder_dir\n";
mkpath($builder_dir);
chown($uid, $gid, $builder_dir);
symchmod("g+w", $builder_dir);
print "Creating package DB in $package_db_path\n";
my $package_db = Arepa::PackageDb->new($package_db_path);
chown($uid, $gid, $package_db_path);
symchmod("g+w", $package_db_path);
my $db_dir = dirname($package_db_path);
print "Fixing permissions for database directory $db_dir\n";
chown($uid, $gid, $db_dir);
symchmod("g+w", $db_dir);
my $session_db_path = $config->get_key("web_ui:session_db");
if (! -r $session_db_path) {
print "Creating web UI session DB in $session_db_path\n";
open F, ">>$session_db_path"; close F;
install_arepa.pl view on Meta::CPAN
echo "CREATE TABLE session (sid VARCHAR(40) PRIMARY KEY, data TEXT, expires INTEGER UNSIGNED NOT NULL, UNIQUE(sid));" | sqlite3 '$session_db_path'
EOC
print "Creating session DB schema with:\n$sqlite_cmd";
system($sqlite_cmd);
chown($web_uid, $web_gid, $session_db_path);
symchmod("g+w", $session_db_path);
}
my $repo_dists_conf = File::Spec->catfile($config->get_key("repository:path"),
"conf",
"distributions");
print "Creating repo configuration file in $repo_dists_conf\n";
open F, ">>$repo_dists_conf";
close F;
chown($uid, $gid, $repo_dists_conf);
symchmod("g+w", $repo_dists_conf);
my $gpg_dir = $config->get_key("web_ui:gpg_homedir");
print "Creating GPG directory in $gpg_dir\n";
mkpath($gpg_dir);
chown($web_uid, $web_gid, $gpg_dir);
chmod(0700, $gpg_dir);
my $gpg_options = File::Spec->catfile($config->get_key("web_ui:gpg_homedir"),
"options");
if (! -f $gpg_options) {
print "Creating options file $gpg_options\n";
my $keyrings_dir =
File::Spec->catfile(dirname($config->get_key("web_ui:gpg_homedir")),
"keyrings");
mkpath($keyrings_dir);
chown($uid, $gid, $keyrings_dir);
symchmod("g+w", $keyrings_dir);
open F, ">$gpg_options";
print F "keyring $keyrings_dir/uploaders.gpg\n";
close F;
chown($uid, $gid, $gpg_options);
symchmod("g+w", $gpg_options);
}
Array-Heap
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Canary::Stability Array::Heap => 1, 5.006;
WriteMakefile(
dist => {
PREOP => 'pod2text Heap.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "Array::Heap",
VERSION_FROM => "Heap.pm",
AsciiDB-TagFile
view release on metacpan or search on metacpan
TagRecord.pm view on Meta::CPAN
}
close (RECORD); # This close unlocks the file
if (defined $self->{_FILEMODE}) {
chmod ($self->{_FILEMODE}, $self->{_FILENAME})
or croak "Can't chmod $$self{_FILENAME}";
}
delete $self->{_UPDATED};
}
Astro-FITS-CFITSIO-FileName
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
( run in 0.621 second using v1.01-cache-2.11-cpan-496ff517765 )