1*b1cdbd2cSJim Jagielski#************************************************************** 2*b1cdbd2cSJim Jagielski# 3*b1cdbd2cSJim Jagielski# Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielski# or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielski# distributed with this work for additional information 6*b1cdbd2cSJim Jagielski# regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielski# to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielski# "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielski# with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielski# 11*b1cdbd2cSJim Jagielski# http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielski# 13*b1cdbd2cSJim Jagielski# Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielski# software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielski# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielski# KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielski# specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielski# under the License. 19*b1cdbd2cSJim Jagielski# 20*b1cdbd2cSJim Jagielski#************************************************************** 21*b1cdbd2cSJim Jagielski 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim Jagielski 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim Jagielskipackage pre2par::systemactions; 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielskiuse File::Copy; 28*b1cdbd2cSJim Jagielskiuse pre2par::exiter; 29*b1cdbd2cSJim Jagielskiuse pre2par::globals; 30*b1cdbd2cSJim Jagielski 31*b1cdbd2cSJim Jagielski###################################################### 32*b1cdbd2cSJim Jagielski# Creating a new direcotory 33*b1cdbd2cSJim Jagielski###################################################### 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielskisub create_directory 36*b1cdbd2cSJim Jagielski{ 37*b1cdbd2cSJim Jagielski my ($directory) = @_; 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim Jagielski my $returnvalue = 1; 40*b1cdbd2cSJim Jagielski my $infoline = ""; 41*b1cdbd2cSJim Jagielski 42*b1cdbd2cSJim Jagielski if ($directory eq "" ) 43*b1cdbd2cSJim Jagielski { 44*b1cdbd2cSJim Jagielski return 0; 45*b1cdbd2cSJim Jagielski } 46*b1cdbd2cSJim Jagielski 47*b1cdbd2cSJim Jagielski if (!(-d $directory)) 48*b1cdbd2cSJim Jagielski { 49*b1cdbd2cSJim Jagielski $returnvalue = mkdir($directory, 0775); 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim Jagielski if ($returnvalue) 52*b1cdbd2cSJim Jagielski { 53*b1cdbd2cSJim Jagielski $infoline = "Created directory: $directory\n"; 54*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 55*b1cdbd2cSJim Jagielski 56*b1cdbd2cSJim Jagielski if ($pre2par::globals::isunix) 57*b1cdbd2cSJim Jagielski { 58*b1cdbd2cSJim Jagielski my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; 59*b1cdbd2cSJim Jagielski system($localcall); 60*b1cdbd2cSJim Jagielski } 61*b1cdbd2cSJim Jagielski } 62*b1cdbd2cSJim Jagielski else 63*b1cdbd2cSJim Jagielski { 64*b1cdbd2cSJim Jagielski # New solution in parallel packing: It is possible, that the directory now exists, although it 65*b1cdbd2cSJim Jagielski # was not created in this process. There is only an important error, if the directory does not 66*b1cdbd2cSJim Jagielski # exist now. 67*b1cdbd2cSJim Jagielski 68*b1cdbd2cSJim Jagielski if (!(-d $directory)) 69*b1cdbd2cSJim Jagielski { 70*b1cdbd2cSJim Jagielski pre2par::exiter::exit_program("Error: Could not create directory: $directory", "create_directory"); 71*b1cdbd2cSJim Jagielski } 72*b1cdbd2cSJim Jagielski else 73*b1cdbd2cSJim Jagielski { 74*b1cdbd2cSJim Jagielski $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; 75*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 76*b1cdbd2cSJim Jagielski } 77*b1cdbd2cSJim Jagielski } 78*b1cdbd2cSJim Jagielski } 79*b1cdbd2cSJim Jagielski else 80*b1cdbd2cSJim Jagielski { 81*b1cdbd2cSJim Jagielski $infoline = "\nAlready existing directory, did not create: $directory\n"; 82*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 83*b1cdbd2cSJim Jagielski } 84*b1cdbd2cSJim Jagielski} 85*b1cdbd2cSJim Jagielski 86*b1cdbd2cSJim Jagielski####################################################################### 87*b1cdbd2cSJim Jagielski# Creating the directories, in which files are generated or unzipped 88*b1cdbd2cSJim Jagielski####################################################################### 89*b1cdbd2cSJim Jagielski 90*b1cdbd2cSJim Jagielskisub create_directories 91*b1cdbd2cSJim Jagielski{ 92*b1cdbd2cSJim Jagielski my ($directory, $languagesref) =@_; 93*b1cdbd2cSJim Jagielski 94*b1cdbd2cSJim Jagielski $pre2par::globals::unpackpath =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes and backslashes 95*b1cdbd2cSJim Jagielski 96*b1cdbd2cSJim Jagielski my $path = $pre2par::globals::unpackpath; # this path already exists 97*b1cdbd2cSJim Jagielski 98*b1cdbd2cSJim Jagielski $path = $path . $pre2par::globals::separator . $pre2par::globals::build . $pre2par::globals::separator; 99*b1cdbd2cSJim Jagielski create_directory($path); 100*b1cdbd2cSJim Jagielski 101*b1cdbd2cSJim Jagielski $path = $path . $pre2par::globals::minor . $pre2par::globals::separator; 102*b1cdbd2cSJim Jagielski create_directory($path); 103*b1cdbd2cSJim Jagielski 104*b1cdbd2cSJim Jagielski if ($directory eq "unzip" ) 105*b1cdbd2cSJim Jagielski { 106*b1cdbd2cSJim Jagielski $path = $path . "common" . $pre2par::globals::productextension . $pre2par::globals::separator; 107*b1cdbd2cSJim Jagielski create_directory($path); 108*b1cdbd2cSJim Jagielski 109*b1cdbd2cSJim Jagielski $path = $path . $directory . $pre2par::globals::separator; 110*b1cdbd2cSJim Jagielski create_directory($path); 111*b1cdbd2cSJim Jagielski } 112*b1cdbd2cSJim Jagielski else 113*b1cdbd2cSJim Jagielski { 114*b1cdbd2cSJim Jagielski $path = $path . $pre2par::globals::compiler . $pre2par::globals::productextension . $pre2par::globals::separator; 115*b1cdbd2cSJim Jagielski create_directory($path); 116*b1cdbd2cSJim Jagielski 117*b1cdbd2cSJim Jagielski $path = $path . $pre2par::globals::product . $pre2par::globals::separator; 118*b1cdbd2cSJim Jagielski create_directory($path); 119*b1cdbd2cSJim Jagielski 120*b1cdbd2cSJim Jagielski $path = $path . $directory . $pre2par::globals::separator; 121*b1cdbd2cSJim Jagielski create_directory($path); 122*b1cdbd2cSJim Jagielski 123*b1cdbd2cSJim Jagielski if (!($$languagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files 124*b1cdbd2cSJim Jagielski { 125*b1cdbd2cSJim Jagielski $path = $path . $$languagesref . $pre2par::globals::separator; 126*b1cdbd2cSJim Jagielski create_directory($path); 127*b1cdbd2cSJim Jagielski } 128*b1cdbd2cSJim Jagielski } 129*b1cdbd2cSJim Jagielski 130*b1cdbd2cSJim Jagielski $path =~ s/\Q$pre2par::globals::separator\E\s*$//; 131*b1cdbd2cSJim Jagielski 132*b1cdbd2cSJim Jagielski return $path; 133*b1cdbd2cSJim Jagielski} 134*b1cdbd2cSJim Jagielski 135*b1cdbd2cSJim Jagielski######################## 136*b1cdbd2cSJim Jagielski# Copying one file 137*b1cdbd2cSJim Jagielski######################## 138*b1cdbd2cSJim Jagielski 139*b1cdbd2cSJim Jagielskisub copy_one_file 140*b1cdbd2cSJim Jagielski{ 141*b1cdbd2cSJim Jagielski my ($source, $dest) = @_; 142*b1cdbd2cSJim Jagielski 143*b1cdbd2cSJim Jagielski my ($copyreturn, $returnvalue, $infoline); 144*b1cdbd2cSJim Jagielski 145*b1cdbd2cSJim Jagielski $copyreturn = copy($source, $dest); 146*b1cdbd2cSJim Jagielski 147*b1cdbd2cSJim Jagielski if ($copyreturn) 148*b1cdbd2cSJim Jagielski { 149*b1cdbd2cSJim Jagielski $infoline = "Copy: $source to $dest\n"; 150*b1cdbd2cSJim Jagielski $returnvalue = 1; 151*b1cdbd2cSJim Jagielski } 152*b1cdbd2cSJim Jagielski else 153*b1cdbd2cSJim Jagielski { 154*b1cdbd2cSJim Jagielski $infoline = "Error: Could not copy $source to $dest\n"; 155*b1cdbd2cSJim Jagielski $returnvalue = 0; 156*b1cdbd2cSJim Jagielski } 157*b1cdbd2cSJim Jagielski 158*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 159*b1cdbd2cSJim Jagielski 160*b1cdbd2cSJim Jagielski return $returnvalue; 161*b1cdbd2cSJim Jagielski} 162*b1cdbd2cSJim Jagielski 163*b1cdbd2cSJim Jagielski########################################## 164*b1cdbd2cSJim Jagielski# Copying all files from one directory 165*b1cdbd2cSJim Jagielski# to another directory 166*b1cdbd2cSJim Jagielski########################################## 167*b1cdbd2cSJim Jagielski 168*b1cdbd2cSJim Jagielskisub copy_directory 169*b1cdbd2cSJim Jagielski{ 170*b1cdbd2cSJim Jagielski my ($sourcedir, $destdir) = @_; 171*b1cdbd2cSJim Jagielski 172*b1cdbd2cSJim Jagielski my ($onefile, $sourcefile, $destfile); 173*b1cdbd2cSJim Jagielski my @sourcefiles = (); 174*b1cdbd2cSJim Jagielski 175*b1cdbd2cSJim Jagielski $sourcedir =~ s/\Q$pre2par::globals::separator\E\s*$//; 176*b1cdbd2cSJim Jagielski $destdir =~ s/\Q$pre2par::globals::separator\E\s*$//; 177*b1cdbd2cSJim Jagielski 178*b1cdbd2cSJim Jagielski $infoline = "\n"; 179*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 180*b1cdbd2cSJim Jagielski $infoline = "Copying files from directory $sourcedir to directory $destdir\n"; 181*b1cdbd2cSJim Jagielski push(@pre2par::globals::logfileinfo, $infoline); 182*b1cdbd2cSJim Jagielski 183*b1cdbd2cSJim Jagielski opendir(DIR, $sourcedir); 184*b1cdbd2cSJim Jagielski @sourcefiles = readdir(DIR); 185*b1cdbd2cSJim Jagielski closedir(DIR); 186*b1cdbd2cSJim Jagielski 187*b1cdbd2cSJim Jagielski foreach $onefile (@sourcefiles) 188*b1cdbd2cSJim Jagielski { 189*b1cdbd2cSJim Jagielski if ((!($onefile eq ".")) && (!($onefile eq ".."))) 190*b1cdbd2cSJim Jagielski { 191*b1cdbd2cSJim Jagielski $sourcefile = $sourcedir . $pre2par::globals::separator . $onefile; 192*b1cdbd2cSJim Jagielski $destfile = $destdir . $pre2par::globals::separator . $onefile; 193*b1cdbd2cSJim Jagielski if ( -f $sourcefile ) # only files, no directories 194*b1cdbd2cSJim Jagielski { 195*b1cdbd2cSJim Jagielski copy_one_file($sourcefile, $destfile); 196*b1cdbd2cSJim Jagielski } 197*b1cdbd2cSJim Jagielski } 198*b1cdbd2cSJim Jagielski } 199*b1cdbd2cSJim Jagielski} 200*b1cdbd2cSJim Jagielski 201*b1cdbd2cSJim Jagielski 202*b1cdbd2cSJim Jagielski1; 203