view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text Watchdog.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Watchdog",
VERSION_FROM => "Watchdog.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Canary::Stability AnyEvent::WebDriver => 1, 5.010;
my $mm = MM->new({
dist => {
PREOP => 'pod2text WebDriver.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::WebDriver",
VERSION_FROM => "WebDriver.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'Net::SSLeay' => 1.33,
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/XMPP.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-XMPP-*' },
META_MERGE => {
'meta-spec' => { version => 2 },
resources => {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text ZabbixSender.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::ZabbixSender",
VERSION_FROM => "ZabbixSender.pm",
view release on metacpan or search on metacpan
.htaccess file in the ./site/eg installation directory do its work.
IMPORTANT (FAQ): Make sure that the web server has write access to
that directory. Usually a
chmod -R 0777 eg
will do the trick :)
=head1 SESSIONS
be set to some directory not under the www server document root,
for security reasons, on a production site.
Usually a
chmod -R -0777 eg
will take care of the write access issue for initial testing purposes.
Failing write access being the problem, try upgrading your version
of Data::Dumper and MLDBM, which are the modules used to write the
view release on metacpan or search on metacpan
Apache-AuthCAS.spec view on Meta::CPAN
%description
C<perl -MCPAN -e 'install %{pkgname}'>
%prep
%setup -q -n %{pkgname}-%{version}
chmod -R u+w %{_builddir}/%{pkgname}-%{version}
%build
grep -rsl '^#!.*perl' . |
grep -v '.bak$' |xargs --no-run-if-empty \
%__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
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
if (!defined($ofh) || $ofh eq "") {
$request->log_reason("Apache::Authen::Program can't create password file",
$request->uri);
return SERVER_ERROR;
}
chmod(0600, $passfile)
|| $request->log_reason(
"Apache::Authen::Program can't chmod 0600 password file '$passfile' because: $!",
$request->uri);
if (!print $ofh $password,"\n") {
$request->log_reason("Apache::Authen::Program can't write password file '$ofh'",
$request->uri);
return SERVER_ERROR;
view release on metacpan or search on metacpan
AuthenProgram.pm view on Meta::CPAN
if (!defined($ofh) || $ofh eq "") {
$request->log_reason("Apache::AuthenProgram can't create password file",
$request->uri);
return SERVER_ERROR;
}
chmod(0600, $passfile)
|| $request->log_reason(
"Apache::AuthenProgram can't chmod 0600 password file '$passfile' because: $!",
$request->uri);
if (!print $ofh $password,"\n") {
$request->log_reason("Apache::AuthenProgram can't write password file '$ofh'",
$request->uri);
return SERVER_ERROR;
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
sample scripts delivered with the distribution use all database
descriptors that point to the same data source.
4- Make sure that you have copied the test scripts from
/opt/Apache-BabyConnect-0.93/eg/perl/ to /var/www/perl
and you have set their permission to executable (chmod 755 /var/www/perl/*.pl)
Test your connection from a browser:
http://yourserver.com/perl/testbaby.pl
5- Test the caching:
view release on metacpan or search on metacpan
$ make language
create a directory called dnszone under your apache installation
$ cp lang/DnsZoneLang /path/to/your/apache/dnszone
If you experience problems with the dbm file it could be a permission
issue, so a chmod 666 DnsZoneLang might come handy.
To install the templates:
create a directory under the dnszone directory in your apache
installation called 'template'.
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
Makefile.PL view on Meta::CPAN
);
sub MY::postamble {
q{
README: lib/Apache/GzipChain.pm Makefile
chmod +w $@
pod2text lib/Apache/GzipChain.pm > $@
}
}
view release on metacpan or search on metacpan
lib/Apache/HTTunnel/Keeper.pm view on Meta::CPAN
}
$slog->debug("HTTunnel Keeper: Apache User is '$apache_user' ($apache_uid)") ;
$slog->debug("HTTunnel Keeper: Apache Group is '$apache_group' ($apache_gid)") ;
chown($apache_uid, $apache_gid, $fifo) or die("Can't chown '$fifo': $!") ;
chmod(0600, $fifo) or die("Can't chmod '$fifo': $!") ;
}
# Now that everything is all set, we can fork and let the child do the work.
my $lifeline = new IO::Pipe() ;
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/Apache/Logmonster/Utility.pm view on Meta::CPAN
# we have permission, use perl's native copy
copy( $file, $archive );
if ( -e $archive ) {
$log->audit("archive_file: $file backed up to $archive");
$self->chmod( file => $file, mode => $p{mode}, %args ) if $p{mode};
return $archive;
};
}
# we failed with existing permissions, try to escalate
$self->archive_file_sudo( $file ) if ( $p{sudo} && $< != 0 );
return $log->error( "backup of $file to $archive failed: $!", %args)
if ! -e $archive;
$self->chmod( file => $file, mode => $p{mode}, %args ) if $p{mode};
$log->audit("$file backed up to $archive");
return $archive;
}
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
}
$log->error( "archive_file: sudo or cp was missing, could not escalate.",fatal=>0);
return;
};
sub chmod {
my $self = shift;
my %p = validate(
@_,
{ 'file' => { type => SCALAR, optional => 1, },
'file_or_dir' => { type => SCALAR, optional => 1, },
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
my $mode = $p{mode};
my %args = $self->get_std_args( %p );
my $file = $p{file} || $p{file_or_dir} || $p{dir}
or return $log->error( "invalid params to chmod in ". ref $self );
if ( $p{sudo} ) {
my $chmod = $self->find_bin( 'chmod', debug => 0 );
my $sudo = $self->sudo();
$self->syscmd( "$sudo $chmod $mode $file", debug => 0 )
or return $log->error( "couldn't chmod $file: $!", %args );
}
# note the conversion of ($mode) to an octal value. Very important!
CORE::chmod( oct($mode), $file ) or
return $log->error( "couldn't chmod $file: $!", %args);
$log->audit("chmod $mode $file");
}
sub chown {
my $self = shift;
my $file = shift;
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
move( "$file.tmp", $file )
or return $log->error(" unable to update $file", %args);
# set file permissions mode if requested
$self->chmod( file => $file, mode => $p{mode}, %args )
or return if $p{mode};
return 1;
}
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
%args
)
if ( $uid && $gid ); # set file ownership on the new file
# set file permissions on the new file
$self->chmod(
file_or_dir => $existing,
mode => $mode,
sudo => $sudo,
%args
)
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
gid => $gid,
sudo => $sudo,
%args
) if ( $uid && $gid ); # set ownership on new existing file
$self->chmod(
file_or_dir => $existing,
mode => $mode,
sudo => $sudo,
%args
)
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
my %args = ( debug => $p{debug}, fatal => $p{fatal} );
-e $file or return $log->error( "$file does not exist.", %args);
-r $file or return $log->error( "$file is not readable by you ("
. getpwuid($>)
. "). You need to fix this, using chown or chmod.", %args);
return 1;
}
sub is_writable {
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
my $mkdir = $self->find_bin( 'mkdir', %args) or return;
# if we are root, just do it (no sudo nonsense)
if ( $< == 0 ) {
$self->syscmd( "$mkdir -p $dir", %args) or return;
$self->chmod( dir => $dir, mode => $mode, %args ) if $mode;
return 1 if -d $dir;
return $log->error( "failed to create $dir", %args);
}
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
$log->audit( "setting ownership to $<.");
my $chown = $self->find_bin( 'chown', %args);
$self->syscmd( "$sudo $chown $< $dir", %args);
$self->chmod( dir => $dir, mode => $mode, sudo => $sudo, %args)
if $mode;
return -d $dir ? 1 : 0;
}
$log->audit( "trying mkdir -p $dir" );
# no root and no sudo, just try and see what happens
$self->syscmd( "$mkdir -p $dir", %args ) or return;
$self->chmod( dir => $dir, mode => $mode, %args) if $mode;
return $log->audit( "mkdir_system created $dir" ) if -d $dir;
return $log->error( '', %args );
}
lib/Apache/Logmonster/Utility.pm view on Meta::CPAN
# Returns : the filename of the backup file, or 0 on failure.
# Parameters : S - file - the filname to be backed up
# Comments : none
=item chmod
Set the permissions (ugo-rwx) of a file. Will use the native perl methods (by default) but can also use system calls and prepend sudo if additional permissions are needed.
$util->chmod(
file_or_dir => '/etc/resolv.conf',
mode => '0755',
sudo => $sudo
)
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/MONITOR.pm
@$(POD2MAN) \
lib/Apache/MONITOR.pm \
$(INST_MAN3DIR)/Apache::MONITOR.$(MAN3EXT)
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 = gcc -B/usr/ccs/bin/
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
Makefile.old 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 OWA.pm
@$(POD2MAN) \
OWA.pm \
$(INST_MAN3DIR)/Apache::OWA.$(MAN3EXT)
view release on metacpan or search on metacpan
print STDERR "Error extracting '$file' from '$par': error code: $rv";
return undef;
}
if ($member->fileAttributeFormat == 3) { # unix permissions
my $perms = $member->unixFileAttributes & 0xFFF;
unless(chmod $perms, $file) {
print STDERR "chmod $perms, $file failed: $!";
return undef;
}
}
}
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
PrettyPerl.pm view on Meta::CPAN
our @KeyWords =
qw(
while until for foreach unless if elsif else do
package use no require import and or eq ne cmp
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
dump each endgrent endhostent endnetent
endprotoent endpwent endservent eof eval
exec exists exit exp fcntl fileno flock
view release on metacpan or search on metacpan
3. Install Apache/Recorder/recorder.pl in your cgi-bin
copy Apache/Recorder/recorder.pl to your cgi-bin, and make sure that it has executable rights:
cp recorder.pl /home/httpd/cgi-bin/
chmod +x /home/httpd/cgi-bin/recorder.pl
4. Record a session
Point your browser to http://www.your-domain.com/cgi-bin/recorder.pl.
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
lib/Apache/Roaming.pm view on Meta::CPAN
server only. For example I do
mkdir /home/httpd/html/roaming
chown nobody /home/httpd/html/roaming
chgrp nobody /home/httpd/html/roaming
chmod 700 /home/httpd/html/roaming
with I<nobody> being the web server user.
Access to the roaming directory must be restricted and enabled via
password only. Finally tell the web server, that Apache::Roaming is
lib/Apache/Roaming.pm view on Meta::CPAN
web server and noone else, for example by doing a
mkdir /home/httpd/html/roaming
chown nobody /home/httpd/html/roaming
# Insert your web servers UID here
chmod 700 /home/httpd/html/roaming
=item 2.)
Start your communicator and open Preferences/Roaming User. Click the
"Enable Roaming Access for this profile" checkbox.
view release on metacpan or search on metacpan
lib/Apache/SWIT/Maker.pm view on Meta::CPAN
sub write_swit_app_pl {
my $self = shift;
$self->file_writer->write_scripts_swit_app_pl({
class => ref($self) });
chmod 0755, 'scripts/swit_app.pl';
}
sub install {
my ($self, $inst_dir) = @_;
my $si = Apache::SWIT::Maker::Config->instance->{skip_install} || [];
lib/Apache/SWIT/Maker.pm view on Meta::CPAN
}
sub dump_db {
push @INC, "t", "lib";
unlink("t/conf/schema.sql");
system("touch t/conf/schema.sql && chmod a+rw t/conf/schema.sql")
unless ($<);
conv_eval_use('T::TempDB');
system("pg_dump -c $ENV{APACHE_SWIT_DB_NAME} > t/conf/schema.sql");
}
lib/Apache/SWIT/Maker.pm view on Meta::CPAN
my $td = tempdir("/tmp/swit_test_root_XXXXXX");
my $cwd = abs_path(getcwd());
my $mfiles = maniread();
manicopy($mfiles, $td);
chdir $td;
system("chmod a+rwx `find . -type d`") and die;
system("chmod a+rw `find . -type f`") and die;
eval "use Test::TempDatabase";
my $dn = __FILE__;
for (; basename($dn) ne 'Apache'; $dn = dirname($dn))
{} # nothing
view release on metacpan or search on metacpan
lib/Apache/SdnFw.pm view on Meta::CPAN
cd /root/src/postgresql-8.2.20/contrib/start-scripts/
cp linux /etc/rc.d/init.d/postgresql
# EDIT /etc/rc.d/init.d/postgresql and make it start at 80 instead of 98
# because it needs to start before apache
chkconfig --add postgresql
chmod +x /etc/rc.d/init.d/postgresql
su - postgres
cd /usr/local/pgsql/bin/
./initdb /usr/local/pgsql/data
exit
service postgresql start
view release on metacpan or search on metacpan
demo/Makefile view on Meta::CPAN
for c in $(SHORT); \
do install -m 0644 httpdconf/httpd.$$c.conf $(APACHECONF); \
done
mkdir -p $(PRIVATE)
echo $(SECRET) > $(SECFILE)
chmod -R go-rwX $(PRIVATE)
view release on metacpan or search on metacpan
rpm/Apache-Session-Browseable.spec view on Meta::CPAN
%{__perl_requires} $* |\
sed -e '/perl(Redis)/d'
EOF
%define __perl_requires %{_builddir}/%{real_name}-%{real_version}/%{name}-req
chmod +x %{__perl_requires}
%if 0%{?rhel} >= 7
%{?perl_default_filter}
%global __requires_exclude perl\\(Redis
%endif
view release on metacpan or search on metacpan
lib/Apache/SharedMem.pm view on Meta::CPAN
=item *
C<ipc_mode> optional, octal
Setup manually the segment mode (see L<IPC::ShareLite>) for more details (default: 0600).
Warning: this value _must_ be octal, see chmod documentation in perlfunc manpage for more details.
=item *
C<ipc_segment_size> optional, integer