#!/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 ($dyn =~ m/^enabled|on|1|yes$/ && $event ne 'share-delete'){
  my @dirs = ( "/var/log/php/$pool",
               "/var/lib/php/$pool/session",
               "/var/lib/php/$pool/wsdlcache",
               "/var/lib/php/$pool/opcache",
               "/var/lib/php/$pool/tmp" );
  make_path( @dirs, {
    owner => 'root',
    group => 'www'
  });
  chmod 0770, @dirs;
}
else{
  remove_tree( ( "/var/log/php/$pool",
                 " /var/lib/php/$pool/" ) );
}
