29 lines
825 B
Perl
29 lines
825 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Path qw(make_path remove_tree);
|
|
use esmith::ConfigDB;
|
|
use esmith::util;
|
|
|
|
my $pool_db = esmith::ConfigDB->open_ro('php') || esmith::ConfigDB->create('php');
|
|
|
|
foreach my $pool ($pool_db->get_all_by_prop(type => 'pool')){
|
|
my $status = $pool->prop('status') || 'enabled';
|
|
next unless ($status eq 'enabled');
|
|
my $key = $pool->key;
|
|
my @dirs = ( "/var/log/php/$key",
|
|
"/var/lib/php/$key/session",
|
|
"/var/lib/php/$key/wsdlcache",
|
|
"/var/lib/php/$key/opcache",
|
|
"/var/lib/php/$key/tmp" );
|
|
for (@dirs){
|
|
esmith::util::chownFile("root", "www", $_) if -e $_;
|
|
make_path( $_, {
|
|
owner => 'root',
|
|
group => 'www'
|
|
}) unless -e $_;
|
|
}
|
|
chmod 0770, @dirs;
|
|
}
|