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 par2script::systemactions; 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielskiuse File::Copy; 28*b1cdbd2cSJim Jagielskiuse par2script::exiter; 29*b1cdbd2cSJim Jagielskiuse par2script::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 41*b1cdbd2cSJim Jagielski if (!(-d $directory)) 42*b1cdbd2cSJim Jagielski { 43*b1cdbd2cSJim Jagielski $returnvalue = mkdir($directory, 0775); 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim Jagielski if ($returnvalue) 46*b1cdbd2cSJim Jagielski { 47*b1cdbd2cSJim Jagielski $infoline = "Created directory: $directory\n"; 48*b1cdbd2cSJim Jagielski push(@par2script::globals::logfileinfo, $infoline); 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski if ($par2script::globals::isunix) 51*b1cdbd2cSJim Jagielski { 52*b1cdbd2cSJim Jagielski my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; 53*b1cdbd2cSJim Jagielski system($localcall); 54*b1cdbd2cSJim Jagielski } 55*b1cdbd2cSJim Jagielski } 56*b1cdbd2cSJim Jagielski else 57*b1cdbd2cSJim Jagielski { 58*b1cdbd2cSJim Jagielski par2script::exiter::exit_program("Error: Could not create directory: $directory", "create_directory"); 59*b1cdbd2cSJim Jagielski } 60*b1cdbd2cSJim Jagielski } 61*b1cdbd2cSJim Jagielski} 62*b1cdbd2cSJim Jagielski 63*b1cdbd2cSJim Jagielski####################################################################### 64*b1cdbd2cSJim Jagielski# Creating the directories, in which files are generated or unzipped 65*b1cdbd2cSJim Jagielski####################################################################### 66*b1cdbd2cSJim Jagielski 67*b1cdbd2cSJim Jagielskisub create_directories 68*b1cdbd2cSJim Jagielski{ 69*b1cdbd2cSJim Jagielski my ($directory, $languagesref) =@_; 70*b1cdbd2cSJim Jagielski 71*b1cdbd2cSJim Jagielski $par2script::globals::unpackpath =~ s/\Q$par2script::globals::separator\E\s*$//; # removing ending slashes and backslashes 72*b1cdbd2cSJim Jagielski 73*b1cdbd2cSJim Jagielski my $path = $par2script::globals::unpackpath; # this path already exists 74*b1cdbd2cSJim Jagielski 75*b1cdbd2cSJim Jagielski $path = $path . $par2script::globals::separator . $par2script::globals::build . $par2script::globals::separator; 76*b1cdbd2cSJim Jagielski create_directory($path); 77*b1cdbd2cSJim Jagielski 78*b1cdbd2cSJim Jagielski $path = $path . $par2script::globals::minor . $par2script::globals::separator; 79*b1cdbd2cSJim Jagielski create_directory($path); 80*b1cdbd2cSJim Jagielski 81*b1cdbd2cSJim Jagielski if ($directory eq "unzip" ) 82*b1cdbd2cSJim Jagielski { 83*b1cdbd2cSJim Jagielski $path = $path . "common" . $par2script::globals::productextension . $par2script::globals::separator; 84*b1cdbd2cSJim Jagielski create_directory($path); 85*b1cdbd2cSJim Jagielski 86*b1cdbd2cSJim Jagielski $path = $path . $directory . $par2script::globals::separator; 87*b1cdbd2cSJim Jagielski create_directory($path); 88*b1cdbd2cSJim Jagielski } 89*b1cdbd2cSJim Jagielski else 90*b1cdbd2cSJim Jagielski { 91*b1cdbd2cSJim Jagielski $path = $path . $par2script::globals::compiler . $par2script::globals::productextension . $par2script::globals::separator; 92*b1cdbd2cSJim Jagielski create_directory($path); 93*b1cdbd2cSJim Jagielski 94*b1cdbd2cSJim Jagielski $path = $path . $par2script::globals::product . $par2script::globals::separator; 95*b1cdbd2cSJim Jagielski create_directory($path); 96*b1cdbd2cSJim Jagielski 97*b1cdbd2cSJim Jagielski $path = $path . $directory . $par2script::globals::separator; 98*b1cdbd2cSJim Jagielski create_directory($path); 99*b1cdbd2cSJim Jagielski 100*b1cdbd2cSJim Jagielski if (!($$languagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files 101*b1cdbd2cSJim Jagielski { 102*b1cdbd2cSJim Jagielski $path = $path . $$languagesref . $par2script::globals::separator; 103*b1cdbd2cSJim Jagielski create_directory($path); 104*b1cdbd2cSJim Jagielski } 105*b1cdbd2cSJim Jagielski } 106*b1cdbd2cSJim Jagielski 107*b1cdbd2cSJim Jagielski $path =~ s/\Q$par2script::globals::separator\E\s*$//; 108*b1cdbd2cSJim Jagielski 109*b1cdbd2cSJim Jagielski return $path; 110*b1cdbd2cSJim Jagielski} 111*b1cdbd2cSJim Jagielski 112*b1cdbd2cSJim Jagielski######################## 113*b1cdbd2cSJim Jagielski# Copying one file 114*b1cdbd2cSJim Jagielski######################## 115*b1cdbd2cSJim Jagielski 116*b1cdbd2cSJim Jagielskisub copy_one_file 117*b1cdbd2cSJim Jagielski{ 118*b1cdbd2cSJim Jagielski my ($source, $dest) = @_; 119*b1cdbd2cSJim Jagielski 120*b1cdbd2cSJim Jagielski my ($copyreturn, $returnvalue); 121*b1cdbd2cSJim Jagielski my $infoline; 122*b1cdbd2cSJim Jagielski 123*b1cdbd2cSJim Jagielski $copyreturn = copy($source, $dest); 124*b1cdbd2cSJim Jagielski 125*b1cdbd2cSJim Jagielski if ($copyreturn) 126*b1cdbd2cSJim Jagielski { 127*b1cdbd2cSJim Jagielski $infoline = "Copy: $source to $dest\n"; 128*b1cdbd2cSJim Jagielski $returnvalue = 1; 129*b1cdbd2cSJim Jagielski } 130*b1cdbd2cSJim Jagielski else 131*b1cdbd2cSJim Jagielski { 132*b1cdbd2cSJim Jagielski $infoline = "Error: Could not copy $source to $dest\n"; 133*b1cdbd2cSJim Jagielski $returnvalue = 0; 134*b1cdbd2cSJim Jagielski } 135*b1cdbd2cSJim Jagielski 136*b1cdbd2cSJim Jagielski push(@par2script::globals::logfileinfo, $infoline); 137*b1cdbd2cSJim Jagielski 138*b1cdbd2cSJim Jagielski return $returnvalue; 139*b1cdbd2cSJim Jagielski} 140*b1cdbd2cSJim Jagielski 141*b1cdbd2cSJim Jagielski########################################## 142*b1cdbd2cSJim Jagielski# Copying all files from one directory 143*b1cdbd2cSJim Jagielski# to another directory 144*b1cdbd2cSJim Jagielski########################################## 145*b1cdbd2cSJim Jagielski 146*b1cdbd2cSJim Jagielskisub copy_directory 147*b1cdbd2cSJim Jagielski{ 148*b1cdbd2cSJim Jagielski my ($sourcedir, $destdir) = @_; 149*b1cdbd2cSJim Jagielski 150*b1cdbd2cSJim Jagielski my ($onefile, $sourcefile, $destfile); 151*b1cdbd2cSJim Jagielski my @sourcefiles = (); 152*b1cdbd2cSJim Jagielski 153*b1cdbd2cSJim Jagielski $sourcedir =~ s/\Q$par2script::globals::separator\E\s*$//; 154*b1cdbd2cSJim Jagielski $destdir =~ s/\Q$par2script::globals::separator\E\s*$//; 155*b1cdbd2cSJim Jagielski 156*b1cdbd2cSJim Jagielski $infoline = "\n"; 157*b1cdbd2cSJim Jagielski push(@par2script::globals::logfileinfo, $infoline); 158*b1cdbd2cSJim Jagielski $infoline = "Copying files from directory $sourcedir to directory $destdir\n"; 159*b1cdbd2cSJim Jagielski push(@par2script::globals::logfileinfo, $infoline); 160*b1cdbd2cSJim Jagielski 161*b1cdbd2cSJim Jagielski opendir(DIR, $sourcedir); 162*b1cdbd2cSJim Jagielski @sourcefiles = readdir(DIR); 163*b1cdbd2cSJim Jagielski closedir(DIR); 164*b1cdbd2cSJim Jagielski 165*b1cdbd2cSJim Jagielski foreach $onefile (@sourcefiles) 166*b1cdbd2cSJim Jagielski { 167*b1cdbd2cSJim Jagielski if ((!($onefile eq ".")) && (!($onefile eq ".."))) 168*b1cdbd2cSJim Jagielski { 169*b1cdbd2cSJim Jagielski $sourcefile = $sourcedir . $par2script::globals::separator . $onefile; 170*b1cdbd2cSJim Jagielski $destfile = $destdir . $par2script::globals::separator . $onefile; 171*b1cdbd2cSJim Jagielski if ( -f $sourcefile ) # only files, no directories 172*b1cdbd2cSJim Jagielski { 173*b1cdbd2cSJim Jagielski copy_one_file($sourcefile, $destfile); 174*b1cdbd2cSJim Jagielski } 175*b1cdbd2cSJim Jagielski } 176*b1cdbd2cSJim Jagielski } 177*b1cdbd2cSJim Jagielski} 178*b1cdbd2cSJim Jagielski 179*b1cdbd2cSJim Jagielski 180*b1cdbd2cSJim Jagielski1; 181