sql/Pg-upgrade2/filemanagement_filesystem.pl

   1 # @tag: filemanagement_filesystem
   2 # @description: add  directory for filemanagment
   3 # @depends: filemanagement_feature
   4 package SL::DBUpgrade2::filemanagement_filesystem;
   5
   6 use strict;
   7 use utf8;
   8 use File::Path qw(make_path);
   9
  10 use parent qw(SL::DBUpgrade2::Base);
  11
  12 sub run {
  13   my ($self) = @_;
  14
  15   my $directory = $::instance_conf->get_doc_files_rootpath;
  16
  17   if ( $directory && !-d $directory ) {
  18     mkdir $directory;
  19     if (! -d $directory) {
  20       return 0;
  21     }
  22   }
  23   return 1;
  24 }
  25
  26 1;