Add a script to create and delete php pool dirs

createlinks

@@ -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");

root/etc/e-smith/events/actions/php-pool-dirs

@@ -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/) );
+}