view release on metacpan or  search on metacpan

lib/App/Virtualenv.pm  view on Meta::CPAN

	my $pkg_path = dirname(__FILE__);

	say "Copying... bin/activate";
	copy("$pkg_path/Virtualenv/activate", "$virtualenv_path/bin/activate");
	chmod(0644, "$virtualenv_path/bin/activate");

	say "Copying... bin/sh.pl";
	copy("$pkg_path/Virtualenv/sh.pl", "$virtualenv_path/bin/sh.pl");
	chmod(0755, "$virtualenv_path/bin/sh.pl");

	say "Copying... bin/perl.pl";
	file_put_contents("$virtualenv_path/bin/perl.pl", "#!".shellmeta($Config{perlpath})."\n".file_get_contents("$pkg_path/Virtualenv/perl.pl"));
	chmod(0755, "$virtualenv_path/bin/perl.pl");
	symlink("perl.pl", "$virtualenv_path/bin/perl");

	say "Copying... bin/virtualenv.pl";
	copy("$pkg_path/Virtualenv/virtualenv.pl", "$virtualenv_path/bin/virtualenv.pl");
	chmod(0755, "$virtualenv_path/bin/virtualenv.pl");
	symlink("virtualenv.pl", "$virtualenv_path/bin/virtualenv");

	return $virtualenv_path;
}

 view release on metacpan or  search on metacpan

lib/App/Wax.pm  view on Meta::CPAN

}

# remove temporary files
method _unlink ($unlink) {
    for my $filename (@$unlink) {
        chmod 0600, $filename; # borrowed from File::Temp (may be needed on Windows)
        $self->debug('removing: %s', $filename);
        unlink($filename) || $self->log(WARN => "Can't unlink %s: %s", $filename, $!);
    }
}

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    You may also choose to download wp-tools as a single executable, like
    this:

        curl -OL https://raw.githubusercontent.com/bluehost/wp-tools/solo/wp-tools
        chmod +x wp-tools

    This executable includes all the non-core Perl module dependencies
    built-in.

 For developers

 view release on metacpan or  search on metacpan

lib/App/XUL.pm  view on Meta::CPAN

			$tmpdir->base().'/'.$name.'/perl/modules/App/XUL/XML.pm');

		fcopy($utilspath.'/../lib/App/XUL/Object.pm', 
			$tmpdir->base().'/'.$name.'/perl/modules/App/XUL/Object.pm');

		# chmod certain files
		chmod(0755, $tmpdir->base().'/'.$name.'/start_macosx.pl');
		chmod(0755, $tmpdir->base().'/'.$name.'/start_win.pl');
		chmod(0755, $tmpdir->base().'/'.$name.'/start_linux.pl');

		# move tmpdir to final destination		
		rename($tmpdir->base().'/'.$name, $path);
		
	}

lib/App/XUL.pm  view on Meta::CPAN

			$tmpdir->base().'/'.$name.'.app/Contents/Resources/perl/modules/App/XUL/XML.pm');

		fcopy($utilspath.'/../lib/App/XUL/Object.pm', 
			$tmpdir->base().'/'.$name.'.app/Contents/Resources/perl/modules/App/XUL/Object.pm');

		# chmod certain files
		chmod(0755, $tmpdir->base().'/'.$name.'.app/Contents/MacOS/start.pl');

		# move tmpdir to final destination		
		rename($tmpdir->base().'/'.$name.'.app', $path);
	}
	else {

 view release on metacpan or  search on metacpan

lib/App/Yabsm/Command/Daemon.pm  view on Meta::CPAN

    if ($create_log_file) {
        open my $log_fh, '>>', '/var/log/yabsm'
          or confess q(yabsm: internal error: cannot open file '/var/log/yabsm' for writing);
        close $log_fh;
        chown $yabsm_uid, $yabsm_gid, '/var/log/yabsm';
        chmod 0644, '/var/log/yabsm';
    }

    if ($create_pid_file) {
        open my $pid_fh, '>', '/run/yabsmd.pid'
          or confess q(yabsm: internal error: cannot not open file '/run/yabsmd.pid' for writing);
        close $pid_fh;
        chown $yabsm_uid, $yabsm_gid, '/run/yabsmd.pid';
        chmod 0644, '/run/yabsmd.pid';
    }

    POSIX::setgid($yabsm_gid);
    POSIX::setuid($yabsm_uid);

lib/App/Yabsm/Command/Daemon.pm  view on Meta::CPAN

        my $pub_key  = "$ssh_dir/id_ed25519.pub";

        unless (-f $priv_key && -f $pub_key) {
            system_or_die('ssh-keygen', '-t', 'ed25519', '-f', $priv_key, '-N', '');
            chown $yabsm_uid, $yabsm_gid, $priv_key, $pub_key;
            chmod 0600, $priv_key;
            chmod 0644, $pub_key;
        }

        return 1;
    }

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - No changes since trial

1.000022  2020-08-13 15:18:07-07:00 America/Los_Angeles (TRIAL RELEASE)

    - Make failure to chmod things non-fatal to fix bsd testing
    - Fix spelling issues
    - Make chmod stuff more correct

1.000021  2020-08-04 21:03:28-07:00 America/Los_Angeles (TRIAL RELEASE)

    - Add changed_files plugin hook
    - Make git plugin support changed_files hook

 view release on metacpan or  search on metacpan

lib/App/ZFSCurses/Text.pm  view on Meta::CPAN

usedbyrefreservation%The amount of space used by a refreservation set on this dataset, which would be freed if the refreservation was removed.
userrefs%This property is set to the number of user holds on this snapshot. User holds are set by using the "zfs hold" command.
volblocksize%For volumes, specifies the block size of the volume. The blocksize cannot be changed once the volume has been written, so it should be set at volume creation time. The default blocksize for volumes is 8 Kbytes. Any power of 2 from 512 by...
written%The amount of referenced space written to this dataset since the previous snapshot.
aclinherit%Controls how ACL entries are inherited when files and directories are created. A file system with an aclinherit property of discard does not inherit any ACL entries. A file system with an aclinherit property value of noallow only inherits ...
aclmode%Controls how an ACL is modified during chmod(2). A file system with an aclmode property of discard (the default) deletes all ACL entries that do not represent the mode of the file. An aclmode property of groupmask reduces permissions granted ...
atime%Controls whether the access time for files is updated when they are read. Turning this property off avoids producing write traffic when reading files and can result in significant performance gains, though it might confuse mailers and other sim...
canmount%If this property is set to off, the file system cannot be mounted, and is ignored by "zfs mount -a". Setting this property to off is similar to setting the mountpoint property to none, except that the dataset still has a normal mountpoint pr...
checksum%Controls the checksum used to verify data integrity. The default value is on, which automatically selects an appropriate algorithm (currently, fletcher4, but this may change in future releases). The value off disables integrity checking on u...
compression%Controls the compression algorithm used for this dataset. Setting compression to on indicates that the current default compression algorithm should be used. The default balances compression and decompression speed, with compression ratio ...
copies%Controls the number of copies of data stored for this dataset. These copies are in addition to any redundancy provided by the pool, for example, mirroring or RAID-Z. The copies are stored on different disks, if possible. The space used by mult...

 view release on metacpan or  search on metacpan

script/_chinese-zodiac-of  view on Meta::CPAN

#    return [$type, $clsets] unless $err;
#    die "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 "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 "BUG: Schema module $schmod doesn't contain \$schema" unless $sch2;
#    unshift @$clsets, $sch2->[1];
#    _resolve($opts, $sch2->[0], $clsets, $seen);
#}
#
#sub resolve_schema {

 view release on metacpan or  search on metacpan

bin/zofcms_helper  view on Meta::CPAN

open my $fh, '>', $opts{index}
    or die "Failed to open/create $opts{index} [$!]";

print $fh make_index_pl( $opts{core} );
close $fh;
chmod 0755, $opts{index};

open $fh, '>', $opts{base}
    or die "Failed to open/create $opts{base} [$!]";

print $fh make_base();

 view release on metacpan or  search on metacpan

a2py.c  view on Meta::CPAN

	    *d = toUPPER(*d);
	else if (strEQ(d,"crypt"))
	    *d = toUPPER(*d);
	else if (strEQ(d,"chop"))
	    *d = toUPPER(*d);
	else if (strEQ(d,"chmod"))
	    *d = toUPPER(*d);
	else if (strEQ(d,"chown"))
	    *d = toUPPER(*d);
	ID(d);
    case 'd': case 'D':

 view release on metacpan or  search on metacpan

Dockerfile  view on Meta::CPAN

COPY vendor/ vendor/
RUN carton install --cached --deployment

COPY . .

RUN chmod +x bin/aep

ENV PERL5LIB="/opt/aep/lib:/opt/aep/local/lib/perl5"

ENTRYPOINT ["perl", "bin/aep"]

 view release on metacpan or  search on metacpan

t/multi_files.t  view on Meta::CPAN

is( $trap->die,     undef,    'no death output' );
is( $result,        1,        'got correct return value' );

my $file1_last_backup_file = App::bk::get_last_backup( $Bin, 'file1.txt' );
note( 'Amending file ', $file1_last_backup_file );
chmod 0644, $file1_last_backup_file || BAIL_OUT("Could not reset perms on $file1_last_backup_file:: ". $!);
open(my $fh, '>>', $file1_last_backup_file) || BAIL_OUT("Could not open $file1_last_backup_file: ". $!);
print $fh ' Amended test',$/ || BAIL_OUT("Could not write to $file1_last_backup_file: ", $!);
close($fh) || BAIL_OUT("Could not close $file1_last_backup_file: ". $!);

my $file2_last_backup_file = App::bk::get_last_backup( $Bin, 'file2.txt' );
note( 'Amending file ', $file2_last_backup_file );
chmod 0644, $file2_last_backup_file || BAIL_OUT("Could not reset perms on $file2_last_backup_file:: ". $!);
open($fh, '>>', $file2_last_backup_file) || BAIL_OUT("Could not open $file2_last_backup_file: ". $!);
print $fh ' Amended test',$/ || BAIL_OUT("Could not write to $file2_last_backup_file: ". $!);
close($fh) || BAIL_OUT("Could not close $file2_last_backup_file: ". $!);

$result = trap { App::bk::backup_files(); };

 view release on metacpan or  search on metacpan

bin/breakout  view on Meta::CPAN

}

my $jaildir = tempdir(DIR => "/");
(my $jaildir_rel_root = $jaildir) =~ s/.//;

chmod 0755, $jaildir or die "chmod failed: $!";
chdir "/" or die "chdir to / failed: $!";
chroot $jaildir or die "chroot to jail failed: $!";
rmdir $jaildir_rel_root or warn "failed to clean $jaildir: $!";

my $ino = 0;

 view release on metacpan or  search on metacpan

script/btcindo  view on Meta::CPAN

First, create an account at L<https://bitcoin.co.id>, create the trade API key
then insert the API key and secret key in F<~/.config/btcindo.conf>. Since the
configuration file contains the API secret key, please make sure that the
permission of the file is set so that unauthorized users cannot read it (e.g.
chmod it to 0600).

 # In ~/.config/btcindo.conf
 key = ...
 secret = ...

 view release on metacpan or  search on metacpan

lib/App/ccdiff.pm  view on Meta::CPAN

 $ git config --global difftool.ccdiff.cmd 'ccdiff --utf-8 -u -r $LOCAL $REMOTE'
 $ git difftool SHA~..SHA
 $ wget https://github.com/Tux/App-ccdiff/raw/master/Files/git-ccdiff \
    -O ~/bin/git-ccdiff
 $ perl -pi -e 's{/pro/bin/perl}{/usr/bin/env perl}' ~/bin/git-ccdiff
 $ chmod 755 ~/bin/git-ccdiff
 $ git ccdiff SHA

Of course you can use C<curl> instead of C<wget> and you can choose your own
(fixed) path to C<perl> instead of using C</usr/bin/env>.

 view release on metacpan or  search on metacpan

script/coinbasepro-lite  view on Meta::CPAN

=head1 SYNOPSIS

First, create an account at Coinbase Pro. Create an API then insert the API information
in F<~/.config/coinbasepro-lite.conf>. Since the configuration file contains sensitive
information, please make sure that the permission of the file is set so that
unauthorized users cannot read it (e.g. chmod it to 0600).

 # In ~/.config/coinbasepro-lite.conf
 key = ...
 secret = ...
 passphrase = ...

 view release on metacpan or  search on metacpan

lib/App/cpanel.pm  view on Meta::CPAN

  $ cpanel uapi Notifications get_notifications_count
  $ cpanel uapi ResourceUsage get_usages
  $ cpanel uapi Fileman list_files dir=public_html
  $ cpanel uapi Fileman get_file_content dir=public_html file=index.html
  $ cpanel download public_html/index.html
  $ cpanel api2 Fileman fileop op=chmod metadata=0755 sourcefiles=public_html/cgi-bin/hello-world
  $ cpanel api2 Fileman fileop op=unlink sourcefiles=public_html/cgi-bin/hello-world
  $ cpanel api2 Fileman mkdir path= name=new-dir-at-top

  # this one is one at a time but can overwrite files
  $ cpanel api2 Fileman savefile dir=public_html/cgi-bin filename=hello-world content="$(cat public_html/cgi-bin/hello-world)"

lib/App/cpanel.pm  view on Meta::CPAN

=head3 write

Takes C<$dir>, C<$file>. Returns a promise of having written the file
contents.

=head3 chmod

Takes C<$path>, C<$perms>. Returns a promise of having changed the
permissions.

=head1 SEE ALSO

lib/App/cpanel.pm  view on Meta::CPAN

my %localfs_map = (
  ls => \&localfs_ls,
  mkdir => \&localfs_mkdir,
  read => \&localfs_read,
  write => \&localfs_write,
  chmod => \&localfs_chmod,
);
my %cpanel_map = (
  ls => \&cpanel_ls,
  mkdir => \&cpanel_mkdir,
  read => \&cpanel_read,
  write => \&cpanel_write,
  chmod => \&cpanel_chmod,
);
our %MAP2HASH = (
  localfs => \%localfs_map,
  cpanel => \%cpanel_map,
);

lib/App/cpanel.pm  view on Meta::CPAN

    $from_map->{ls}->(path($from_dir)->dirname)
  })->then(sub {
    my ($dirs, $files) = @_;
    $from_dir_perms = $dirs->{path($from_dir)->basename}[0] || '0755';
  })->then(sub {
    $to_map->{chmod}->($to_dir, $from_dir_perms)
  })->then(sub {
    $from_map->{ls}->($from_dir)
  })->then(sub {
    my ($dirs, $files) = @_;
    my @dir_create_p = map

lib/App/cpanel.pm  view on Meta::CPAN

        sort keys %$dirs;
    my @file_create_p = map {
      my $this_file = $_;
      $from_map->{read}->($from_dir, $this_file)
        ->then(sub { $to_map->{write}->($to_dir, $this_file, $_[0]) })
        ->then(sub { $to_map->{chmod}->("$to_dir/$this_file", $files->{$this_file}[0]) })
    } sort keys %$files;
    return Mojo::Promise->resolve(1) unless @dir_create_p + @file_create_p;
    Mojo::Promise->all(@dir_create_p, @file_create_p);
  });
}

lib/App/cpanel.pm  view on Meta::CPAN

  my $path = path($dir)->child($file);
  $path->spurt($content);
  Mojo::Promise->resolve(1);
}

sub localfs_chmod {
  my ($path, $perms) = @_;
  $path = path($path);
  $path->chmod(oct $perms);
  Mojo::Promise->resolve(1);
}

sub cpanel_ls {
  my ($dir) = @_;

lib/App/cpanel.pm  view on Meta::CPAN

  api2_p qw(Fileman savefile), {
    dir => $dir, filename => $file, content => $content,
  };
}

sub cpanel_chmod {
  my ($path, $perms) = @_;
  api2_p qw(Fileman fileop), {
    op => 'chmod', metadata => $perms, sourcefiles => $path,
  };
}

1;

 view release on metacpan or  search on metacpan

t/data/build.cloudweights.log  view on Meta::CPAN

Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.88)
Checking if you have Test::More 0 ... Yes (1.001002)
Building and testing Sub-Identify-0.04
cp lib/Sub/Identify.pm blib/lib/Sub/Identify.pm
Running Mkbootstrap for Sub::Identify ()
chmod 644 Identify.bs
/Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 /Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/ExtUtils/xsubpp  -typemap /Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/ExtUtils/typemap  Identify.xs > Identify.xsc && mv I...
cc -c   -fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -O3   -DVERSION=\"0.04\" -DXS_VERSION=\"0.04\"  "-I/Users/garu/perl5/perlbrew/perls/perl-5.19.9/lib/5.19.9/darwin-2level/CORE"   Identify.c
rm -f blib/arch/auto/Sub/Identify/Identify.bundle
env MACOSX_DEPLOYMENT_TARGET=10.3 cc  -bundle -undefined dynamic_lookup -fstack-protector Identify.o  -o blib/arch/auto/Sub/Identify/Identify.bundle 	\
	     	\
	  
chmod 755 blib/arch/auto/Sub/Identify/Identify.bundle
/Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 -MExtUtils::Command::MM -e 'cp_nonempty' -- Identify.bs blib/arch/auto/Sub/Identify/Identify.bs 644
Manifying blib/man3/Sub::Identify.3
Running Mkbootstrap for Sub::Identify ()
chmod 644 Identify.bs
PERL_DL_NONLAZY=1 /Users/garu/perl5/perlbrew/perls/perl-5.19.9/bin/perl5.19.9 "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01basic.t ................ ok
t/02errors.t ............... ok
t/10pureperl-basic.t ....... ok
t/20attributes.t ........... ok

 view release on metacpan or  search on metacpan

lib/App/cpanminus.pm  view on Meta::CPAN

You can also copy the standalone executable to whatever location you'd like.

    cd ~/bin
    curl -L https://cpanmin.us/ -o cpanm
    chmod +x cpanm

This just works, but be sure to grab the new version manually when you
upgrade because C<--self-upgrade> might not work with this installation setup.

=head2 Troubleshoot: HTTPS warnings

 view release on metacpan or  search on metacpan

bin/cpant  view on Meta::CPAN

      my $self = shift;
  
      $self->{home} = $self->env('HOME') if $self->env('HOME');
  
      unless (_writable($self->{home})) {
          die "Can't write to cpanm home '$self->{home}': You should fix it with chown/chmod first.\n";
      }
  
      $self->{base} = "$self->{home}/work/" . time . ".$$";
      File::Path::mkpath([ $self->{base} ], 0, 0777);
  

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

  This module will be removed from CPAN on 2014/3/1

INSTALLATION

  curl -kL https://raw.github.com/yuki-kimoto/cpanurl/master/script/cpanurl > cpanurl
  chmod +x cpanurl

or
  cpan App-cpanurl
  
Examples:

 view release on metacpan or  search on metacpan

lib/App/cpm/Tutorial.pm  view on Meta::CPAN

  $ curl -fsSL https://raw.githubusercontent.com/skaji/cpm/main/cpm | perl - install -g App::cpm

Or, download a I<self-contained> cpm:

  $ curl -fsSL https://raw.githubusercontent.com/skaji/cpm/main/cpm > cpm
  $ chmod +x cpm
  $ ./cpm --version

=head2 First step

  $ cpm install Plack

 view release on metacpan or  search on metacpan

build-standalone  view on Meta::CPAN

    print {$standalone} $_;
}

finddepth( \&wanted, 'lib' );

chmod 0755, $target;

exit 0;

 view release on metacpan or  search on metacpan

lib/App/depak.pm  view on Meta::CPAN

        );
        return $res unless $res->[0] == 200;
    }

    write_binary($self->{abs_output_file}, $res->[2]);
    chmod 0755, $self->{abs_output_file};

    log_info("  Produced %s (%.1f KB)",
                $self->{abs_output_file}, (-s $self->{abs_output_file})/1024);
}

 view release on metacpan or  search on metacpan

Makefile  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

script/dropbox-api  view on Meta::CPAN

    print "> dropbox-api ls\n";
    print "> dropbox-api find /\n";

    $config_file->openw->print(encode_json($config));

    chmod 0600, $config_file;

    exit(0);
}

sub du {

 view release on metacpan or  search on metacpan

bin/elsquid  view on Meta::CPAN

      `-- urls


=item C<user>, C<group>

User and group of the Squid process. Used for chmod'ing the generated files.
Defaults to C<proxy>/C<proxy>.

=item C<executable>

Full path to the squidGuard executable. Defaults to C</usr/bin/squidGuard>.

 view release on metacpan or  search on metacpan

t/find2perl.t  view on Meta::CPAN

        my $target = catfile($tmpdir, split '/', $spec->{target});
        symlink $target, $file
            or die "Cannot create test symlink $file: $!";
    }
    if ($spec->{mode}) {
        chmod $spec->{mode}, $file
            or die "Cannot set mode of test file $file: $!";
    }
    if ($spec->{mtime} || $spec->{atime}) {
        # default the times to now, since we just created the files
        my $mtime = $spec->{mtime} || time();

 view release on metacpan or  search on metacpan

script/_finddo  view on Meta::CPAN

#    my $err = $@;
#    return [$type, $clsets] unless $err;
#    die "Can't check whether $type is a builtin Sah type: $err"
#        unless $err =~ /\ACan't locate/;
#
#    my $schmod = "Sah::Schema::$type";
#    (my $schmod_pm = "$schmod.pm") =~ s!::!/!g;
#    eval { require $schmod_pm; 1 };
#    die "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 "BUG: Schema module $schmod doesn't contain \$schema" unless $sch2;
#    unshift @$clsets, $sch2->[1];
#    _resolve($opts, $sch2->[0], $clsets, $seen);
#}
#
#sub resolve_schema {

 view release on metacpan or  search on metacpan

script/_genpw-base56  view on Meta::CPAN

#    my $err = $@;
#    return [$type, $clsets] unless $err;
#    die "Can't check whether $type is a builtin Sah type: $err"
#        unless $err =~ /\ACan't locate/;
#
#    my $schmod = "Sah::Schema::$type";
#    (my $schmod_pm = "$schmod.pm") =~ s!::!/!g;
#    eval { require $schmod_pm; 1 };
#    die "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 "BUG: Schema module $schmod doesn't contain \$schema" unless $sch2;
#    unshift @$clsets, $sch2->[1];
#    _resolve($opts, $sch2->[0], $clsets, $seen);
#}
#
#sub resolve_schema {