Add a script to create and delete php pool dirs
This commit is contained in:
parent
c793cdef93
commit
9649dd4222
|
@ -23,3 +23,8 @@ foreach my $file qw( /etc/php-fpm.conf
|
|||
/etc/opt/remi/php71/php-fpm.d/shares.conf ){
|
||||
templates2events($file, qw(webapps-update bootstrap-console-save));
|
||||
}
|
||||
|
||||
event_link("php-pool-dirs", "share-create", "90");
|
||||
event_link("php-pool-dirs", "share-modify", "90");
|
||||
event_link("php-pool-dirs", "share-modify-server", "90");
|
||||
event_link("php-pool-dirs", "share-delete", "90");
|
||||
|
|
|
@ -0,0 +1,34 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use esmith::AccountsDB;
|
||||
use File::Path qw(make_path remove_tree);
|
||||
|
||||
my $a = esmith::AccountsDB->open_ro || die "Couldn't open the accounts database\n";
|
||||
|
||||
my $event = shift;
|
||||
my $pool = shift;
|
||||
|
||||
die "Misssing pool name argument" unless $pool;
|
||||
|
||||
my $acc = $a->get($pool);
|
||||
|
||||
die "$pool not found in the account database\n" unless $acc;
|
||||
|
||||
my $dyn = $acc->prop('DynamicContent') || 'disabled';
|
||||
|
||||
if ($acc =~ m/^enabled|on|1|yes$/){
|
||||
make_path( qw( /var/log/php/$pool
|
||||
/var/lib/php/$pool/session
|
||||
/var/lib/php/$pool/wsdlcache
|
||||
/var/lib/php/$pool/opcache
|
||||
/var/lib/php/$pool/tmp ), {
|
||||
chmode => 0770,
|
||||
owner => 'root',
|
||||
group => 'www'
|
||||
});
|
||||
}
|
||||
else{
|
||||
remote_tree( qw(/var/log/php/$pool /var/lib/php/$pool/) );
|
||||
}
|
Loading…
Reference in New Issue