view release on metacpan or search on metacpan
% cpanm App::LJ
or you can get single packed executable file.
% curl -L https://raw.githubusercontent.com/Songmu/App-LJ/master/lj > /usr/local/bin/lj; chmod +x /usr/local/bin/lj
# LICENSE
Copyright (C) Songmu.
view release on metacpan or search on metacpan
lib/App/LXC/Container/Run.pm view on Meta::CPAN
# finally write startup script:
open my $f, '>', $self->{init}
or fatal 'can_t_open__1__2', $self->{init}, $!;
say $f $_ foreach @todo;
close $f;
# A failing chmod can only happen in very unlikely race conditions:
# uncoverable branch true
unless (chmod(0755, $self->{init}) == 1)
{
# uncoverable statement
fatal 'call_failed__1__2', 'chmod', $self->{init};
}
# TODO: We could optimise everything if we only have /bin/sh as single
# command (no script needed)!
}
view release on metacpan or search on metacpan
lib/App/MBUtiny/Collector/DBI.pm view on Meta::CPAN
my $issqlite = 0;
if ($dbh && $dsn =~ /SQLite/i) {
$file = $dbh->sqlite_db_filename();
unless ($file && (-e $file) && !(-z $file)) {
touch($file);
chmod(0666, $file);
$fnew = 1;
}
$issqlite = 1;
}
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
STDERR->autoflush(1);
}
# make the temp dirs
make_path($settings->{'VIDEO_TMPDIR'}, $settings->{'MUSIC_TMPDIR'}, $settings->{'RUNTIME_DIR'}, $settings->{'GENERIC_TMPDIR'});
make_path($settings->{'SECRET_TMPDIR'}, {chmod => 0600});
make_path($settings->{'DATADIR'}, $settings->{'MHFS_TRACKER_TORRENT_DIR'});
my $sock = IO::Socket::INET->new(Listen => 10000, LocalAddr => $settings->{'HOST'}, LocalPort => $settings->{'PORT'}, Proto => 'tcp', Reuse => 1, Blocking => 0);
if(! $sock) {
say "server: Cannot create self socket";
lib/App/MHFS.pm view on Meta::CPAN
$request->Send503;
return;
}
}
else {
make_path($tmpfileloc, {chmod => 0755});
my @cmd = ('ffmpeg', '-i', $file, '-c:a', 'flac', '-sample_fmt', 's16', $tlossy);
my $buf;
if(LOCK_WRITE($tlossy)) {
$request->{'process'} = MHFS::Process->new(\@cmd, $evp, {
'SIGCHLD' => sub {
lib/App/MHFS.pm view on Meta::CPAN
say "No need to resample $tmpfile exists";
SendTrack($request, $tmpfile);
return;
}
}
make_path($tmpfileloc, {chmod => 0755});
# resampling
my $desiredrate;
RATE_FACTOR: foreach my $key (keys %rates) {
if(($samplerate % $key) == 0) {
lib/App/MHFS.pm view on Meta::CPAN
say $pstart."Attempting to download youtube-dl";
if(system('curl', '-L', 'https://yt-dl.org/downloads/latest/youtube-dl', '-o', $mhfsytdl) != 0) {
say $pstart . "Failed to download youtube-dl. plugin load failed";
return undef;
}
if(system('chmod', 'a+rx', $mhfsytdl) != 0) {
say $pstart . "Failed to set youtube-dl permissions. plugin load failed";
return undef;
}
$installed = 1;
say $pstart."youtube-dl successfully installed!";
view release on metacpan or search on metacpan
lib/App/Magpie/Action/Update.pm view on Meta::CPAN
svn ci -m "update to $newvers" && \\
mgarepo submit && \\
rm \$0
EOF
$fh->close;
chmod 0755, $script;
# try to install buildrequires
if ( ! $ENV{MAGPIE_NO_URPMI_BUILDREQUIRES} ) {
$self->log( "installing buildrequires" );
$self->run_command( "LC_ALL=C sudo urpmi --wait-lock --buildrequires $specfile" );
view release on metacpan or search on metacpan
lib/App/Maisha/Plugin/Identica.pm view on Meta::CPAN
mkpath( $config->{home} . '/.maisha' );
# save the access tokens
store $access_tokens, $datafile;
chmod 0640, $datafile; # make sure it has reasonable permissions
}
};
if($@) {
warn "Unable to login to Identica\n";
lib/App/Maisha/Plugin/Identica.pm view on Meta::CPAN
unlink $datafile;
mkpath( $config->{home} . '/.maisha' );
# save the access tokens
store $access_tokens, $datafile;
chmod 0640, $datafile; # make sure it has reasonable permissions
};
if($@) {
warn "Unable to login to Identica\n";
return 0;
view release on metacpan or search on metacpan
or die "Unable to recreate directory '$stat->{path}': $!\n";
} else {
die "FATAL: don't know how to check in $stat->{path}.\n";
}
unless (S_ISLNK $stat->{mode}) {
chmod $stat->{mode} & 07777,$stat->{path}
or die "Unable to change mode for '$stat->{path}': $!\n";
chown $stat->{uid},$stat->{gid},$stat->{path}
or warn "Unable to change user and group id for '$stat->{path}': $!\n";
utime $stat->{atime},$stat->{mtime},$stat->{path}
or warn "Unable to change atime and mtime for '$stat->{path}': $!\n";
view release on metacpan or search on metacpan
t/06_restart.t view on Meta::CPAN
make_path $lib_path;
open my $exe, '>', $exe_bin;
print $exe "#!/usr/bin/env perl\nexit 0\n";
close $exe;
chmod 0700, $exe_bin;
open my $fake0, '>', $fake0_bin;
print $fake0 "#!/usr/bin/env perl\nexit 0\n";
close $fake0;
}
view release on metacpan or search on metacpan
t/process_dirs_abs.t view on Meta::CPAN
ok( make_path($cant_read), 'create cant_read' );
SKIP: {
skip( 'Running under windows', 2 ) if $^O eq 'MSWin32';
ok( chmod(oct(0400), $cant_read), 'make cant_read unreadable' );
throws_ok{ _process_dirs($abs_tt2, $tmpl_vars, $abs_tmpl_path, $cant_read) } qr/\ACouldn't open directory/, '_process_dirs() fails on unreadable output path';
}
ok( remove_tree($cant_read), 'removing cant_read path' );
view release on metacpan or search on metacpan
lib/App/MonM/Notifier/Store.pm view on Meta::CPAN
my $issqlite = 0;
if ($dbh && $dsn =~ /SQLite/i) {
$file = $dbh->sqlite_db_filename();
unless ($file && (-e $file) && !(-z $file)) {
touch($file);
chmod(0666, $file);
$fnew = 1;
}
$issqlite = 1;
}
view release on metacpan or search on metacpan
lib/App/MonM/Store.pm view on Meta::CPAN
my $issqlite = 0;
if ($dbh && $dsn =~ /SQLite/i) {
$file = $dbh->sqlite_db_filename();
unless ($file && (-e $file) && !(-z $file)) {
touch($file);
chmod(0666, $file);
$fnew = 1;
}
$issqlite = 1;
}
view release on metacpan or search on metacpan
ssh -o 'BatchMode Yes' %h 'ls -ald /tmp/'
And let's say our hostname is C<corky!wisp>, then the command becomes:
ssh -o 'BatchMode Yes' corky ssh -o 'Batchmode\ Yes' wisp 'ls\\ -ald\\ /tmp'
=item B<%u>
Replaced with the username, if applicable. When hostname contains an C<@>
character, for example C<jettero@corky>, the portion before the C<@> is
view release on metacpan or search on metacpan
lib/App/MtAws/IntermediateFile.pm view on Meta::CPAN
my $character_tempfile = delete $self->{tempfile} or confess "file already permanent or not initialized";
$self->{tmp}->unlink_on_destroy(0);
undef $self->{tmp};
my $binary_tempfile = binaryfilename($character_tempfile);
chmod((0666 & ~umask), $binary_tempfile) or confess "cannot chmod file $character_tempfile";
utime $self->{mtime}, $self->{mtime}, $binary_tempfile or confess "cannot change mtime for $character_tempfile" if defined $self->{mtime};
rename $binary_tempfile, $binary_target_filename or
die exception "cannot_rename_file" => "Cannot rename file %string from% to %string to%",
from => $character_tempfile, to => $self->{target_file};
}
view release on metacpan or search on metacpan
lib/App/Munner/Runner.pm view on Meta::CPAN
my $info = $self->sys_user_info;
my $uid = $info->{uid};
my $gid = $info->{gid};
chown $uid, $gid, $file
or die "Unable to chown $file\n";
chmod 0700, $file
or die "Unable to chown $file to 0700\n";
}
sub _touch {
my $self = shift;
view release on metacpan or search on metacpan
lib/App/Music/PlayTab/Chord.pm view on Meta::CPAN
eval { $self->{key} = App::Music::PlayTab::Note->parse($key) };
croak("Unrecognized pitch in chord: ".$self->{_unparsed})
unless defined $self->{key};
# Encodings: a bit is set in $chflags for every note in the chord.
# The corresponding element of $chmods is 0 (natural), -1
# (lowered), 1 (raised) or undef (suppressed).
my $chflags = '';
my @chmods = (0) x 14;
# Assume major triad.
vec($chflags,3,1) = 1;
vec($chflags,5,1) = 1;
$chmods[3] = 0;
$chmods[5] = 0;
$mod =~ s/^-/min/; # Minor triad
$mod =~ s/^\+/aug/; # Augmented triad
$mod =~ s/^0/dim/; # Diminished
lib/App/Music/PlayTab/Chord.pm view on Meta::CPAN
next;
}
if ( $mod =~ /^maj7?(.*)/ ) { # Maj7
$mod = $+;
vec($chflags,7,1) = 1;
$chmods[7] = 1;
next;
}
if ( $mod =~ /^(min|m)7(.*)/ ) { # Minor triad + 7
$mod = $+;
vec($chflags,7,1) = 1;
$chmods[7] = 0;
vec($chflags,3,1) = 1;
$chmods[3] = -1;
next;
}
if ( $mod =~ /^(min|m)(.*)/ ) { # Minor triad
$mod = $+;
vec($chflags,3,1) = 1;
$chmods[3] = -1;
next;
}
if ( $mod =~ /^sus2(.*)/ ) { # Suspended second
$mod = $+;
vec($chflags,3,1) = 0;
undef $chmods[3];
next;
}
if ( $mod =~ /^sus4?(.*)/ ) { # Suspended fourth
$mod = $+;
vec($chflags,4,1) = 1; # does it?
undef $chmods[3];
$chmods[4] = 0;
next;
}
if ( $mod =~ /^aug(.*)/ ) { # Augmented
$mod = $+;
vec($chflags,5,1) = 1;
$chmods[5] = 1;
next;
}
if ( $mod =~ /^(o|dim)(.*)/ ) { # Diminished
$mod = $+;
vec($chflags,3,1) = 1;
vec($chflags,5,1) = 1;
vec($chflags,7,1) = 1;
$chmods[3] = -1;
$chmods[5] = -1;
$chmods[7] = -1;
next;
}
if ( $mod =~ /^%(.*)/ ) { # half-diminished 7
$mod = $+;
$chflags = '';
vec($chflags,3,1) = 1;
vec($chflags,5,1) = 1;
vec($chflags,7,1) = 1;
$chmods[3] = -1;
$chmods[5] = -1;
$chmods[7] = 0;
next;
}
if ( $mod =~ /^([\#b])?(2|5|6|7|9|10|11|13)(.*)/ ) { # addition
$mod = $+;
# 13th implies 11th implies 9th implies 7th...
if ( $2 > 7 && !(vec($chflags,7,1)) ) {
vec($chflags,7,1) = 1;
$chmods[7] = 0;
}
if ( $2 > 10 && !(vec($chflags,9,1)) ) {
vec($chflags,9,1) = 1;
$chmods[9] = 0;
}
if ( $2 > 11 && !(vec($chflags,11,1)) ) {
vec($chflags,11,1) = 1;
$chmods[11] = 1;
}
vec($chflags,$2,1) = 1;
$chmods[$2] = 0;
if ( defined $1 ) {
$chmods[$2] = ($1 eq '#') ? 1 : -1;
}
next;
}
if ( $mod =~ /^no\s*(\d+)(st|nd|rd|th)?(.*)/ ) {
$mod = $+;
vec($chflags,$1,1) = 1;
undef $chmods[$1];
next;
}
# High add-ons.
if ( $mod =~ /^\\([^\/]+)(.*)/ ) {
lib/App/Music/PlayTab/Chord.pm view on Meta::CPAN
}
my @vec = (0);
for ( 1..13 ) {
next unless vec($chflags,$_,1);
next unless defined $chmods[$_];
push (@vec, (0,0,2,4,5,7,9,10,12,14,16,17,19,21)[$_]+$chmods[$_]);
}
$self->{vec} = [@vec];
warn("=> Chord ", $self->{_unparsed}, ": ", $self->{key}->key,
view release on metacpan or search on metacpan
}
}
if ($Flag_Generate_Score) {
# the files might be shared, so open up the permissions
chmod 0644, $ly_filename, $midi_filename, $score_filename;
} else {
# Preview.app got increasingly slower to actually start over time,
# hence this kluge. Eventually I switched to mupdf, and eventually
# the 2009 macbook died in late 2022.
sleep $Flag_Sleep_Kluge if $Flag_Sleep_Kluge > 0;
view release on metacpan or search on metacpan
public/javascripts/ace/mode-autohotkey.js view on Meta::CPAN
{ token: 'doc.comment.ahk',
regex: '#cs', push:
[ { token: 'doc.comment.ahk', regex: '#ce', next: 'pop' },
{ defaultToken: 'doc.comment.ahk' } ] },
{ token: 'keyword.command.ahk',
regex: '(?:\\b|^)(?:allowsamelinecomments|clipboardtimeout|commentflag|errorstdout|escapechar|hotkeyinterval|hotkeymodifiertimeout|hotstring|include|includeagain|installkeybdhook|installmousehook|keyhistory|ltrim|maxhotkeysperinterval|maxm...
caseInsensitive: true },
{ token: 'keyword.control.ahk',
regex: '(?:\\b|^)(?:if|else|return|loop|break|for|while|global|local|byref)\\b',
caseInsensitive: true },
{ token: 'support.function.ahk',
regex: '(?:\\b|^)(?:abs|acos|asc|asin|atan|ceil|chr|cos|dllcall|exp|fileexist|floor|getkeystate|il_add|il_create|il_destroy|instr|substr|isfunc|islabel|ln|log|lv_add|lv_delete|lv_deletecol|lv_getcount|lv_getnext|lv_gettext|lv_insert|lv_ins...
caseInsensitive: true },
{ token: 'variable.predefined.ahk',
regex: '(?:\\b|^)(?:a_ahkpath|a_ahkversion|a_appdata|a_appdatacommon|a_autotrim|a_batchlines|a_caretx|a_carety|a_computername|a_controldelay|a_cursor|a_dd|a_ddd|a_dddd|a_defaultmousespeed|a_desktop|a_desktopcommon|a_detecthiddentext|a_dete...
caseInsensitive: true },
{ token: 'support.constant.ahk',
regex: '(?:\\b|^)(?:shift|lshift|rshift|alt|lalt|ralt|control|lcontrol|rcontrol|ctrl|lctrl|rctrl|lwin|rwin|appskey|altdown|altup|shiftdown|shiftup|ctrldown|ctrlup|lwindown|lwinup|rwindown|rwinup|lbutton|rbutton|mbutton|wheelup|wheelleft|wh...
caseInsensitive: true },
{ token: 'variable.parameter',
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $MY_PERL = `which perl`;
chomp $MY_PERL;
my $bin = 'bin/navegante';
`$MY_YAPP -b $MY_PERL -o $bin lib/App/Navegante.yp`;
`chmod 755 $bin`;
WriteMakefile(
NAME => 'App::Navegante',
AUTHOR => 'Nuno Carvalho <smash@cpan.org>',
VERSION_FROM => 'lib/App/Navegante.pm',
view release on metacpan or search on metacpan
lib/App/Netdisco.pm view on Meta::CPAN
Make a directory for your local configuration and copy the configuration
template from this distribution:
mkdir ~/environments
cp ~/perl5/lib/perl5/auto/share/dist/App-Netdisco/environments/deployment.yml ~/environments
chmod 600 ~/environments/deployment.yml
Edit the file ("C<~/environments/deployment.yml>") and change the database
connection parameters to match those for your local system (that is, the
C<name>, C<user> and C<pass>).
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/App/NoPAN.pm view on Meta::CPAN
} elsif (! $fetched->{"$subdir$f"}) {
print "$subdir$f\n";
my $r = LWP::Simple::mirror("$base_url$subdir$f", "$dir/$subdir$f");
die "failed to fetch URL:$base_url$subdir$f, got $r"
unless $r == 200;
chmod 0755, "$dir/$subdir$f"
or die "failed to set chmod +x on file:$dir/$subdir/$f:$!";
$fetched->{"$subdir$f"} = 1;
}
}
}
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/ssh.pm view on Meta::CPAN
print $tmp $args{text}
or return (0, "Can't write to tempfile $filename");
close $tmp
or return (0, "Can't write to tempfile $filename");
chmod oct($mode), $filename
if defined $mode;
system('scp', '-pq', $filename, "$server:$docroot");
my $file = ( File::Spec->splitpath($filename) )[2];
view release on metacpan or search on metacpan
lib/App/OATH.pm view on Meta::CPAN
my $lockh;
my $lockfilename = $self->get_lockfilename();
if ( ! -e $lockfilename ) {
open $lockh, '>', $lockfilename;
close $lockh;
chmod( 0600, $lockfilename );
}
open $lockh, '<', $lockfilename;
if ( !flock( $lockh, LOCK_EX | LOCK_NB ) ) {
return 0;
}
lib/App/OATH.pm view on Meta::CPAN
my $content = $json->encode( $data );
my $filename = $self->get_filename();
open( my $file, '>', $filename ) || die "cannot open file $!";
print $file $content;
close $file;
chmod( 0600, $filename );
return;
}
sub encrypt_data {
my ( $self ) = @_;
view release on metacpan or search on metacpan
docs/index.md view on Meta::CPAN
## Quick Start
1. download the bundle and make it executable:
curl -LO https://github.com/polettix/App-OnePif/raw/master/bundle/1pif
chmod +x 1pif
2. export all or part of 1Password database in the 1Password Interchange
Format (**beware that this is unencrypted**)
3. go in the export's main directory and run `1pif` downloaded above:
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy.pm view on Meta::CPAN
# Left in place for historial reasons.
# All clusters should be under Kerberos.
# Possible removal in a future version.
#
# unsafe, but needed when uploading with mapred's uid or hdfs dfs cannot see the files
chmod oct( DEFAULT_FILE_MODE ), $config->{base_dest};
}
my $success = $self->upload_to_hdfs;
$self->maybe_update_coordinators( $update_coord ) if @{ $update_coord };
lib/App/Oozie/Deploy.pm view on Meta::CPAN
sprintf 'Attempting to mkdir HDFS destination %s',
$remote_base,
);
}
$hdfs->mkdir( $remote_base );
$hdfs->chmod( $remote_base, DEFAULT_DIR_MODE );
}
# since the above calls were silent, see if this throws anything
if ( $hdfs->exists($destFolder) ) {
if ( $verbose ) {
$logger->debug(
lib/App/Oozie/Deploy.pm view on Meta::CPAN
$logger->logdie(
sprintf 'Failed to create %s through WebHDFS',
$dest
);
}
$hdfs->chmod( $dest, DEFAULT_DIR_MODE );
}
my $d_rule = File::Find::Rule->new->directory->maxdepth(1)->mindepth(1);
my @folders = $d_rule->in($sourceFolder);
view release on metacpan or search on metacpan
t/50-openbin.t view on Meta::CPAN
local $/ = undef;
my $contents = <$in>;
$contents =~ s/^\@PERL\@/#!$^X/sg;
print { $out } $contents;
close($out);
chmod(0700, 't/resource/helpers/exit_1');
};
close($in);
};
} else {
Test::More->import('skip_all' => "Couldn't execute this perl!");
view release on metacpan or search on metacpan
bin/prefixadmin view on Meta::CPAN
$fmt_mode .= ($mode & S_IWOTH) ? "w" : "-";
$fmt_mode .= ($mode & S_IXOTH) ? (($mode & S_ISVTX) ? "t" : "x") : (($mode & S_ISVTX) ? "T" : "-");
return($fmt_mode);
}
# 1. $cnt = chmod 0755, 'foo', 'bar';
# 2. chmod 0755, @executables;
# 3. $mode = '0644'; chmod $mode, 'foo'; # !!! sets mode to
# 4. # --w----r-T
# 5. $mode = '0644'; chmod oct($mode), 'foo'; # this is better
# 6. $mode = 0644; chmod $mode, 'foo'; # this is best
# 1. $cnt = chown $uid, $gid, 'foo', 'bar';
# 2. chown $uid, $gid, @filenames;
sub _share_file {
bin/prefixadmin view on Meta::CPAN
$mode_needs_fix = 1;
}
}
if ($mode_needs_fix) {
$retval = chmod($share_mode, $file);
if ($verbose) {
printf(">>> chmod(%06o, $file) = [$retval]\n", $share_mode);
}
}
}
return($err_msg);
}
view release on metacpan or search on metacpan
lib/App/Padadoy.pm view on Meta::CPAN
};
my $file = $self->{repository}.'/hooks/update';
$self->msg("$file as executable");
write_file($file, read_file(dist_file('App-Padadoy','update')));
chmod 0755,$file;
$file = $self->{repository}.'/hooks/post-receive';
$self->msg("$file as executable");
write_file($file, read_file(dist_file('App-Padadoy','post-receive')));
chmod 0755,$file;
$self->msg("logs/");
mkdir 'logs';
$self->msg("app -> current/app");
view release on metacpan or search on metacpan
Examples.pm view on Meta::CPAN
mkdir 'examples';
}
# Save example.
barf($example_path, $example_data);
chmod 0755, $example_path;
$num++;
}
}
view release on metacpan or search on metacpan
script/perl-gzip-script view on Meta::CPAN
exit if !$in_place;
$out->close;
my $mode = (stat $script)[2];
chmod $mode, $out->filename;
rename $out->filename, $script or die $!;
$out->unlink_on_destroy(0);