diff options
Diffstat (limited to 'solenv/bin/modules/pre2par/systemactions.pm')
-rw-r--r-- | solenv/bin/modules/pre2par/systemactions.pm | 206 |
1 files changed, 0 insertions, 206 deletions
diff --git a/solenv/bin/modules/pre2par/systemactions.pm b/solenv/bin/modules/pre2par/systemactions.pm deleted file mode 100644 index 1634a2d46..000000000 --- a/solenv/bin/modules/pre2par/systemactions.pm +++ /dev/null @@ -1,206 +0,0 @@ -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - - -package pre2par::systemactions; - -use File::Copy; -use pre2par::exiter; -use pre2par::globals; - -###################################################### -# Creating a new direcotory -###################################################### - -sub create_directory -{ - my ($directory) = @_; - - my $returnvalue = 1; - my $infoline = ""; - - if ($directory eq "" ) - { - return 0; - } - - if (!(-d $directory)) - { - $returnvalue = mkdir($directory, 0775); - - if ($returnvalue) - { - $infoline = "Created directory: $directory\n"; - push(@pre2par::globals::logfileinfo, $infoline); - - if ($pre2par::globals::isunix) - { - my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; - system($localcall); - } - } - else - { - # New solution in parallel packing: It is possible, that the directory now exists, although it - # was not created in this process. There is only an important error, if the directory does not - # exist now. - - if (!(-d $directory)) - { - pre2par::exiter::exit_program("Error: Could not create directory: $directory", "create_directory"); - } - else - { - $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; - push(@pre2par::globals::logfileinfo, $infoline); - } - } - } - else - { - $infoline = "\nAlready existing directory, did not create: $directory\n"; - push(@pre2par::globals::logfileinfo, $infoline); - } -} - -####################################################################### -# Creating the directories, in which files are generated or unzipped -####################################################################### - -sub create_directories -{ - my ($directory, $languagesref) =@_; - - $pre2par::globals::unpackpath =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes and backslashes - - my $path = $pre2par::globals::unpackpath; # this path already exists - - $path = $path . $pre2par::globals::separator . $pre2par::globals::build . $pre2par::globals::separator; - create_directory($path); - - $path = $path . $pre2par::globals::minor . $pre2par::globals::separator; - create_directory($path); - - if ($directory eq "unzip" ) - { - $path = $path . "common" . $pre2par::globals::productextension . $pre2par::globals::separator; - create_directory($path); - - $path = $path . $directory . $pre2par::globals::separator; - create_directory($path); - } - else - { - $path = $path . $pre2par::globals::compiler . $pre2par::globals::productextension . $pre2par::globals::separator; - create_directory($path); - - $path = $path . $pre2par::globals::product . $pre2par::globals::separator; - create_directory($path); - - $path = $path . $directory . $pre2par::globals::separator; - create_directory($path); - - if (!($$languagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files - { - $path = $path . $$languagesref . $pre2par::globals::separator; - create_directory($path); - } - } - - $path =~ s/\Q$pre2par::globals::separator\E\s*$//; - - return $path; -} - -######################## -# Copying one file -######################## - -sub copy_one_file -{ - my ($source, $dest) = @_; - - my ($copyreturn, $returnvalue, $infoline); - - $copyreturn = copy($source, $dest); - - if ($copyreturn) - { - $infoline = "Copy: $source to $dest\n"; - $returnvalue = 1; - } - else - { - $infoline = "Error: Could not copy $source to $dest $!\n"; - $returnvalue = 0; - } - - push(@pre2par::globals::logfileinfo, $infoline); - - return $returnvalue; -} - -########################################## -# Copying all files from one directory -# to another directory -########################################## - -sub copy_directory -{ - my ($sourcedir, $destdir) = @_; - - my ($onefile, $sourcefile, $destfile); - my @sourcefiles = (); - - $sourcedir =~ s/\Q$pre2par::globals::separator\E\s*$//; - $destdir =~ s/\Q$pre2par::globals::separator\E\s*$//; - - $infoline = "\n"; - push(@pre2par::globals::logfileinfo, $infoline); - $infoline = "Copying files from directory $sourcedir to directory $destdir\n"; - push(@pre2par::globals::logfileinfo, $infoline); - - opendir(DIR, $sourcedir); - @sourcefiles = readdir(DIR); - closedir(DIR); - - foreach $onefile (@sourcefiles) - { - if ((!($onefile eq ".")) && (!($onefile eq ".."))) - { - $sourcefile = $sourcedir . $pre2par::globals::separator . $onefile; - $destfile = $destdir . $pre2par::globals::separator . $onefile; - if ( -f $sourcefile ) # only files, no directories - { - copy_one_file($sourcefile, $destfile); - } - } - } -} - - -1; |