solenv/bin/modules/pre2par/systemactions.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19
  20 package pre2par::systemactions;
  21
  22 use File::Copy;
  23 use pre2par::exiter;
  24 use pre2par::globals;
  25
  26 ######################################################
  27 # Creating a new directory
  28 ######################################################
  29
  30 sub create_directory
  31 {
  32     my ($directory) = @_;
  33
  34     my $returnvalue = 1;
  35     my $infoline = "";
  36
  37     if ($directory eq "" )
  38     {
  39         return 0;
  40     }
  41
  42     if (!(-d $directory))
  43     {
  44         $returnvalue = mkdir($directory, 0775);
  45
  46         if ($returnvalue)
  47         {
  48             $infoline = "Created directory: $directory\n";
  49             push(@pre2par::globals::logfileinfo, $infoline);
  50
  51             if ($pre2par::globals::isunix)
  52             {
  53                 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
  54                 system($localcall);
  55             }
  56         }
  57         else
  58         {
  59             # New solution in parallel packing: It is possible, that the directory now exists, although it
  60             # was not created in this process. There is only an important error, if the directory does not
  61             # exist now.
  62
  63             if (!(-d $directory))
  64             {
  65                 pre2par::exiter::exit_program("Error: Could not create directory: $directory", "create_directory");
  66             }
  67             else
  68             {
  69                 $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n";
  70                 push(@pre2par::globals::logfileinfo, $infoline);
  71             }
  72         }
  73     }
  74     else
  75     {
  76         $infoline = "\nAlready existing directory, did not create: $directory\n";
  77         push(@pre2par::globals::logfileinfo, $infoline);
  78     }
  79 }
  80
  81 1;