view release on metacpan or search on metacpan
lib/DBGp/Client/AnyEvent/Listener.pm view on Meta::CPAN
my $weak_self = $self;
weaken($weak_self);
my $cb = sub { $weak_self->_new_connection($_[0]) };
my $prepare = ($self->{path} && defined $self->{mode}) ? sub {
chmod $weak_self->{mode}, $weak_self->{path}
or die "Unable to change file mode for socket: $!";
} : undef;
if ($self->{port}) {
$self->{guard} = tcp_server('127.0.0.1', $self->{port}, $cb);
} elsif ($self->{path}) {
view release on metacpan or search on metacpan
dbilogstrip.PL view on Meta::CPAN
if (!(open(FILE, ">$file")) ||
!(print FILE $script) ||
!(close(FILE))) {
die "Error while writing $file: $!\n";
}
chmod 0755, $file;
print "Extracted $file from ",__FILE__," with variable substitutions.\n";
# syntax check resulting file, but only for developers
exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0;
view release on metacpan or search on metacpan
lib/DBIx/BulkUtil.pm view on Meta::CPAN
my $error_file = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".err",
@temp_dir, @unlink,
);
chmod(0664, $error_file->filename());
$error_file->close();
my @packet_size = $opts{PacketSize} ? ( -A => $opts{PacketSize} ) : ();
my @passthru = $opts{PassThru} ? @{$opts{PassThru}} : ();
lib/DBIx/BulkUtil.pm view on Meta::CPAN
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".fmt",
@temp_dir, @unlink,
);
$fmt_file = $tmp_fmt_file->filename();
chmod(0664, $tmp_fmt_file);
$tmp_fmt_file->close();
}
my $delim = $opts{Delimiter} || "|";
my $row_delim = $opts{RowDelimiter} || "\n";
lib/DBIx/BulkUtil.pm view on Meta::CPAN
my $ctl_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".ctl",
@temp_dir, @unlink,
);
chmod(0664, $ctl_fh->filename());
my $bad_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".bad",
@temp_dir, @unlink,
);
chmod(0664, $bad_fh->filename());
my $log_fh = File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".log",
@temp_dir, @unlink,
);
chmod(0664, $log_fh->filename());
my $prm_fh = $stdin ? File::Temp->new(
TEMPLATE => "${table}_XXXXX",
SUFFIX => ".prm",
@temp_dir,
) : undef;
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"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-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.08", "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.1", "0", "0"
"libfile-find-object-rule-perl", "File-Find-Object-Rule", "0.0300", "0", "0"
view release on metacpan or search on metacpan
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
$mysqld --defaults-file=$my_cnf &
START
close($fh);
chmod oct("0755"), catfile($bin, 'start');
}
sub _write_stop {
my $base_dir = (my $self = shift)->test_mysqld->base_dir;
mkpath(my $bin = catdir($base_dir, 'bin'));
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
kill \$(cat $PIDFILE)
STOP
close($fh);
chmod oct("0755"), catfile($bin, 'stop');
}
sub _write_use {
my $base_dir = (my $self = shift)->test_mysqld->base_dir;
mkpath(my $bin = catdir($base_dir, 'bin'));
lib/DBIx/Class/Migration/MySQLSandbox.pm view on Meta::CPAN
$mysqld --socket=$SOCKET -u root test
USE
close($fh);
chmod oct("0755"), catfile($bin, 'use');
}
sub make_sandbox {
my $self = shift;
my $base_dir = $self->_generate_sandbox_dir;
view release on metacpan or search on metacpan
BOOTSTRAP Makefile /^BOOTSTRAP =$/;" m
C inc/Module/Install/Win32.pm /^C:\\WINDOWS\\COMMAND\\), then launch the MS-DOS command line shell, "cd" to$/;" l
CC Makefile /^CC = cc$/;" m
CCCDLFLAGS Makefile /^CCCDLFLAGS = -fPIC$/;" m
CCDLFLAGS Makefile /^CCDLFLAGS = -Wl,-E$/;" m
CHMOD Makefile /^CHMOD = chmod$/;" m
CI Makefile /^CI = ci -u$/;" m
COMPRESS Makefile /^COMPRESS = gzip --best$/;" m
CONFIGDEP Makefile /^CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h$/;" m
CP Makefile /^CP = cp$/;" m
C_FILES Makefile /^C_FILES = $/;" m
view release on metacpan or search on metacpan
maint/travis-ci_scripts/10_before_install.bash view on Meta::CPAN
else
apt_install $common_packages unixodbc-dev expect
### config mysql
run_or_err "Installing minimizing MySQL config" "sudo cp maint/travis-ci_scripts/configs/minimal_mysql_travis.cnf /etc/mysql/conf.d/ && sudo chmod 644 /etc/mysql/conf.d/*.cnf"
run_or_err "Starting MySQL" "sudo /etc/init.d/mysql start"
run_or_err "Creating MySQL TestDB" "mysql -e 'create database dbic_test;'"
export DBICTEST_MYSQL_DSN='dbi:mysql:database=dbic_test;host=127.0.0.1'
export DBICTEST_MYSQL_USER=root
maint/travis-ci_scripts/10_before_install.bash view on Meta::CPAN
run_or_err "Updating apt sources" "sudo apt-get update"
apt_install db2exc
# WTF is this world-writable?
# Strip the write bit so it doesn't trip Ubuntu's symlink-in-/tmp attack mitigation
sudo chmod -R o-w ~dasusr1/das
run_or_err "Restarting DB2" "sudo /etc/init.d/db2exc restart"
export DB2_HOME=/opt/ibm/db2/V9.7
export DBICTEST_DB2_DSN=dbi:DB2:DATABASE=DBICTEST
view release on metacpan or search on metacpan
DBIx/DBStag/Cookbook.pm view on Meta::CPAN
We want to create the CGI, and give it access to our templates:
mkdir /usr/local/httpd/cgi-bin/cia
cp templates/*.stg /usr/local/httpd/cgi-bin/cia
cp `which ubiq.cgi` /usr/local/httpd/cgi-bin/cia
chmod +x /usr/local/httpd/cgi-bin/cia/ubiq.cgi
mkdir /usr/local/httpd/cgi-bin/cia/cache
chmod 777 /usr/local/httpd/cgi-bin/cia/cache
Set up the environment for the CGI script. It must be able to see the
templates and the necessary perl libraries (if not installed
system-wide)
view release on metacpan or search on metacpan
test_data/Makefile.file 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
test_data/Makefile.file view on Meta::CPAN
POD2MAN_EXE = /packages/run/perl-5.005_02/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 bin/dbfdump \
lib/XBase/Memo.pm \
lib/XBase/Index.pm \
lib/XBase.pm \
view release on metacpan or search on metacpan
lib/DBIx/HA.pm view on Meta::CPAN
$logdir = Apache::server_root_relative(undef,'logs');
open IN, ">/$logdir/DBIxHA_activedb_$dbname" || return 0;
print IN $DBIx::HA::activeserver{$dbname};
close IN;
if ($Apache::ServerStarting == 1) {
chmod 0666, "$logdir/DBIxHA_activedb_$dbname";
}
}
}
return 1;
}
view release on metacpan or search on metacpan
HTMLinterface.pm view on Meta::CPAN
Enables logging of SQL changes to the database automatically
without providing a callback. The script will open the file
specified, with no locking (Althoughthis might be added in
future). The file must be writeable to the CGI, on UNIX you
normally need to I<chmod 666 mydb-log>. However this may
differ depending on your system and what operating system
you have.
NOTE: check_params() MUST be called or HTMLinterface will not function correctly.
view release on metacpan or search on metacpan
lib/DBIx/JCL.pm view on Meta::CPAN
$next = "${currn}." . $nextgen;
copy($curr, $next);
## preserve permissions and status
my @stat = stat $curr;
chmod( $stat[2], $next ) or sys_warn( "log chmod failed: ($next)" );
utime( $stat[8], $stat[9], $next ) or sys_warn( "log utime failed: ($next)" );
chown( $stat[4], $stat[5], $next ) or sys_warn( "log chown failed: ($next)" );
## now truncate the file
truncate $curr, 0 or sys_die( "Could not truncate $curr" );
lib/DBIx/JCL.pm view on Meta::CPAN
All files owned by the account which processes batch jobs should be set to \
permission level 750, which will give owner rwx, group r-x, and all others no \
access.
% language=Ini_Files
% >chmod 750 filename
%
% 7 - owner permissions (rwx) i.e., read & write & execute
% 5 - group permissions (r-x) i.e., read & execute
% 0 - world permissions (---) i.e., none
%%
view release on metacpan or search on metacpan
##### open OUT, ">pipe.pl" or die "Failed to create pipe.pl - $!";
##### print OUT "#!$^X\n";
##### print OUT 'while (<STDIN>) {open OUT, ">>dbixl4p.log"; print OUT $_;close OUT;}';
##### close OUT;
##### chmod 0777, "pipe.pl";
$logtmp1 = File::Spec->catfile($td, 'dbixroot.log');
$logtmp2 = File::Spec->catfile($td, 'dbix.log');
my $cwd = getcwd();
my $pipe = File::Spec->catfile($cwd, "pipe.pl");
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
(ABSTRACT_FROM => 'lib/DBIx/LogProfile.pm', # retrieve abstract from module
AUTHOR => 'Bjoern Hoehrmann <bjoern@hoehrmann.de>') : ()),
LICENSE => 'perl',
'dist' => {
PREOP => 'chmod 600 Makefile.PL',
TARFLAGS => '--group=none --owner=bjoern --mode=a+rw -cvf',
},
META_MERGE => {
'meta-spec' => { version => 2 },
resources => {
view release on metacpan or search on metacpan
t/01_class.t view on Meta::CPAN
SKIP: {
mkdir('bogus-dir', 0000) or die $!;
if(opendir(my $dir, 'bogus-dir')) {
closedir $dir;
chmod(0700, 'bogus-dir');
rmdir('bogus-dir');
skip "root can write to everything", 1;
}
t/01_class.t view on Meta::CPAN
like($@,
qr/^opendir\("bogus-dir"\) failed:/,
'Initialize with directory we dont have access to'
);
chmod(0700, 'bogus-dir');
rmdir('bogus-dir');
}
view release on metacpan or search on metacpan
lib/DBIx/MoCo.pm view on Meta::CPAN
# unlink_on_exit => 1,
# expire_time => 600, # sec
# ) or die $!
# );
# chmod(0666, $file) or die $! if -e $file;
# } else {
# warn "Using DBIx::MoCo::Cache is now deprecated because of memory leak."
# . "Install Cache::FastMmap instead, or setup cache_object explicitly.";
# DBIx::MoCo::Cache->require or die $@;
view release on metacpan or search on metacpan
lib/DBIx/MyPassword.pm view on Meta::CPAN
include it here.
For *X, all that you have to do is change the permissions on your
password file so that you are the only person who can read it. A simple:
chmod 400 .mypassword
is all that it takes. Each user can have their own password file that
only they can read. The caveat of this is that only scripts executed
by you can read the file too... not sure how that fairs for web
development.
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
execute permission. So, must change PAR-0.976/lib/PAR.pm. After line
884 (which says "$par_temp = $1;"), add the following, then rebuild and
reinstall PAR:
foreach my $i (<$par_temp/lib*.sl>) {
chmod 0755, $i;
}
Then issue the following command to build the PAR standalone executable:
view release on metacpan or search on metacpan
Install.html view on Meta::CPAN
<dl>
<dt><strong><a name="item_read_permissions_for__2e_2fblib">read permissions for ./blib</a></strong>
<dd>
<pre>
chmod -R o=r,+X blib</pre>
</dd>
<dt><strong><a name="item_read_and_write_permissions_for__2e_2fexamples">read and write permissions for ./examples</a></strong>
<dd>
<pre>
chmod -R o=rw,+X examples</pre>
</dd>
<dd>
<p>Only if you plan testing of XBase or SQLite data sources</p>
</dd>
</dl>
view release on metacpan or search on metacpan
#########################################################################################
unlink "test.log" ;
unlink <test/seq.*> ;
chmod 0777, 'test' ;
open LOG, ">>test.log" or die "Cannot open test.log" ;
*DBIx::Recordset::LOG = \*LOG ;
$DBIx::Recordset::Debug = 5 ;
view release on metacpan or search on metacpan
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
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(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 Repgen.ru.pod \
Repgen.pm
@$(POD2MAN) \
Repgen.ru.pod \
view release on metacpan or search on metacpan
lib/DBIx/Romani/Connection/Base.pm view on Meta::CPAN
}
}
sub execute
{
my ($self, $query, $fetchmode) = @_;
my $sql = $self->generate_sql( $query );
if ( $query->isa( 'DBIx::Romani::Query::Select' ) )
{
return $self->execute_query( $sql, $fetchmode );
}
else
{
return $self->execute_update( $sql );
}
}
sub execute_query
{
my ($self, $sql, $fetchmode) = @_;
my $sth;
$sth= $self->get_dbh()->prepare( $sql );
$sth->execute();
return $self->get_driver()->create_result_set( $self, $sth, $fetchmode );
}
sub execute_update
{
my ($self, $sql) = @_;
view release on metacpan or search on metacpan
- Slight improvements in documentation
- Prefixed default namespace with 'DSCS::'
to reduce possible namespace collision.
0.991 2012-09-07 17:30:04 EEST
- Fixed failing tests on windows related to chmod.
Thanks to Peter du Marchie van Voorthuysen.
0.99 2012-09-07 15:38:49 EEST
- Added dbix method to the generated base/schema class
so generated classes can have their
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
'dist' => {
PREOP => 'pod2text SpatialKey.pm | tee README > $(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
'NAME' => 'DBIx::SpatialKey',
'VERSION_FROM' => 'SpatialKey.pm',
view release on metacpan or search on metacpan
- edit 'script.cgi' source, set appropriate '-path', '-url', '-urf',
another settings.
- create '-icons' by downloading Apache icons if Microsoft IIS
- start 'script.cgi -setup'. File store path and
sample web server configuration will be created.
- chmod o+rw,g+rw,a+rw '-path'
- configure web server according to '-path' files.
view release on metacpan or search on metacpan
glueHTML.pm view on Meta::CPAN
Enables logging of SQL changes to the database automatically
without providing a callback. The script will open the file
specified, with no locking (Althoughthis might be added in
future). The file must be writeable to the CGI, on UNIX you
normally need to I<chmod 666 mydb-log>. However this may
differ depending on your system and what operating system
you have.
NOTE: check_params() MUST be called or glueHTML will not function correctly.
view release on metacpan or search on metacpan
my $self = shift;
return 1 unless defined $self->{'_OBJ'};
undef $self->{'_OBJ'};
untie %$self->{'_HASHREF'};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0666, $self->{'_LOCK'};
} else {
flock $self->{'_FH'}, LOCK_UN;
CORE::close $self->{'_FH'};
}
}
($self->{'_FILE'} = $argv{'-file'}) =~ s/^([+<>]+)//;
$self->{'_MODE'} = $1 || '';
$self->{'_LOCK'} = $argv{'-lock'};
$self->{'_UNTAGGED'} = {};
if ($^O eq 'MacOS' || $^O eq 'MacPerl') {
chmod 0444, $self->{'_LOCK'};
} else {
if ($self->{'_MODE'} =~ /[+>]/) {
open FH, '>>' . $self->{'_LOCK'} or die $!;
unless (flock FH, LOCK_EX) {
CORE::close FH;
view release on metacpan or search on metacpan
lib/DBM/Deep/Storage/File.pm view on Meta::CPAN
my @stats = stat( $self->{fh} );
my $perms = $stats[2] & 07777;
my $uid = $stats[4];
my $gid = $stats[5];
chown( $uid, $gid, $temp_filename );
chmod( $perms, $temp_filename );
}
sub flush {
my $self = shift;
view release on metacpan or search on metacpan
if ($db_version > 1 and defined $arg[4] and $arg[4] =~ /RECNO/ and
$arg[1] and ! -e $arg[1]) {
open(FH, ">$arg[1]") or return undef ;
close FH ;
chmod $arg[3] ? $arg[3] : 0666 , $arg[1] ;
}
DoTie_($tieHASH, @arg) ;
}