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 direcotory
  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 #######################################################################
  82 # Creating the directories, in which files are generated or unzipped
  83 #######################################################################
  84
  85 sub create_directories
  86 {
  87     my ($directory, $languagesref) =@_;
  88
  89     $pre2par::globals::unpackpath =~ s/\Q$pre2par::globals::separator\E\s*$//;  # removing ending slashes and backslashes
  90
  91     my $path = $pre2par::globals::unpackpath;    # this path already exists
  92
  93     $path = $path . $pre2par::globals::separator . $pre2par::globals::build . $pre2par::globals::separator;
  94     create_directory($path);
  95
  96     $path = $path . $pre2par::globals::minor . $pre2par::globals::separator;
  97     create_directory($path);
  98
  99     if ($directory eq "unzip" )
 100     {
 101     }
 102     else
 103     {
 104         $path = $path . $pre2par::globals::compiler . $pre2par::globals::separator;
 105         create_directory($path);
 106
 107         $path = $path . $pre2par::globals::product . $pre2par::globals::separator;
 108         create_directory($path);
 109
 110         $path = $path . $directory . $pre2par::globals::separator;
 111         create_directory($path);
 112
 113         if (!($$languagesref eq "" ))   # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files
 114         {
 115             $path = $path . $$languagesref . $pre2par::globals::separator;
 116             create_directory($path);
 117         }
 118     }
 119
 120     $path =~ s/\Q$pre2par::globals::separator\E\s*$//;
 121
 122     return $path;
 123 }
 124
 125 ########################
 126 # Copying one file
 127 ########################
 128
 129 sub copy_one_file
 130 {
 131     my ($source, $dest) = @_;
 132
 133     my ($copyreturn, $returnvalue, $infoline);
 134
 135     $copyreturn = copy($source, $dest);
 136
 137     if ($copyreturn)
 138     {
 139         $infoline = "Copy: $source to $dest\n";
 140         $returnvalue = 1;
 141     }
 142     else
 143     {
 144         $infoline = "Error: Could not copy $source to $dest $!\n";
 145         $returnvalue = 0;
 146     }
 147
 148     push(@pre2par::globals::logfileinfo, $infoline);
 149
 150     return $returnvalue;
 151 }
 152
 153 ##########################################
 154 # Copying all files from one directory
 155 # to another directory
 156 ##########################################
 157
 158 sub copy_directory
 159 {
 160     my ($sourcedir, $destdir) = @_;
 161
 162     my ($onefile, $sourcefile, $destfile);
 163     my @sourcefiles = ();
 164
 165     $sourcedir =~ s/\Q$pre2par::globals::separator\E\s*$//;
 166     $destdir =~ s/\Q$pre2par::globals::separator\E\s*$//;
 167
 168     $infoline = "\n";
 169     push(@pre2par::globals::logfileinfo, $infoline);
 170     $infoline = "Copying files from directory $sourcedir to directory $destdir\n";
 171     push(@pre2par::globals::logfileinfo, $infoline);
 172
 173     opendir(DIR, $sourcedir);
 174     @sourcefiles = readdir(DIR);
 175     closedir(DIR);
 176
 177     foreach $onefile (@sourcefiles)
 178     {
 179         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 180         {
 181             $sourcefile = $sourcedir . $pre2par::globals::separator . $onefile;
 182             $destfile = $destdir . $pre2par::globals::separator . $onefile;
 183             if ( -f $sourcefile )   # only files, no directories
 184             {
 185                 copy_one_file($sourcefile, $destfile);
 186             }
 187         }
 188     }
 189 }
 190
 191
 192 1;