1*9780544fSAndrew Rist#************************************************************** 2*9780544fSAndrew Rist# 3*9780544fSAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 4*9780544fSAndrew Rist# or more contributor license agreements. See the NOTICE file 5*9780544fSAndrew Rist# distributed with this work for additional information 6*9780544fSAndrew Rist# regarding copyright ownership. The ASF licenses this file 7*9780544fSAndrew Rist# to you under the Apache License, Version 2.0 (the 8*9780544fSAndrew Rist# "License"); you may not use this file except in compliance 9*9780544fSAndrew Rist# with the License. You may obtain a copy of the License at 10*9780544fSAndrew Rist# 11*9780544fSAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 12*9780544fSAndrew Rist# 13*9780544fSAndrew Rist# Unless required by applicable law or agreed to in writing, 14*9780544fSAndrew Rist# software distributed under the License is distributed on an 15*9780544fSAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*9780544fSAndrew Rist# KIND, either express or implied. See the License for the 17*9780544fSAndrew Rist# specific language governing permissions and limitations 18*9780544fSAndrew Rist# under the License. 19*9780544fSAndrew Rist# 20*9780544fSAndrew Rist#************************************************************** 21*9780544fSAndrew Rist 22*9780544fSAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweirpackage installer::systemactions; 25cdf0e10cSrcweir 26cdf0e10cSrcweiruse Cwd; 27cdf0e10cSrcweiruse File::Copy; 28cdf0e10cSrcweiruse installer::converter; 29cdf0e10cSrcweiruse installer::exiter; 30cdf0e10cSrcweiruse installer::globals; 31cdf0e10cSrcweiruse installer::pathanalyzer; 32cdf0e10cSrcweiruse installer::remover; 33cdf0e10cSrcweir 34cdf0e10cSrcweir###################################################### 35cdf0e10cSrcweir# Creating a new direcotory 36cdf0e10cSrcweir###################################################### 37cdf0e10cSrcweir 38cdf0e10cSrcweirsub create_directory 39cdf0e10cSrcweir{ 40cdf0e10cSrcweir my ($directory) = @_; 41cdf0e10cSrcweir 42cdf0e10cSrcweir my $returnvalue = 1; 43cdf0e10cSrcweir my $infoline = ""; 44cdf0e10cSrcweir 45cdf0e10cSrcweir if (!(-d $directory)) 46cdf0e10cSrcweir { 47cdf0e10cSrcweir $returnvalue = mkdir($directory, 0775); 48cdf0e10cSrcweir 49cdf0e10cSrcweir if ($returnvalue) 50cdf0e10cSrcweir { 51cdf0e10cSrcweir $infoline = "\nCreated directory: $directory\n"; 52cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 53cdf0e10cSrcweir 54cdf0e10cSrcweir my $localcall = "chmod 0775 $directory \>\/dev\/null 2\>\&1"; 55cdf0e10cSrcweir system($localcall); 56cdf0e10cSrcweir 57cdf0e10cSrcweir # chmod 0775 is not sufficient on mac to remove sticky tag 58cdf0e10cSrcweir $localcall = "chmod a-s $directory \>\/dev\/null 2\>\&1"; 59cdf0e10cSrcweir system($localcall); 60cdf0e10cSrcweir } 61cdf0e10cSrcweir else 62cdf0e10cSrcweir { 63cdf0e10cSrcweir # New solution in parallel packing: It is possible, that the directory now exists, although it 64cdf0e10cSrcweir # was not created in this process. There is only an important error, if the directory does not 65cdf0e10cSrcweir # exist now. 66cdf0e10cSrcweir 67cdf0e10cSrcweir $infoline = "\nDid not succeed in creating directory: \"$directory\". Further attempts will follow.\n"; 68cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 69cdf0e10cSrcweir 70cdf0e10cSrcweir if (!(-d $directory)) 71cdf0e10cSrcweir { 72cdf0e10cSrcweir # Problem with parallel packaging? -> Try a little harder, before exiting. 73cdf0e10cSrcweir # Did someone else remove the parent directory in the meantime? 74cdf0e10cSrcweir my $parentdir = $directory; 75cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir); 76cdf0e10cSrcweir if (!(-d $parentdir)) 77cdf0e10cSrcweir { 78cdf0e10cSrcweir $returnvalue = mkdir($parentdir, 0775); 79cdf0e10cSrcweir 80cdf0e10cSrcweir if ($returnvalue) 81cdf0e10cSrcweir { 82cdf0e10cSrcweir $infoline = "\nAttention: Successfully created parent directory (should already be created before): $parentdir\n"; 83cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 84cdf0e10cSrcweir 85cdf0e10cSrcweir my $localcall = "chmod 775 $parentdir \>\/dev\/null 2\>\&1"; 86cdf0e10cSrcweir system($localcall); 87cdf0e10cSrcweir } 88cdf0e10cSrcweir else 89cdf0e10cSrcweir { 90cdf0e10cSrcweir $infoline = "\Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" does not exist and could not be created.\n"; 91cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 92cdf0e10cSrcweir if ( -d $parentdir ) 93cdf0e10cSrcweir { 94cdf0e10cSrcweir $infoline = "\nAttention: Finally the parent directory \"$parentdir\" exists, but I could not create it.\n"; 95cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 96cdf0e10cSrcweir } 97cdf0e10cSrcweir else 98cdf0e10cSrcweir { 99cdf0e10cSrcweir # Now it is time to exit, even the parent could not be created. 100cdf0e10cSrcweir installer::exiter::exit_program("ERROR: Could not create parent directory \"$parentdir\"", "create_directory"); 101cdf0e10cSrcweir } 102cdf0e10cSrcweir } 103cdf0e10cSrcweir } 104cdf0e10cSrcweir 105cdf0e10cSrcweir # At this point we have to assume, that the parent directory exist. 106cdf0e10cSrcweir # Trying once more to create the desired directory 107cdf0e10cSrcweir 108cdf0e10cSrcweir $returnvalue = mkdir($directory, 0775); 109cdf0e10cSrcweir 110cdf0e10cSrcweir if ($returnvalue) 111cdf0e10cSrcweir { 112cdf0e10cSrcweir $infoline = "\nAttention: Created directory \"$directory\" in the second try.\n"; 113cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 114cdf0e10cSrcweir 115cdf0e10cSrcweir my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1"; 116cdf0e10cSrcweir system($localcall); 117cdf0e10cSrcweir } 118cdf0e10cSrcweir else 119cdf0e10cSrcweir { 120cdf0e10cSrcweir if ( -d $directory ) 121cdf0e10cSrcweir { 122cdf0e10cSrcweir $infoline = "\nAttention: Finally the directory \"$directory\" exists, but I could not create it.\n"; 123cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 124cdf0e10cSrcweir } 125cdf0e10cSrcweir else 126cdf0e10cSrcweir { 127cdf0e10cSrcweir # It is time to exit, even the second try failed. 128cdf0e10cSrcweir installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_directory"); 129cdf0e10cSrcweir } 130cdf0e10cSrcweir } 131cdf0e10cSrcweir } 132cdf0e10cSrcweir else 133cdf0e10cSrcweir { 134cdf0e10cSrcweir $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; 135cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 136cdf0e10cSrcweir } 137cdf0e10cSrcweir } 138cdf0e10cSrcweir } 139cdf0e10cSrcweir else 140cdf0e10cSrcweir { 141cdf0e10cSrcweir $infoline = "\nAlready existing directory, did not create: $directory\n"; 142cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 143cdf0e10cSrcweir } 144cdf0e10cSrcweir} 145cdf0e10cSrcweir 146cdf0e10cSrcweir###################################################### 147cdf0e10cSrcweir# Creating a new direcotory with defined privileges 148cdf0e10cSrcweir###################################################### 149cdf0e10cSrcweir 150cdf0e10cSrcweirsub create_directory_with_privileges 151cdf0e10cSrcweir{ 152cdf0e10cSrcweir my ($directory, $privileges) = @_; 153cdf0e10cSrcweir 154cdf0e10cSrcweir my $returnvalue = 1; 155cdf0e10cSrcweir my $infoline = ""; 156cdf0e10cSrcweir 157cdf0e10cSrcweir if (!(-d $directory)) 158cdf0e10cSrcweir { 159cdf0e10cSrcweir my $localprivileges = oct("0".$privileges); # changes "777" to 0777 160cdf0e10cSrcweir $returnvalue = mkdir($directory, $localprivileges); 161cdf0e10cSrcweir 162cdf0e10cSrcweir if ($returnvalue) 163cdf0e10cSrcweir { 164cdf0e10cSrcweir $infoline = "\nCreated directory: $directory\n"; 165cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 166cdf0e10cSrcweir 167cdf0e10cSrcweir my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; 168cdf0e10cSrcweir system($localcall); 169cdf0e10cSrcweir } 170cdf0e10cSrcweir else 171cdf0e10cSrcweir { 172cdf0e10cSrcweir # New solution in parallel packing: It is possible, that the directory now exists, although it 173cdf0e10cSrcweir # was not created in this process. There is only an important error, if the directory does not 174cdf0e10cSrcweir # exist now. 175cdf0e10cSrcweir 176cdf0e10cSrcweir $infoline = "\nDid not succeed in creating directory: \"$directory\". Further attempts will follow.\n"; 177cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 178cdf0e10cSrcweir 179cdf0e10cSrcweir if (!(-d $directory)) 180cdf0e10cSrcweir { 181cdf0e10cSrcweir # Problem with parallel packaging? -> Try a little harder, before exiting. 182cdf0e10cSrcweir # Did someone else remove the parent directory in the meantime? 183cdf0e10cSrcweir my $parentdir = $directory; 184cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir); 185cdf0e10cSrcweir if (!(-d $parentdir)) 186cdf0e10cSrcweir { 187cdf0e10cSrcweir $returnvalue = mkdir($directory, $localprivileges); 188cdf0e10cSrcweir 189cdf0e10cSrcweir if ($returnvalue) 190cdf0e10cSrcweir { 191cdf0e10cSrcweir $infoline = "\nAttention: Successfully created parent directory (should already be created before): $parentdir\n"; 192cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 193cdf0e10cSrcweir 194cdf0e10cSrcweir my $localcall = "chmod $privileges $parentdir \>\/dev\/null 2\>\&1"; 195cdf0e10cSrcweir system($localcall); 196cdf0e10cSrcweir } 197cdf0e10cSrcweir else 198cdf0e10cSrcweir { 199cdf0e10cSrcweir $infoline = "\Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" does not exist and could not be created.\n"; 200cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 201cdf0e10cSrcweir if ( -d $parentdir ) 202cdf0e10cSrcweir { 203cdf0e10cSrcweir $infoline = "\nAttention: Finally the parent directory \"$parentdir\" exists, but I could not create it.\n"; 204cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 205cdf0e10cSrcweir } 206cdf0e10cSrcweir else 207cdf0e10cSrcweir { 208cdf0e10cSrcweir # Now it is time to exit, even the parent could not be created. 209cdf0e10cSrcweir installer::exiter::exit_program("ERROR: Could not create parent directory \"$parentdir\"", "create_directory_with_privileges"); 210cdf0e10cSrcweir } 211cdf0e10cSrcweir } 212cdf0e10cSrcweir } 213cdf0e10cSrcweir 214cdf0e10cSrcweir # At this point we have to assume, that the parent directory exist. 215cdf0e10cSrcweir # Trying once more to create the desired directory 216cdf0e10cSrcweir 217cdf0e10cSrcweir $returnvalue = mkdir($directory, $localprivileges); 218cdf0e10cSrcweir 219cdf0e10cSrcweir if ($returnvalue) 220cdf0e10cSrcweir { 221cdf0e10cSrcweir $infoline = "\nAttention: Created directory \"$directory\" in the second try.\n"; 222cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 223cdf0e10cSrcweir 224cdf0e10cSrcweir my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; 225cdf0e10cSrcweir system($localcall); 226cdf0e10cSrcweir } 227cdf0e10cSrcweir else 228cdf0e10cSrcweir { 229cdf0e10cSrcweir if ( -d $directory ) 230cdf0e10cSrcweir { 231cdf0e10cSrcweir $infoline = "\nAttention: Finally the directory \"$directory\" exists, but I could not create it.\n"; 232cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 233cdf0e10cSrcweir } 234cdf0e10cSrcweir else 235cdf0e10cSrcweir { 236cdf0e10cSrcweir # It is time to exit, even the second try failed. 237cdf0e10cSrcweir installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_directory_with_privileges"); 238cdf0e10cSrcweir } 239cdf0e10cSrcweir } 240cdf0e10cSrcweir } 241cdf0e10cSrcweir else 242cdf0e10cSrcweir { 243cdf0e10cSrcweir $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n"; 244cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 245cdf0e10cSrcweir } 246cdf0e10cSrcweir } 247cdf0e10cSrcweir } 248cdf0e10cSrcweir else 249cdf0e10cSrcweir { 250cdf0e10cSrcweir $infoline = "\nAlready existing directory, did not create: $directory\n"; 251cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 252cdf0e10cSrcweir 253cdf0e10cSrcweir my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1"; 254cdf0e10cSrcweir system($localcall); 255cdf0e10cSrcweir } 256cdf0e10cSrcweir} 257cdf0e10cSrcweir 258cdf0e10cSrcweir###################################################### 259cdf0e10cSrcweir# Removing a new direcotory 260cdf0e10cSrcweir###################################################### 261cdf0e10cSrcweir 262cdf0e10cSrcweirsub remove_empty_directory 263cdf0e10cSrcweir{ 264cdf0e10cSrcweir my ($directory) = @_; 265cdf0e10cSrcweir 266cdf0e10cSrcweir my $returnvalue = 1; 267cdf0e10cSrcweir 268cdf0e10cSrcweir if (-d $directory) 269cdf0e10cSrcweir { 270cdf0e10cSrcweir my $systemcall = "rmdir $directory"; 271cdf0e10cSrcweir 272cdf0e10cSrcweir $returnvalue = system($systemcall); 273cdf0e10cSrcweir 274cdf0e10cSrcweir my $infoline = "Systemcall: $systemcall\n"; 275cdf0e10cSrcweir push( @installer::globals::logfileinfo, $infoline); 276cdf0e10cSrcweir 277cdf0e10cSrcweir if ($returnvalue) 278cdf0e10cSrcweir { 279cdf0e10cSrcweir $infoline = "ERROR: Could not remove \"$directory\"!\n"; 280cdf0e10cSrcweir push( @installer::globals::logfileinfo, $infoline); 281cdf0e10cSrcweir } 282cdf0e10cSrcweir else 283cdf0e10cSrcweir { 284cdf0e10cSrcweir $infoline = "Success: Removed \"$directory\"!\n"; 285cdf0e10cSrcweir push( @installer::globals::logfileinfo, $infoline); 286cdf0e10cSrcweir } 287cdf0e10cSrcweir } 288cdf0e10cSrcweir} 289cdf0e10cSrcweir 290cdf0e10cSrcweir####################################################################### 291cdf0e10cSrcweir# Calculating the number of languages in the string 292cdf0e10cSrcweir####################################################################### 293cdf0e10cSrcweir 294cdf0e10cSrcweirsub get_number_of_langs 295cdf0e10cSrcweir{ 296cdf0e10cSrcweir my ($languagestring) = @_; 297cdf0e10cSrcweir 298cdf0e10cSrcweir my $number = 1; 299cdf0e10cSrcweir 300cdf0e10cSrcweir my $workstring = $languagestring; 301cdf0e10cSrcweir 302cdf0e10cSrcweir while ( $workstring =~ /^\s*(.*)_(.*?)\s*$/ ) 303cdf0e10cSrcweir { 304cdf0e10cSrcweir $workstring = $1; 305cdf0e10cSrcweir $number++; 306cdf0e10cSrcweir } 307cdf0e10cSrcweir 308cdf0e10cSrcweir return $number; 309cdf0e10cSrcweir} 310cdf0e10cSrcweir 311cdf0e10cSrcweir####################################################################### 312cdf0e10cSrcweir# Creating the directories, in which files are generated or unzipped 313cdf0e10cSrcweir####################################################################### 314cdf0e10cSrcweir 315cdf0e10cSrcweirsub create_directories 316cdf0e10cSrcweir{ 317cdf0e10cSrcweir my ($newdirectory, $languagesref) =@_; 318cdf0e10cSrcweir 319cdf0e10cSrcweir $installer::globals::unpackpath =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes 320cdf0e10cSrcweir 321cdf0e10cSrcweir my $path = ""; 322cdf0e10cSrcweir 323cdf0e10cSrcweir if (( $newdirectory eq "uno" ) || ( $newdirectory eq "zip" ) || ( $newdirectory eq "cab" ) || ( $newdirectory =~ /rdb\s*$/i )) # special handling for zip files, cab files and services file because of performance reasons 324cdf0e10cSrcweir { 325cdf0e10cSrcweir if ( $installer::globals::temppathdefined ) { $path = $installer::globals::temppath; } 326cdf0e10cSrcweir else { $path = $installer::globals::unpackpath; } 327cdf0e10cSrcweir $path =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes 328cdf0e10cSrcweir $path = $path . $installer::globals::separator; 329cdf0e10cSrcweir } 330cdf0e10cSrcweir elsif ( ( $newdirectory eq "jds" ) ) 331cdf0e10cSrcweir { 332cdf0e10cSrcweir if ( $installer::globals::jdstemppathdefined ) { $path = $installer::globals::jdstemppath; } 333cdf0e10cSrcweir else { $path = $installer::globals::unpackpath; } 334cdf0e10cSrcweir $path =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes 335cdf0e10cSrcweir $path = $path . $installer::globals::separator; 336cdf0e10cSrcweir installer::systemactions::create_directory($path); 337cdf0e10cSrcweir } 338cdf0e10cSrcweir else 339cdf0e10cSrcweir { 340cdf0e10cSrcweir $path = $installer::globals::unpackpath . $installer::globals::separator; 341cdf0e10cSrcweir 342cdf0e10cSrcweir # special handling, if LOCALINSTALLDIR is set 343cdf0e10cSrcweir if (( $installer::globals::localinstalldirset ) && ( $newdirectory eq "install" )) 344cdf0e10cSrcweir { 345cdf0e10cSrcweir $installer::globals::localinstalldir =~ s/\Q$installer::globals::separator\E\s*$//; 346cdf0e10cSrcweir $path = $installer::globals::localinstalldir . $installer::globals::separator; 347cdf0e10cSrcweir } 348cdf0e10cSrcweir } 349cdf0e10cSrcweir 350cdf0e10cSrcweir $infoline = "create_directories: Using $path for $newdirectory !\n"; 351cdf0e10cSrcweir push( @installer::globals::logfileinfo, $infoline); 352cdf0e10cSrcweir 353cdf0e10cSrcweir if ($newdirectory eq "unzip" ) # special handling for common directory 354cdf0e10cSrcweir { 355cdf0e10cSrcweir $path = $path . ".." . $installer::globals::separator . "common" . $installer::globals::productextension . $installer::globals::separator; 356cdf0e10cSrcweir create_directory($path); 357cdf0e10cSrcweir 358cdf0e10cSrcweir $path = $path . $newdirectory . $installer::globals::separator; 359cdf0e10cSrcweir create_directory($path); 360cdf0e10cSrcweir } 361cdf0e10cSrcweir else 362cdf0e10cSrcweir { 363cdf0e10cSrcweir my $localproductname = $installer::globals::product; 364cdf0e10cSrcweir my $localproductsubdir = ""; 365cdf0e10cSrcweir 366cdf0e10cSrcweir if ( $installer::globals::product =~ /^\s*(.+?)\_\_(.+?)\s*$/ ) 367cdf0e10cSrcweir { 368cdf0e10cSrcweir $localproductname = $1; 369cdf0e10cSrcweir $localproductsubdir = $2; 370cdf0e10cSrcweir } 371cdf0e10cSrcweir 372cdf0e10cSrcweir if ( $installer::globals::languagepack ) { $path = $path . $localproductname . "_languagepack" . $installer::globals::separator; } 373cdf0e10cSrcweir elsif ( $installer::globals::patch ) { $path = $path . $localproductname . "_patch" . $installer::globals::separator; } 374cdf0e10cSrcweir else { $path = $path . $localproductname . $installer::globals::separator; } 375cdf0e10cSrcweir 376cdf0e10cSrcweir create_directory($path); 377cdf0e10cSrcweir 378cdf0e10cSrcweir if ( $localproductsubdir ) 379cdf0e10cSrcweir { 380cdf0e10cSrcweir $path = $path . $localproductsubdir . $installer::globals::separator; 381cdf0e10cSrcweir create_directory($path); 382cdf0e10cSrcweir } 383cdf0e10cSrcweir 384cdf0e10cSrcweir $path = $path . $installer::globals::installertypedir . $installer::globals::separator; 385cdf0e10cSrcweir create_directory($path); 386cdf0e10cSrcweir 387cdf0e10cSrcweir $path = $path . $newdirectory . $installer::globals::separator; 388cdf0e10cSrcweir create_directory($path); 389cdf0e10cSrcweir 390cdf0e10cSrcweir my $locallanguagesref = ""; 391cdf0e10cSrcweir 392cdf0e10cSrcweir if ( $$languagesref ) { $locallanguagesref = $$languagesref; } 393cdf0e10cSrcweir 394cdf0e10cSrcweir if (!($locallanguagesref eq "" )) # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files 395cdf0e10cSrcweir { 396cdf0e10cSrcweir my $languagestring = $$languagesref; 397cdf0e10cSrcweir 398cdf0e10cSrcweir if (length($languagestring) > $installer::globals::max_lang_length ) 399cdf0e10cSrcweir { 400cdf0e10cSrcweir my $number_of_languages = get_number_of_langs($languagestring); 401cdf0e10cSrcweir chomp(my $shorter = `echo $languagestring | md5sum | sed -e "s/ .*//g"`); 402cdf0e10cSrcweir # $languagestring = $shorter; 403cdf0e10cSrcweir my $id = substr($shorter, 0, 8); # taking only the first 8 digits 404cdf0e10cSrcweir $languagestring = "lang_" . $number_of_languages . "_id_" . $id; 405cdf0e10cSrcweir } 406cdf0e10cSrcweir 407cdf0e10cSrcweir $path = $path . $languagestring . $installer::globals::separator; 408cdf0e10cSrcweir create_directory($path); 409cdf0e10cSrcweir } 410cdf0e10cSrcweir } 411cdf0e10cSrcweir 412cdf0e10cSrcweir installer::remover::remove_ending_pathseparator(\$path); 413cdf0e10cSrcweir 414cdf0e10cSrcweir $path = installer::converter::make_path_conform($path); 415cdf0e10cSrcweir 416cdf0e10cSrcweir return $path; 417cdf0e10cSrcweir} 418cdf0e10cSrcweir 419cdf0e10cSrcweir######################## 420cdf0e10cSrcweir# Copying one file 421cdf0e10cSrcweir######################## 422cdf0e10cSrcweir 423cdf0e10cSrcweirsub copy_one_file 424cdf0e10cSrcweir{ 425cdf0e10cSrcweir my ($source, $dest) = @_; 426cdf0e10cSrcweir 427cdf0e10cSrcweir my ($returnvalue, $infoline); 428cdf0e10cSrcweir 429cdf0e10cSrcweir my $copyreturn = copy($source, $dest); 430cdf0e10cSrcweir 431cdf0e10cSrcweir if ($copyreturn) 432cdf0e10cSrcweir { 433cdf0e10cSrcweir $infoline = "Copy: $source to $dest\n"; 434cdf0e10cSrcweir $returnvalue = 1; 435cdf0e10cSrcweir } 436cdf0e10cSrcweir else 437cdf0e10cSrcweir { 438cdf0e10cSrcweir $infoline = "ERROR: Could not copy $source to $dest\n"; 439cdf0e10cSrcweir $returnvalue = 0; 440cdf0e10cSrcweir } 441cdf0e10cSrcweir 442cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 443cdf0e10cSrcweir 444cdf0e10cSrcweir if ( !$returnvalue ) { 445cdf0e10cSrcweir return $returnvalue; 446cdf0e10cSrcweir } 447cdf0e10cSrcweir 448cdf0e10cSrcweir # taking care of file attributes 449cdf0e10cSrcweir if ($installer::globals::iswin && -f $dest) { 450cdf0e10cSrcweir my $mode = -x $source ? 0775 : 0664; 451cdf0e10cSrcweir my $mode_str = sprintf("%o", $mode); 452cdf0e10cSrcweir my $chmodreturn = chmod($mode, $dest); 453cdf0e10cSrcweir if ($chmodreturn) 454cdf0e10cSrcweir { 455cdf0e10cSrcweir $infoline = "chmod $mode_str, $dest\n"; 456cdf0e10cSrcweir $returnvalue = 1; 457cdf0e10cSrcweir } 458cdf0e10cSrcweir else 459cdf0e10cSrcweir { 460cdf0e10cSrcweir $infoline = "WARNING: Could not chmod $dest: $!\n"; 461cdf0e10cSrcweir $returnvalue = 0; 462cdf0e10cSrcweir } 463cdf0e10cSrcweir 464cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 465cdf0e10cSrcweir } 466cdf0e10cSrcweir 467cdf0e10cSrcweir return $returnvalue; 468cdf0e10cSrcweir} 469cdf0e10cSrcweir 470cdf0e10cSrcweir########################## 471cdf0e10cSrcweir# Hard linking one file 472cdf0e10cSrcweir########################## 473cdf0e10cSrcweir 474cdf0e10cSrcweirsub hardlink_one_file 475cdf0e10cSrcweir{ 476cdf0e10cSrcweir my ($source, $dest) = @_; 477cdf0e10cSrcweir 478cdf0e10cSrcweir my ($returnvalue, $infoline); 479cdf0e10cSrcweir 480cdf0e10cSrcweir my $copyreturn = link($source, $dest); 481cdf0e10cSrcweir 482cdf0e10cSrcweir if ($copyreturn) 483cdf0e10cSrcweir { 484cdf0e10cSrcweir $infoline = "Link: $source to $dest\n"; 485cdf0e10cSrcweir $returnvalue = 1; 486cdf0e10cSrcweir } 487cdf0e10cSrcweir else 488cdf0e10cSrcweir { 489cdf0e10cSrcweir $infoline = "ERROR: Could not link $source to $dest\n"; 490cdf0e10cSrcweir $returnvalue = 0; 491cdf0e10cSrcweir } 492cdf0e10cSrcweir 493cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 494cdf0e10cSrcweir 495cdf0e10cSrcweir return $returnvalue; 496cdf0e10cSrcweir} 497cdf0e10cSrcweir 498cdf0e10cSrcweir########################## 499cdf0e10cSrcweir# Soft linking one file 500cdf0e10cSrcweir########################## 501cdf0e10cSrcweir 502cdf0e10cSrcweirsub softlink_one_file 503cdf0e10cSrcweir{ 504cdf0e10cSrcweir my ($source, $dest) = @_; 505cdf0e10cSrcweir 506cdf0e10cSrcweir my ($returnvalue, $infoline); 507cdf0e10cSrcweir 508cdf0e10cSrcweir my $linkreturn = symlink($source, $dest); 509cdf0e10cSrcweir 510cdf0e10cSrcweir if ($linkreturn) 511cdf0e10cSrcweir { 512cdf0e10cSrcweir $infoline = "Symlink: $source to $dest\n"; 513cdf0e10cSrcweir $returnvalue = 1; 514cdf0e10cSrcweir } 515cdf0e10cSrcweir else 516cdf0e10cSrcweir { 517cdf0e10cSrcweir $infoline = "ERROR: Could not symlink $source to $dest\n"; 518cdf0e10cSrcweir $returnvalue = 0; 519cdf0e10cSrcweir } 520cdf0e10cSrcweir 521cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 522cdf0e10cSrcweir 523cdf0e10cSrcweir return $returnvalue; 524cdf0e10cSrcweir} 525cdf0e10cSrcweir 526cdf0e10cSrcweir######################## 527cdf0e10cSrcweir# Renaming one file 528cdf0e10cSrcweir######################## 529cdf0e10cSrcweir 530cdf0e10cSrcweirsub rename_one_file 531cdf0e10cSrcweir{ 532cdf0e10cSrcweir my ($source, $dest) = @_; 533cdf0e10cSrcweir 534cdf0e10cSrcweir my ($returnvalue, $infoline); 535cdf0e10cSrcweir 536cdf0e10cSrcweir my $renamereturn = rename($source, $dest); 537cdf0e10cSrcweir 538cdf0e10cSrcweir if ($renamereturn) 539cdf0e10cSrcweir { 540cdf0e10cSrcweir $infoline = "Rename: $source to $dest\n"; 541cdf0e10cSrcweir $returnvalue = 1; 542cdf0e10cSrcweir } 543cdf0e10cSrcweir else 544cdf0e10cSrcweir { 545cdf0e10cSrcweir $infoline = "ERROR: Could not rename $source to $dest\n"; 546cdf0e10cSrcweir $returnvalue = 0; 547cdf0e10cSrcweir } 548cdf0e10cSrcweir 549cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 550cdf0e10cSrcweir 551cdf0e10cSrcweir return $returnvalue; 552cdf0e10cSrcweir} 553cdf0e10cSrcweir 554cdf0e10cSrcweir########################################## 555cdf0e10cSrcweir# Copying all files from one directory 556cdf0e10cSrcweir# to another directory 557cdf0e10cSrcweir########################################## 558cdf0e10cSrcweir 559cdf0e10cSrcweirsub copy_directory 560cdf0e10cSrcweir{ 561cdf0e10cSrcweir my ($sourcedir, $destdir) = @_; 562cdf0e10cSrcweir 563cdf0e10cSrcweir my @sourcefiles = (); 564cdf0e10cSrcweir 565cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 566cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 567cdf0e10cSrcweir 568cdf0e10cSrcweir my $infoline = "\n"; 569cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 570cdf0e10cSrcweir $infoline = "Copying files from directory $sourcedir to directory $destdir\n"; 571cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 572cdf0e10cSrcweir 573cdf0e10cSrcweir opendir(DIR, $sourcedir); 574cdf0e10cSrcweir @sourcefiles = readdir(DIR); 575cdf0e10cSrcweir closedir(DIR); 576cdf0e10cSrcweir 577cdf0e10cSrcweir my $onefile; 578cdf0e10cSrcweir 579cdf0e10cSrcweir foreach $onefile (@sourcefiles) 580cdf0e10cSrcweir { 581cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 582cdf0e10cSrcweir { 583cdf0e10cSrcweir my $sourcefile = $sourcedir . $installer::globals::separator . $onefile; 584cdf0e10cSrcweir my $destfile = $destdir . $installer::globals::separator . $onefile; 585cdf0e10cSrcweir if ( -f $sourcefile ) # only files, no directories 586cdf0e10cSrcweir { 587cdf0e10cSrcweir copy_one_file($sourcefile, $destfile); 588cdf0e10cSrcweir } 589cdf0e10cSrcweir } 590cdf0e10cSrcweir } 591cdf0e10cSrcweir} 592cdf0e10cSrcweir 593cdf0e10cSrcweir########################################## 594cdf0e10cSrcweir# Copying all files from one directory 595cdf0e10cSrcweir# to another directory 596cdf0e10cSrcweir########################################## 597cdf0e10cSrcweir 598cdf0e10cSrcweirsub is_empty_dir 599cdf0e10cSrcweir{ 600cdf0e10cSrcweir my ($dir) = @_; 601cdf0e10cSrcweir 602cdf0e10cSrcweir my $directory_is_empty = 1; 603cdf0e10cSrcweir my @sourcefiles = (); 604cdf0e10cSrcweir 605cdf0e10cSrcweir opendir(DIR, $dir); 606cdf0e10cSrcweir @sourcefiles = readdir(DIR); 607cdf0e10cSrcweir closedir(DIR); 608cdf0e10cSrcweir 609cdf0e10cSrcweir my $onefile; 610cdf0e10cSrcweir my @realcontent = (); 611cdf0e10cSrcweir 612cdf0e10cSrcweir foreach $onefile (@sourcefiles) 613cdf0e10cSrcweir { 614cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 615cdf0e10cSrcweir { 616cdf0e10cSrcweir push(@realcontent, $onefile); 617cdf0e10cSrcweir } 618cdf0e10cSrcweir } 619cdf0e10cSrcweir 620cdf0e10cSrcweir if ( $#realcontent > -1 ) { $directory_is_empty = 0; } 621cdf0e10cSrcweir 622cdf0e10cSrcweir return $directory_is_empty; 623cdf0e10cSrcweir} 624cdf0e10cSrcweir 625cdf0e10cSrcweir##################################################################### 626cdf0e10cSrcweir# Creating hard links to a complete directory with sub directories. 627cdf0e10cSrcweir##################################################################### 628cdf0e10cSrcweir 629cdf0e10cSrcweirsub hardlink_complete_directory 630cdf0e10cSrcweir{ 631cdf0e10cSrcweir my ($sourcedir, $destdir) = @_; 632cdf0e10cSrcweir 633cdf0e10cSrcweir my @sourcefiles = (); 634cdf0e10cSrcweir 635cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 636cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 637cdf0e10cSrcweir 638cdf0e10cSrcweir if ( ! -d $destdir ) { create_directory($destdir); } 639cdf0e10cSrcweir 640cdf0e10cSrcweir my $infoline = "\n"; 641cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 642cdf0e10cSrcweir $infoline = "Creating hard links for all files from directory $sourcedir to directory $destdir\n"; 643cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 644cdf0e10cSrcweir 645cdf0e10cSrcweir opendir(DIR, $sourcedir); 646cdf0e10cSrcweir @sourcefiles = readdir(DIR); 647cdf0e10cSrcweir closedir(DIR); 648cdf0e10cSrcweir 649cdf0e10cSrcweir my $onefile; 650cdf0e10cSrcweir 651cdf0e10cSrcweir foreach $onefile (@sourcefiles) 652cdf0e10cSrcweir { 653cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 654cdf0e10cSrcweir { 655cdf0e10cSrcweir my $source = $sourcedir . $installer::globals::separator . $onefile; 656cdf0e10cSrcweir my $dest = $destdir . $installer::globals::separator . $onefile; 657cdf0e10cSrcweir if ( -f $source ) # only files, no directories 658cdf0e10cSrcweir { 659cdf0e10cSrcweir hardlink_one_file($source, $dest); 660cdf0e10cSrcweir } 661cdf0e10cSrcweir if ( -d $source ) # recursive 662cdf0e10cSrcweir { 663cdf0e10cSrcweir hardlink_complete_directory($source, $dest); 664cdf0e10cSrcweir } 665cdf0e10cSrcweir } 666cdf0e10cSrcweir } 667cdf0e10cSrcweir} 668cdf0e10cSrcweir 669cdf0e10cSrcweir##################################################################### 670cdf0e10cSrcweir# Creating hard links to a complete directory with sub directories. 671cdf0e10cSrcweir##################################################################### 672cdf0e10cSrcweir 673cdf0e10cSrcweirsub softlink_complete_directory 674cdf0e10cSrcweir{ 675cdf0e10cSrcweir my ($sourcedir, $destdir, $depth) = @_; 676cdf0e10cSrcweir 677cdf0e10cSrcweir my @sourcefiles = (); 678cdf0e10cSrcweir 679cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 680cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 681cdf0e10cSrcweir 682cdf0e10cSrcweir if ( ! -d $destdir ) { create_directory($destdir); } 683cdf0e10cSrcweir 684cdf0e10cSrcweir my $infoline = "\n"; 685cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 686cdf0e10cSrcweir $infoline = "Creating soft links for all files from directory $sourcedir to directory $destdir\n"; 687cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 688cdf0e10cSrcweir 689cdf0e10cSrcweir opendir(DIR, $sourcedir); 690cdf0e10cSrcweir @sourcefiles = readdir(DIR); 691cdf0e10cSrcweir closedir(DIR); 692cdf0e10cSrcweir 693cdf0e10cSrcweir my $onefile; 694cdf0e10cSrcweir 695cdf0e10cSrcweir foreach $onefile (@sourcefiles) 696cdf0e10cSrcweir { 697cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 698cdf0e10cSrcweir { 699cdf0e10cSrcweir my $source = $sourcedir . $installer::globals::separator . $onefile; 700cdf0e10cSrcweir my $dest = $destdir . $installer::globals::separator . $onefile; 701cdf0e10cSrcweir if ( -f $source ) # only files, no directories 702cdf0e10cSrcweir { 703cdf0e10cSrcweir my $localsource = $source; 704cdf0e10cSrcweir if ( $depth > 0 ) { for ( my $i = 1; $i <= $depth; $i++ ) { $localsource = "../" . $localsource; } } 705cdf0e10cSrcweir softlink_one_file($localsource, $dest); 706cdf0e10cSrcweir } 707cdf0e10cSrcweir if ( -d $source ) # recursive 708cdf0e10cSrcweir { 709cdf0e10cSrcweir my $newdepth = $depth + 1; 710cdf0e10cSrcweir softlink_complete_directory($source, $dest, $newdepth); 711cdf0e10cSrcweir } 712cdf0e10cSrcweir } 713cdf0e10cSrcweir } 714cdf0e10cSrcweir} 715cdf0e10cSrcweir 716cdf0e10cSrcweir##################################################### 717cdf0e10cSrcweir# Copying a complete directory with sub directories. 718cdf0e10cSrcweir##################################################### 719cdf0e10cSrcweir 720cdf0e10cSrcweirsub copy_complete_directory 721cdf0e10cSrcweir{ 722cdf0e10cSrcweir my ($sourcedir, $destdir) = @_; 723cdf0e10cSrcweir 724cdf0e10cSrcweir my @sourcefiles = (); 725cdf0e10cSrcweir 726cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 727cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 728cdf0e10cSrcweir 729cdf0e10cSrcweir if ( ! -d $destdir ) { create_directory($destdir); } 730cdf0e10cSrcweir 731cdf0e10cSrcweir my $infoline = "\n"; 732cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 733cdf0e10cSrcweir $infoline = "Copying files from directory $sourcedir to directory $destdir\n"; 734cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 735cdf0e10cSrcweir 736cdf0e10cSrcweir opendir(DIR, $sourcedir); 737cdf0e10cSrcweir @sourcefiles = readdir(DIR); 738cdf0e10cSrcweir closedir(DIR); 739cdf0e10cSrcweir 740cdf0e10cSrcweir my $onefile; 741cdf0e10cSrcweir 742cdf0e10cSrcweir foreach $onefile (@sourcefiles) 743cdf0e10cSrcweir { 744cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 745cdf0e10cSrcweir { 746cdf0e10cSrcweir my $source = $sourcedir . $installer::globals::separator . $onefile; 747cdf0e10cSrcweir my $dest = $destdir . $installer::globals::separator . $onefile; 748cdf0e10cSrcweir if ( -f $source ) # only files, no directories 749cdf0e10cSrcweir { 750cdf0e10cSrcweir copy_one_file($source, $dest); 751cdf0e10cSrcweir } 752cdf0e10cSrcweir if ( -d $source ) # recursive 753cdf0e10cSrcweir { 754cdf0e10cSrcweir if ((!( $source =~ /packages\/SUNW/ )) && (!( $source =~ /packages\/OOO/ ))) # do not copy complete Solaris packages! 755cdf0e10cSrcweir { 756cdf0e10cSrcweir copy_complete_directory($source, $dest); 757cdf0e10cSrcweir } 758cdf0e10cSrcweir } 759cdf0e10cSrcweir } 760cdf0e10cSrcweir } 761cdf0e10cSrcweir} 762cdf0e10cSrcweir 763cdf0e10cSrcweir##################################################################################### 764cdf0e10cSrcweir# Copying a complete directory with sub directories, but not the CVS directories. 765cdf0e10cSrcweir##################################################################################### 766cdf0e10cSrcweir 767cdf0e10cSrcweirsub copy_complete_directory_without_cvs 768cdf0e10cSrcweir{ 769cdf0e10cSrcweir my ($sourcedir, $destdir) = @_; 770cdf0e10cSrcweir 771cdf0e10cSrcweir my @sourcefiles = (); 772cdf0e10cSrcweir 773cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 774cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 775cdf0e10cSrcweir 776cdf0e10cSrcweir if ( ! -d $destdir ) { create_directory($destdir); } 777cdf0e10cSrcweir 778cdf0e10cSrcweir my $infoline = "\n"; 779cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 780cdf0e10cSrcweir $infoline = "Copying files from directory $sourcedir to directory $destdir (without CVS)\n"; 781cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 782cdf0e10cSrcweir 783cdf0e10cSrcweir opendir(DIR, $sourcedir); 784cdf0e10cSrcweir @sourcefiles = readdir(DIR); 785cdf0e10cSrcweir closedir(DIR); 786cdf0e10cSrcweir 787cdf0e10cSrcweir my $onefile; 788cdf0e10cSrcweir 789cdf0e10cSrcweir foreach $onefile (@sourcefiles) 790cdf0e10cSrcweir { 791cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq "..")) && (!($onefile eq "CVS"))) 792cdf0e10cSrcweir { 793cdf0e10cSrcweir my $source = $sourcedir . $installer::globals::separator . $onefile; 794cdf0e10cSrcweir my $dest = $destdir . $installer::globals::separator . $onefile; 795cdf0e10cSrcweir if ( -f $source ) # only files, no directories 796cdf0e10cSrcweir { 797cdf0e10cSrcweir copy_one_file($source, $dest); 798cdf0e10cSrcweir } 799cdf0e10cSrcweir if ( -d $source ) # recursive 800cdf0e10cSrcweir { 801cdf0e10cSrcweir copy_complete_directory_without_cvs($source, $dest); 802cdf0e10cSrcweir } 803cdf0e10cSrcweir } 804cdf0e10cSrcweir } 805cdf0e10cSrcweir} 806cdf0e10cSrcweir 807cdf0e10cSrcweir##################################################### 808cdf0e10cSrcweir# Copying all files with a specified file extension 809cdf0e10cSrcweir# from one directory to another directory. 810cdf0e10cSrcweir##################################################### 811cdf0e10cSrcweir 812cdf0e10cSrcweirsub copy_directory_with_fileextension 813cdf0e10cSrcweir{ 814cdf0e10cSrcweir my ($sourcedir, $destdir, $extension) = @_; 815cdf0e10cSrcweir 816cdf0e10cSrcweir my @sourcefiles = (); 817cdf0e10cSrcweir 818cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 819cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 820cdf0e10cSrcweir 821cdf0e10cSrcweir $infoline = "\n"; 822cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 823cdf0e10cSrcweir $infoline = "Copying files with extension $extension from directory $sourcedir to directory $destdir\n"; 824cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 825cdf0e10cSrcweir 826cdf0e10cSrcweir opendir(DIR, $sourcedir); 827cdf0e10cSrcweir @sourcefiles = readdir(DIR); 828cdf0e10cSrcweir closedir(DIR); 829cdf0e10cSrcweir 830cdf0e10cSrcweir my $onefile; 831cdf0e10cSrcweir 832cdf0e10cSrcweir foreach $onefile (@sourcefiles) 833cdf0e10cSrcweir { 834cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 835cdf0e10cSrcweir { 836cdf0e10cSrcweir if ( $onefile =~ /\.$extension\s*$/ ) # only copying specified files 837cdf0e10cSrcweir { 838cdf0e10cSrcweir my $sourcefile = $sourcedir . $installer::globals::separator . $onefile; 839cdf0e10cSrcweir my $destfile = $destdir . $installer::globals::separator . $onefile; 840cdf0e10cSrcweir if ( -f $sourcefile ) # only files, no directories 841cdf0e10cSrcweir { 842cdf0e10cSrcweir copy_one_file($sourcefile, $destfile); 843cdf0e10cSrcweir } 844cdf0e10cSrcweir } 845cdf0e10cSrcweir } 846cdf0e10cSrcweir } 847cdf0e10cSrcweir} 848cdf0e10cSrcweir 849cdf0e10cSrcweir######################################################### 850cdf0e10cSrcweir# Copying all files without a specified file extension 851cdf0e10cSrcweir# from one directory to another directory. 852cdf0e10cSrcweir######################################################### 853cdf0e10cSrcweir 854cdf0e10cSrcweirsub copy_directory_except_fileextension 855cdf0e10cSrcweir{ 856cdf0e10cSrcweir my ($sourcedir, $destdir, $extension) = @_; 857cdf0e10cSrcweir 858cdf0e10cSrcweir my @sourcefiles = (); 859cdf0e10cSrcweir 860cdf0e10cSrcweir $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; 861cdf0e10cSrcweir $destdir =~ s/\Q$installer::globals::separator\E\s*$//; 862cdf0e10cSrcweir 863cdf0e10cSrcweir $infoline = "\n"; 864cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 865cdf0e10cSrcweir $infoline = "Copying files without extension $extension from directory $sourcedir to directory $destdir\n"; 866cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 867cdf0e10cSrcweir 868cdf0e10cSrcweir opendir(DIR, $sourcedir); 869cdf0e10cSrcweir @sourcefiles = readdir(DIR); 870cdf0e10cSrcweir closedir(DIR); 871cdf0e10cSrcweir 872cdf0e10cSrcweir my $onefile; 873cdf0e10cSrcweir 874cdf0e10cSrcweir foreach $onefile (@sourcefiles) 875cdf0e10cSrcweir { 876cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 877cdf0e10cSrcweir { 878cdf0e10cSrcweir if ( ! ( $onefile =~ /\.$extension\s*$/ )) # only copying not having the specified extension 879cdf0e10cSrcweir { 880cdf0e10cSrcweir my $sourcefile = $sourcedir . $installer::globals::separator . $onefile; 881cdf0e10cSrcweir my $destfile = $destdir . $installer::globals::separator . $onefile; 882cdf0e10cSrcweir if ( -f $sourcefile ) # only files, no directories 883cdf0e10cSrcweir { 884cdf0e10cSrcweir copy_one_file($sourcefile, $destfile); 885cdf0e10cSrcweir } 886cdf0e10cSrcweir } 887cdf0e10cSrcweir } 888cdf0e10cSrcweir } 889cdf0e10cSrcweir} 890cdf0e10cSrcweir 891cdf0e10cSrcweir######################################################## 892cdf0e10cSrcweir# Renaming all files with a specified file extension 893cdf0e10cSrcweir# in a specified directory. 894cdf0e10cSrcweir# Example: "Feature.idt.01" -> "Feature.idt" 895cdf0e10cSrcweir######################################################## 896cdf0e10cSrcweir 897cdf0e10cSrcweirsub rename_files_with_fileextension 898cdf0e10cSrcweir{ 899cdf0e10cSrcweir my ($dir, $extension) = @_; 900cdf0e10cSrcweir 901cdf0e10cSrcweir my @sourcefiles = (); 902cdf0e10cSrcweir 903cdf0e10cSrcweir $dir =~ s/\Q$installer::globals::separator\E\s*$//; 904cdf0e10cSrcweir 905cdf0e10cSrcweir my $infoline = "\n"; 906cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 907cdf0e10cSrcweir $infoline = "Renaming files with extension \"$extension\" in the directory $dir\n"; 908cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 909cdf0e10cSrcweir 910cdf0e10cSrcweir opendir(DIR, $dir); 911cdf0e10cSrcweir @sourcefiles = readdir(DIR); 912cdf0e10cSrcweir closedir(DIR); 913cdf0e10cSrcweir 914cdf0e10cSrcweir my $onefile; 915cdf0e10cSrcweir 916cdf0e10cSrcweir foreach $onefile (@sourcefiles) 917cdf0e10cSrcweir { 918cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 919cdf0e10cSrcweir { 920cdf0e10cSrcweir if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ ) # only renaming specified files 921cdf0e10cSrcweir { 922cdf0e10cSrcweir my $destfile = $1; 923cdf0e10cSrcweir my $sourcefile = $dir . $installer::globals::separator . $onefile; 924cdf0e10cSrcweir $destfile = $dir . $installer::globals::separator . $destfile; 925cdf0e10cSrcweir if ( -f $sourcefile ) # only files, no directories 926cdf0e10cSrcweir { 927cdf0e10cSrcweir rename_one_file($sourcefile, $destfile); 928cdf0e10cSrcweir } 929cdf0e10cSrcweir } 930cdf0e10cSrcweir } 931cdf0e10cSrcweir } 932cdf0e10cSrcweir} 933cdf0e10cSrcweir 934cdf0e10cSrcweir######################################################## 935cdf0e10cSrcweir# Finding all files with a specified file extension 936cdf0e10cSrcweir# in a specified directory. 937cdf0e10cSrcweir######################################################## 938cdf0e10cSrcweir 939cdf0e10cSrcweirsub find_file_with_file_extension 940cdf0e10cSrcweir{ 941cdf0e10cSrcweir my ($extension, $dir) = @_; 942cdf0e10cSrcweir 943cdf0e10cSrcweir my @allfiles = (); 944cdf0e10cSrcweir 945cdf0e10cSrcweir $dir =~ s/\Q$installer::globals::separator\E\s*$//; 946cdf0e10cSrcweir 947cdf0e10cSrcweir my $infoline = "\n"; 948cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 949cdf0e10cSrcweir $infoline = "Searching files with extension \"$extension\" in the directory $dir\n"; 950cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 951cdf0e10cSrcweir 952cdf0e10cSrcweir opendir(DIR, $dir); 953cdf0e10cSrcweir @sourcefiles = sort readdir(DIR); 954cdf0e10cSrcweir closedir(DIR); 955cdf0e10cSrcweir 956cdf0e10cSrcweir my $onefile; 957cdf0e10cSrcweir 958cdf0e10cSrcweir foreach $onefile (@sourcefiles) 959cdf0e10cSrcweir { 960cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 961cdf0e10cSrcweir { 962cdf0e10cSrcweir if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ ) 963cdf0e10cSrcweir { 964cdf0e10cSrcweir push(@allfiles, $onefile) 965cdf0e10cSrcweir } 966cdf0e10cSrcweir } 967cdf0e10cSrcweir } 968cdf0e10cSrcweir 969cdf0e10cSrcweir return \@allfiles; 970cdf0e10cSrcweir} 971cdf0e10cSrcweir 972cdf0e10cSrcweir############################################################## 973cdf0e10cSrcweir# Creating a unique directory, for example "01_inprogress_7" 974cdf0e10cSrcweir# in the install directory. 975cdf0e10cSrcweir############################################################## 976cdf0e10cSrcweir 977cdf0e10cSrcweirsub make_numbered_dir 978cdf0e10cSrcweir{ 979cdf0e10cSrcweir my ($newstring, $olddir) = @_; 980cdf0e10cSrcweir 981cdf0e10cSrcweir my $basedir = $olddir; 982cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir); 983cdf0e10cSrcweir 984cdf0e10cSrcweir my $alldirs = get_all_directories($basedir); 985cdf0e10cSrcweir 986cdf0e10cSrcweir # searching for the highest number extension 987cdf0e10cSrcweir 988cdf0e10cSrcweir my $maxnumber = 0; 989cdf0e10cSrcweir 990cdf0e10cSrcweir for ( my $i = 0; $i <= $#{$alldirs}; $i++ ) 991cdf0e10cSrcweir { 992cdf0e10cSrcweir if ( ${$alldirs}[$i] =~ /\_(\d+)\s*$/ ) 993cdf0e10cSrcweir { 994cdf0e10cSrcweir my $number = $1; 995cdf0e10cSrcweir if ( $number > $maxnumber ) { $maxnumber = $number; } 996cdf0e10cSrcweir } 997cdf0e10cSrcweir } 998cdf0e10cSrcweir 999cdf0e10cSrcweir my $newnumber = $maxnumber + 1; 1000cdf0e10cSrcweir 1001cdf0e10cSrcweir my $newdir = $olddir . "_" . $newstring . "_" . $newnumber; 1002cdf0e10cSrcweir 1003cdf0e10cSrcweir my $returndir = ""; 1004cdf0e10cSrcweir 1005cdf0e10cSrcweir if ( move($olddir, $newdir) ) 1006cdf0e10cSrcweir { 1007cdf0e10cSrcweir $infoline = "\nMoved directory from $olddir to $newdir\n"; 1008cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1009cdf0e10cSrcweir $returndir = $newdir; 1010cdf0e10cSrcweir } 1011cdf0e10cSrcweir else 1012cdf0e10cSrcweir { 1013cdf0e10cSrcweir $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"make_numbered_dir\"\n"; 1014cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1015cdf0e10cSrcweir $returndir = $olddir; 1016cdf0e10cSrcweir } 1017cdf0e10cSrcweir 1018cdf0e10cSrcweir return $returndir; 1019cdf0e10cSrcweir} 1020cdf0e10cSrcweir 1021cdf0e10cSrcweir############################################################## 1022cdf0e10cSrcweir# Determining the highest number in the install directory. 1023cdf0e10cSrcweir############################################################## 1024cdf0e10cSrcweir 1025cdf0e10cSrcweirsub determine_maximum_number 1026cdf0e10cSrcweir{ 1027cdf0e10cSrcweir my ($dir, $languagestringref) = @_; 1028cdf0e10cSrcweir 1029cdf0e10cSrcweir my $basedir = $dir; 1030cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir); 1031cdf0e10cSrcweir 1032cdf0e10cSrcweir my $alldirs = get_all_directories($basedir); 1033cdf0e10cSrcweir 1034cdf0e10cSrcweir my $maxnumber = 1; 1035cdf0e10cSrcweir 1036cdf0e10cSrcweir # In control.pm the installation directory is determined as: 1037cdf0e10cSrcweir # $installer::globals::build . "_" . $installer::globals::lastminor . "_" . 1038cdf0e10cSrcweir # "native_inprogress-number_" . $$languagesref . "\." . $installer::globals::buildid; 1039cdf0e10cSrcweir 1040cdf0e10cSrcweir # searching for the highest number extension after the first "-", which belongs to 1041cdf0e10cSrcweir # $installer::globals::build, $installer::globals::lastminor and $installer::globals::buildid 1042cdf0e10cSrcweir # In this step not looking for the language! 1043cdf0e10cSrcweir 1044cdf0e10cSrcweir my @correctbuildiddirs = (); 1045cdf0e10cSrcweir 1046cdf0e10cSrcweir for ( my $i = 0; $i <= $#{$alldirs}; $i++ ) 1047cdf0e10cSrcweir { 1048cdf0e10cSrcweir my $onedir = ${$alldirs}[$i]; 1049cdf0e10cSrcweir installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$onedir); 1050cdf0e10cSrcweir 1051cdf0e10cSrcweir if ( $onedir =~ /^\s*\Q$installer::globals::build\E\_\Q$installer::globals::lastminor\E\_(.*?)\-(\d+)\_(.*?)\.\Q$installer::globals::buildid\E\s*$/ ) 1052cdf0e10cSrcweir { 1053cdf0e10cSrcweir my $number = $2; 1054cdf0e10cSrcweir if ( $number > $maxnumber ) { $maxnumber = $number; } 1055cdf0e10cSrcweir push(@correctbuildiddirs, $onedir); 1056cdf0e10cSrcweir } 1057cdf0e10cSrcweir } 1058cdf0e10cSrcweir 1059cdf0e10cSrcweir # From all directories with correct $installer::globals::build, $installer::globals::lastminor 1060cdf0e10cSrcweir # and $installer::globals::buildid, those directories, which already have the maximum number 1061cdf0e10cSrcweir # have to be selected 1062cdf0e10cSrcweir 1063cdf0e10cSrcweir my @maximumnumberdirs = (); 1064cdf0e10cSrcweir 1065cdf0e10cSrcweir for ( my $i = 0; $i <= $#correctbuildiddirs; $i++ ) 1066cdf0e10cSrcweir { 1067cdf0e10cSrcweir my $onedir = $correctbuildiddirs[$i]; 1068cdf0e10cSrcweir 1069cdf0e10cSrcweir if ( $onedir =~ /^\s*(.*?)\-(\d+)\_(.*?)\.(.*?)\s*$/ ) 1070cdf0e10cSrcweir { 1071cdf0e10cSrcweir my $number = $2; 1072cdf0e10cSrcweir 1073cdf0e10cSrcweir if ( $number == $maxnumber ) 1074cdf0e10cSrcweir { 1075cdf0e10cSrcweir push(@maximumnumberdirs, $onedir); 1076cdf0e10cSrcweir } 1077cdf0e10cSrcweir } 1078cdf0e10cSrcweir } 1079cdf0e10cSrcweir 1080cdf0e10cSrcweir # @maximumnumberdirs contains only those directories with correct $installer::globals::build, 1081cdf0e10cSrcweir # $installer::globals::lastminor and $installer::globals::buildid, which already have the maximum number. 1082cdf0e10cSrcweir # If the current language is part of this directory, the number has to be increased. 1083cdf0e10cSrcweir 1084cdf0e10cSrcweir my $increase_counter = 0; 1085cdf0e10cSrcweir 1086cdf0e10cSrcweir for ( my $i = 0; $i <= $#maximumnumberdirs; $i++ ) 1087cdf0e10cSrcweir { 1088cdf0e10cSrcweir my $onedir = $maximumnumberdirs[$i]; 1089cdf0e10cSrcweir 1090cdf0e10cSrcweir if ( $onedir =~ /^\s*(.*?)\-(\d+)\_(.*?)\.(.*?)\s*$/ ) 1091cdf0e10cSrcweir { 1092cdf0e10cSrcweir my $number = $2; 1093cdf0e10cSrcweir my $languagestring = $3; 1094cdf0e10cSrcweir 1095cdf0e10cSrcweir if ( $languagestring eq $$languagestringref ) 1096cdf0e10cSrcweir { 1097cdf0e10cSrcweir $increase_counter = 1; 1098cdf0e10cSrcweir } 1099cdf0e10cSrcweir } 1100cdf0e10cSrcweir } 1101cdf0e10cSrcweir 1102cdf0e10cSrcweir if ( $increase_counter ) 1103cdf0e10cSrcweir { 1104cdf0e10cSrcweir $maxnumber = $maxnumber + 1; 1105cdf0e10cSrcweir } 1106cdf0e10cSrcweir 1107cdf0e10cSrcweir return $maxnumber; 1108cdf0e10cSrcweir} 1109cdf0e10cSrcweir 1110cdf0e10cSrcweir##################################################################################### 1111cdf0e10cSrcweir# Renaming a directory by exchanging a string, for example from "01_inprogress_7" 1112cdf0e10cSrcweir# to "01_witherror_7". 1113cdf0e10cSrcweir##################################################################################### 1114cdf0e10cSrcweir 1115cdf0e10cSrcweirsub rename_string_in_directory 1116cdf0e10cSrcweir{ 1117cdf0e10cSrcweir my ($olddir, $oldstring, $newstring) = @_; 1118cdf0e10cSrcweir 1119cdf0e10cSrcweir my $newdir = $olddir; 1120cdf0e10cSrcweir my $infoline = ""; 1121cdf0e10cSrcweir 1122cdf0e10cSrcweir $newdir =~ s/$oldstring/$newstring/g; 1123cdf0e10cSrcweir 1124cdf0e10cSrcweir if (( -d $newdir ) && ( $olddir ne $newdir )) { remove_complete_directory($newdir, 1); } 1125cdf0e10cSrcweir 1126cdf0e10cSrcweir if ( move($olddir, $newdir) ) 1127cdf0e10cSrcweir { 1128cdf0e10cSrcweir $infoline = "\nMoved directory from $olddir to $newdir\n"; 1129cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1130cdf0e10cSrcweir } 1131cdf0e10cSrcweir else 1132cdf0e10cSrcweir { 1133cdf0e10cSrcweir $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"rename_string_in_directory\"\n"; 1134cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1135cdf0e10cSrcweir } 1136cdf0e10cSrcweir 1137cdf0e10cSrcweir return $newdir; 1138cdf0e10cSrcweir} 1139cdf0e10cSrcweir 1140cdf0e10cSrcweir###################################################### 1141cdf0e10cSrcweir# Returning the complete directory name, 1142cdf0e10cSrcweir# input is the first part of the directory name. 1143cdf0e10cSrcweir###################################################### 1144cdf0e10cSrcweir 1145cdf0e10cSrcweirsub get_directoryname 1146cdf0e10cSrcweir{ 1147cdf0e10cSrcweir my ($searchdir, $startstring) = @_; 1148cdf0e10cSrcweir 1149cdf0e10cSrcweir my $dirname = ""; 1150cdf0e10cSrcweir my $founddir = 0; 1151cdf0e10cSrcweir my $direntry; 1152cdf0e10cSrcweir 1153cdf0e10cSrcweir opendir(DIR, $searchdir); 1154cdf0e10cSrcweir 1155cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1156cdf0e10cSrcweir { 1157cdf0e10cSrcweir next if $direntry eq "."; 1158cdf0e10cSrcweir next if $direntry eq ".."; 1159cdf0e10cSrcweir 1160cdf0e10cSrcweir if (( -d $direntry ) && ( $direntry =~ /^\s*\Q$startstring\E/ )) 1161cdf0e10cSrcweir { 1162cdf0e10cSrcweir $dirname = $direntry; 1163cdf0e10cSrcweir $founddir = 1; 1164cdf0e10cSrcweir last; 1165cdf0e10cSrcweir } 1166cdf0e10cSrcweir } 1167cdf0e10cSrcweir 1168cdf0e10cSrcweir closedir(DIR); 1169cdf0e10cSrcweir 1170cdf0e10cSrcweir if ( ! $founddir ) { installer::exiter::exit_program("ERROR: Did not find directory beginning with $startstring in directory $searchdir", "get_directoryname"); } 1171cdf0e10cSrcweir 1172cdf0e10cSrcweir return $dirname; 1173cdf0e10cSrcweir} 1174cdf0e10cSrcweir 1175cdf0e10cSrcweir 1176cdf0e10cSrcweir################################### 1177cdf0e10cSrcweir# Renaming a directory 1178cdf0e10cSrcweir################################### 1179cdf0e10cSrcweir 1180cdf0e10cSrcweirsub rename_directory 1181cdf0e10cSrcweir{ 1182cdf0e10cSrcweir my ($olddir, $newdir) = @_; 1183cdf0e10cSrcweir 1184cdf0e10cSrcweir my $infoline = ""; 1185cdf0e10cSrcweir 1186cdf0e10cSrcweir if ( move($olddir, $newdir) ) 1187cdf0e10cSrcweir { 1188cdf0e10cSrcweir $infoline = "\nMoved directory from $olddir to $newdir\n"; 1189cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1190cdf0e10cSrcweir } 1191cdf0e10cSrcweir else 1192cdf0e10cSrcweir { 1193cdf0e10cSrcweir installer::exiter::exit_program("ERROR: Could not move directory from $olddir to $newdir", "rename_directory"); 1194cdf0e10cSrcweir # $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"rename_directory\"\n"; 1195cdf0e10cSrcweir # push(@installer::globals::logfileinfo, $infoline); 1196cdf0e10cSrcweir } 1197cdf0e10cSrcweir 1198cdf0e10cSrcweir return $newdir; 1199cdf0e10cSrcweir} 1200cdf0e10cSrcweir 1201cdf0e10cSrcweir############################################################## 1202cdf0e10cSrcweir# Creating a directory next to an existing directory 1203cdf0e10cSrcweir############################################################## 1204cdf0e10cSrcweir 1205cdf0e10cSrcweirsub create_directory_next_to_directory 1206cdf0e10cSrcweir{ 1207cdf0e10cSrcweir my ($topdir, $dirname) = @_; 1208cdf0e10cSrcweir 1209cdf0e10cSrcweir my $basedir = $topdir; 1210cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir); 1211cdf0e10cSrcweir 1212cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1213cdf0e10cSrcweir 1214cdf0e10cSrcweir my $newdir = $basedir . $installer::globals::separator . $dirname; 1215cdf0e10cSrcweir 1216cdf0e10cSrcweir create_directory($newdir); 1217cdf0e10cSrcweir 1218cdf0e10cSrcweir return $newdir; 1219cdf0e10cSrcweir} 1220cdf0e10cSrcweir 1221cdf0e10cSrcweir############################################################## 1222cdf0e10cSrcweir# Collecting all directories inside a directory 1223cdf0e10cSrcweir############################################################## 1224cdf0e10cSrcweir 1225cdf0e10cSrcweirsub get_all_directories 1226cdf0e10cSrcweir{ 1227cdf0e10cSrcweir my ($basedir) = @_; 1228cdf0e10cSrcweir 1229cdf0e10cSrcweir my @alldirs = (); 1230cdf0e10cSrcweir my $direntry; 1231cdf0e10cSrcweir 1232cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1233cdf0e10cSrcweir 1234cdf0e10cSrcweir opendir(DIR, $basedir); 1235cdf0e10cSrcweir 1236cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1237cdf0e10cSrcweir { 1238cdf0e10cSrcweir next if $direntry eq "."; 1239cdf0e10cSrcweir next if $direntry eq ".."; 1240cdf0e10cSrcweir 1241cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1242cdf0e10cSrcweir 1243cdf0e10cSrcweir if ( -d $completeentry ) { push(@alldirs, $completeentry); } 1244cdf0e10cSrcweir } 1245cdf0e10cSrcweir 1246cdf0e10cSrcweir closedir(DIR); 1247cdf0e10cSrcweir 1248cdf0e10cSrcweir return \@alldirs; 1249cdf0e10cSrcweir} 1250cdf0e10cSrcweir 1251cdf0e10cSrcweir############################################################## 1252cdf0e10cSrcweir# Collecting all directories inside a directory 1253cdf0e10cSrcweir# Returning without path 1254cdf0e10cSrcweir############################################################## 1255cdf0e10cSrcweir 1256cdf0e10cSrcweirsub get_all_directories_without_path 1257cdf0e10cSrcweir{ 1258cdf0e10cSrcweir my ($basedir) = @_; 1259cdf0e10cSrcweir 1260cdf0e10cSrcweir my @alldirs = (); 1261cdf0e10cSrcweir my $direntry; 1262cdf0e10cSrcweir 1263cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1264cdf0e10cSrcweir 1265cdf0e10cSrcweir opendir(DIR, $basedir); 1266cdf0e10cSrcweir 1267cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1268cdf0e10cSrcweir { 1269cdf0e10cSrcweir next if $direntry eq "."; 1270cdf0e10cSrcweir next if $direntry eq ".."; 1271cdf0e10cSrcweir 1272cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1273cdf0e10cSrcweir 1274cdf0e10cSrcweir if ( -d $completeentry ) { push(@alldirs, $direntry); } 1275cdf0e10cSrcweir } 1276cdf0e10cSrcweir 1277cdf0e10cSrcweir closedir(DIR); 1278cdf0e10cSrcweir 1279cdf0e10cSrcweir return \@alldirs; 1280cdf0e10cSrcweir} 1281cdf0e10cSrcweir 1282cdf0e10cSrcweir############################################################## 1283cdf0e10cSrcweir# Collecting all files inside one directory 1284cdf0e10cSrcweir############################################################## 1285cdf0e10cSrcweir 1286cdf0e10cSrcweirsub get_all_files_from_one_directory 1287cdf0e10cSrcweir{ 1288cdf0e10cSrcweir my ($basedir) = @_; 1289cdf0e10cSrcweir 1290cdf0e10cSrcweir my @allfiles = (); 1291cdf0e10cSrcweir my $direntry; 1292cdf0e10cSrcweir 1293cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1294cdf0e10cSrcweir 1295cdf0e10cSrcweir opendir(DIR, $basedir); 1296cdf0e10cSrcweir 1297cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1298cdf0e10cSrcweir { 1299cdf0e10cSrcweir next if $direntry eq "."; 1300cdf0e10cSrcweir next if $direntry eq ".."; 1301cdf0e10cSrcweir 1302cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1303cdf0e10cSrcweir 1304cdf0e10cSrcweir if ( -f $completeentry ) { push(@allfiles, $completeentry); } 1305cdf0e10cSrcweir } 1306cdf0e10cSrcweir 1307cdf0e10cSrcweir closedir(DIR); 1308cdf0e10cSrcweir 1309cdf0e10cSrcweir return \@allfiles; 1310cdf0e10cSrcweir} 1311cdf0e10cSrcweir 1312cdf0e10cSrcweir############################################################## 1313cdf0e10cSrcweir# Collecting all files inside one directory 1314cdf0e10cSrcweir############################################################## 1315cdf0e10cSrcweir 1316cdf0e10cSrcweirsub get_all_files_from_one_directory_without_path 1317cdf0e10cSrcweir{ 1318cdf0e10cSrcweir my ($basedir) = @_; 1319cdf0e10cSrcweir 1320cdf0e10cSrcweir my @allfiles = (); 1321cdf0e10cSrcweir my $direntry; 1322cdf0e10cSrcweir 1323cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1324cdf0e10cSrcweir 1325cdf0e10cSrcweir opendir(DIR, $basedir); 1326cdf0e10cSrcweir 1327cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1328cdf0e10cSrcweir { 1329cdf0e10cSrcweir next if $direntry eq "."; 1330cdf0e10cSrcweir next if $direntry eq ".."; 1331cdf0e10cSrcweir 1332cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1333cdf0e10cSrcweir 1334cdf0e10cSrcweir if ( -f $completeentry ) { push(@allfiles, $direntry); } 1335cdf0e10cSrcweir } 1336cdf0e10cSrcweir 1337cdf0e10cSrcweir closedir(DIR); 1338cdf0e10cSrcweir 1339cdf0e10cSrcweir return \@allfiles; 1340cdf0e10cSrcweir} 1341cdf0e10cSrcweir 1342cdf0e10cSrcweir############################################################## 1343cdf0e10cSrcweir# Collecting all files and directories inside one directory 1344cdf0e10cSrcweir############################################################## 1345cdf0e10cSrcweir 1346cdf0e10cSrcweirsub read_directory 1347cdf0e10cSrcweir{ 1348cdf0e10cSrcweir my ($basedir) = @_; 1349cdf0e10cSrcweir 1350cdf0e10cSrcweir my @allcontent = (); 1351cdf0e10cSrcweir my $direntry; 1352cdf0e10cSrcweir 1353cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1354cdf0e10cSrcweir 1355cdf0e10cSrcweir opendir(DIR, $basedir); 1356cdf0e10cSrcweir 1357cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1358cdf0e10cSrcweir { 1359cdf0e10cSrcweir next if $direntry eq "."; 1360cdf0e10cSrcweir next if $direntry eq ".."; 1361cdf0e10cSrcweir 1362cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1363cdf0e10cSrcweir 1364cdf0e10cSrcweir if (( -f $completeentry ) || ( -d $completeentry )) { push(@allcontent, $completeentry); } 1365cdf0e10cSrcweir } 1366cdf0e10cSrcweir 1367cdf0e10cSrcweir closedir(DIR); 1368cdf0e10cSrcweir 1369cdf0e10cSrcweir return \@allcontent; 1370cdf0e10cSrcweir} 1371cdf0e10cSrcweir 1372cdf0e10cSrcweir############################################################## 1373cdf0e10cSrcweir# Finding the new content in a directory 1374cdf0e10cSrcweir############################################################## 1375cdf0e10cSrcweir 1376cdf0e10cSrcweirsub find_new_content_in_directory 1377cdf0e10cSrcweir{ 1378cdf0e10cSrcweir my ( $basedir, $oldcontent ) = @_; 1379cdf0e10cSrcweir 1380cdf0e10cSrcweir my @newcontent = (); 1381cdf0e10cSrcweir my @allcontent = (); 1382cdf0e10cSrcweir 1383cdf0e10cSrcweir my $direntry; 1384cdf0e10cSrcweir 1385cdf0e10cSrcweir $basedir =~ s/\Q$installer::globals::separator\E\s*$//; 1386cdf0e10cSrcweir 1387cdf0e10cSrcweir opendir(DIR, $basedir); 1388cdf0e10cSrcweir 1389cdf0e10cSrcweir foreach $direntry (readdir (DIR)) 1390cdf0e10cSrcweir { 1391cdf0e10cSrcweir next if $direntry eq "."; 1392cdf0e10cSrcweir next if $direntry eq ".."; 1393cdf0e10cSrcweir 1394cdf0e10cSrcweir my $completeentry = $basedir . $installer::globals::separator . $direntry; 1395cdf0e10cSrcweir 1396cdf0e10cSrcweir if (( -f $completeentry ) || ( -d $completeentry )) 1397cdf0e10cSrcweir { 1398cdf0e10cSrcweir push(@allcontent, $completeentry); 1399cdf0e10cSrcweir if (! installer::existence::exists_in_array($completeentry, $oldcontent)) 1400cdf0e10cSrcweir { 1401cdf0e10cSrcweir push(@newcontent, $completeentry); 1402cdf0e10cSrcweir } 1403cdf0e10cSrcweir } 1404cdf0e10cSrcweir } 1405cdf0e10cSrcweir 1406cdf0e10cSrcweir closedir(DIR); 1407cdf0e10cSrcweir 1408cdf0e10cSrcweir return (\@newcontent, \@allcontent); 1409cdf0e10cSrcweir} 1410cdf0e10cSrcweir 1411cdf0e10cSrcweir############################################################## 1412cdf0e10cSrcweir# Trying to create a directory, no error if this fails 1413cdf0e10cSrcweir############################################################## 1414cdf0e10cSrcweir 1415cdf0e10cSrcweirsub try_to_create_directory 1416cdf0e10cSrcweir{ 1417cdf0e10cSrcweir my ($directory) = @_; 1418cdf0e10cSrcweir 1419cdf0e10cSrcweir my $returnvalue = 1; 1420cdf0e10cSrcweir my $created_directory = 0; 1421cdf0e10cSrcweir 1422cdf0e10cSrcweir if (!(-d $directory)) 1423cdf0e10cSrcweir { 1424cdf0e10cSrcweir $returnvalue = mkdir($directory, 0775); 1425cdf0e10cSrcweir 1426cdf0e10cSrcweir if ($returnvalue) 1427cdf0e10cSrcweir { 1428cdf0e10cSrcweir $created_directory = 1; 1429cdf0e10cSrcweir $infoline = "\nCreated directory: $directory\n"; 1430cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1431cdf0e10cSrcweir 1432cdf0e10cSrcweir my $localcall = "chmod 0775 $directory \>\/dev\/null 2\>\&1"; 1433cdf0e10cSrcweir system($localcall); 1434cdf0e10cSrcweir 1435cdf0e10cSrcweir # chmod 0775 is not sufficient on mac to remove sticky tag 1436cdf0e10cSrcweir $localcall = "chmod a-s $directory \>\/dev\/null 2\>\&1"; 1437cdf0e10cSrcweir system($localcall); 1438cdf0e10cSrcweir } 1439cdf0e10cSrcweir else 1440cdf0e10cSrcweir { 1441cdf0e10cSrcweir $created_directory = 0; 1442cdf0e10cSrcweir } 1443cdf0e10cSrcweir } 1444cdf0e10cSrcweir else 1445cdf0e10cSrcweir { 1446cdf0e10cSrcweir $created_directory = 1; 1447cdf0e10cSrcweir } 1448cdf0e10cSrcweir 1449cdf0e10cSrcweir return $created_directory; 1450cdf0e10cSrcweir} 1451cdf0e10cSrcweir 1452cdf0e10cSrcweir############################################################## 1453cdf0e10cSrcweir# Creating a complete directory structure 1454cdf0e10cSrcweir############################################################## 1455cdf0e10cSrcweir 1456cdf0e10cSrcweirsub create_directory_structure 1457cdf0e10cSrcweir{ 1458cdf0e10cSrcweir my ($directory) = @_; 1459cdf0e10cSrcweir 1460cdf0e10cSrcweir if ( ! try_to_create_directory($directory) ) 1461cdf0e10cSrcweir { 1462cdf0e10cSrcweir my $parentdir = $directory; 1463cdf0e10cSrcweir installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir); 1464cdf0e10cSrcweir 1465cdf0e10cSrcweir my $infoline = "INFO: Did not create directory $directory\n"; 1466cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1467cdf0e10cSrcweir $infoline = "Now trying to create parent directory $parentdir\n"; 1468cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1469cdf0e10cSrcweir 1470cdf0e10cSrcweir create_directory_structure($parentdir); # recursive 1471cdf0e10cSrcweir } 1472cdf0e10cSrcweir 1473cdf0e10cSrcweir create_directory($directory); # now it has to succeed 1474cdf0e10cSrcweir} 1475cdf0e10cSrcweir 1476cdf0e10cSrcweir###################################################### 1477cdf0e10cSrcweir# Removing a complete directory with subdirectories 1478cdf0e10cSrcweir###################################################### 1479cdf0e10cSrcweir 1480cdf0e10cSrcweirsub remove_complete_directory 1481cdf0e10cSrcweir{ 1482cdf0e10cSrcweir my ($directory, $start) = @_; 1483cdf0e10cSrcweir 1484cdf0e10cSrcweir my @content = (); 1485cdf0e10cSrcweir my $infoline = ""; 1486cdf0e10cSrcweir 1487cdf0e10cSrcweir $directory =~ s/\Q$installer::globals::separator\E\s*$//; 1488cdf0e10cSrcweir 1489cdf0e10cSrcweir if ( -d $directory ) 1490cdf0e10cSrcweir { 1491cdf0e10cSrcweir if ( $start ) 1492cdf0e10cSrcweir { 1493cdf0e10cSrcweir $infoline = "\n"; 1494cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1495cdf0e10cSrcweir $infoline = "Removing directory $directory\n"; 1496cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1497cdf0e10cSrcweir } 1498cdf0e10cSrcweir 1499cdf0e10cSrcweir opendir(DIR, $directory); 1500cdf0e10cSrcweir @content = readdir(DIR); 1501cdf0e10cSrcweir closedir(DIR); 1502cdf0e10cSrcweir 1503cdf0e10cSrcweir my $oneitem; 1504cdf0e10cSrcweir 1505cdf0e10cSrcweir foreach $oneitem (@content) 1506cdf0e10cSrcweir { 1507cdf0e10cSrcweir if ((!($oneitem eq ".")) && (!($oneitem eq ".."))) 1508cdf0e10cSrcweir { 1509cdf0e10cSrcweir my $item = $directory . $installer::globals::separator . $oneitem; 1510cdf0e10cSrcweir 1511cdf0e10cSrcweir if ( -f $item || -l $item ) # deleting files or links 1512cdf0e10cSrcweir { 1513cdf0e10cSrcweir unlink($item); 1514cdf0e10cSrcweir } 1515cdf0e10cSrcweir 1516cdf0e10cSrcweir if ( -d $item ) # recursive 1517cdf0e10cSrcweir { 1518cdf0e10cSrcweir remove_complete_directory($item, 0); 1519cdf0e10cSrcweir } 1520cdf0e10cSrcweir } 1521cdf0e10cSrcweir } 1522cdf0e10cSrcweir 1523cdf0e10cSrcweir # try to remove empty directory 1524cdf0e10cSrcweir 1525cdf0e10cSrcweir my $returnvalue = rmdir $directory; 1526cdf0e10cSrcweir 1527cdf0e10cSrcweir if ( ! $returnvalue ) 1528cdf0e10cSrcweir { 1529cdf0e10cSrcweir $infoline = "Warning: Problem with removing empty dir $directory\n"; 1530cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1531cdf0e10cSrcweir } 1532cdf0e10cSrcweir 1533cdf0e10cSrcweir # try a little bit harder (sometimes there is a performance problem) 1534cdf0e10cSrcweir if ( -d $directory ) 1535cdf0e10cSrcweir { 1536cdf0e10cSrcweir for ( my $j = 1; $j <= 3; $j++ ) 1537cdf0e10cSrcweir { 1538cdf0e10cSrcweir if ( -d $directory ) 1539cdf0e10cSrcweir { 1540cdf0e10cSrcweir $infoline = "\n"; 1541cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1542cdf0e10cSrcweir $infoline = "Warning (Try $j): Problems with removing directory $directory\n"; 1543cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1544cdf0e10cSrcweir 1545cdf0e10cSrcweir $returnvalue = rmdir $directory; 1546cdf0e10cSrcweir 1547cdf0e10cSrcweir if ( $returnvalue ) 1548cdf0e10cSrcweir { 1549cdf0e10cSrcweir $infoline = "Successfully removed empty dir $directory\n"; 1550cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1551cdf0e10cSrcweir } else { 1552cdf0e10cSrcweir $infoline = "Warning: rmdir $directory failed.\n"; 1553cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1554cdf0e10cSrcweir } 1555cdf0e10cSrcweir } 1556cdf0e10cSrcweir } 1557cdf0e10cSrcweir } 1558cdf0e10cSrcweir } 1559cdf0e10cSrcweir} 1560cdf0e10cSrcweir 1561cdf0e10cSrcweir###################################################### 1562cdf0e10cSrcweir# Creating a unique directory with number extension 1563cdf0e10cSrcweir###################################################### 1564cdf0e10cSrcweir 1565cdf0e10cSrcweirsub create_unique_directory 1566cdf0e10cSrcweir{ 1567cdf0e10cSrcweir my ($directory) = @_; 1568cdf0e10cSrcweir 1569cdf0e10cSrcweir $directory =~ s/\Q$installer::globals::separator\E\s*$//; 1570cdf0e10cSrcweir $directory = $directory . "_INCREASINGNUMBER"; 1571cdf0e10cSrcweir 1572cdf0e10cSrcweir my $counter = 1; 1573cdf0e10cSrcweir my $created = 0; 1574cdf0e10cSrcweir my $localdirectory = ""; 1575cdf0e10cSrcweir 1576cdf0e10cSrcweir do 1577cdf0e10cSrcweir { 1578cdf0e10cSrcweir $localdirectory = $directory; 1579cdf0e10cSrcweir $localdirectory =~ s/INCREASINGNUMBER/$counter/; 1580cdf0e10cSrcweir $counter++; 1581cdf0e10cSrcweir 1582cdf0e10cSrcweir if ( ! -d $localdirectory ) 1583cdf0e10cSrcweir { 1584cdf0e10cSrcweir create_directory($localdirectory); 1585cdf0e10cSrcweir $created = 1; 1586cdf0e10cSrcweir } 1587cdf0e10cSrcweir } 1588cdf0e10cSrcweir while ( ! $created ); 1589cdf0e10cSrcweir 1590cdf0e10cSrcweir return $localdirectory; 1591cdf0e10cSrcweir} 1592cdf0e10cSrcweir 1593cdf0e10cSrcweir###################################################### 1594cdf0e10cSrcweir# Creating a unique directory with pid extension 1595cdf0e10cSrcweir###################################################### 1596cdf0e10cSrcweir 1597cdf0e10cSrcweirsub create_pid_directory 1598cdf0e10cSrcweir{ 1599cdf0e10cSrcweir my ($directory) = @_; 1600cdf0e10cSrcweir 1601cdf0e10cSrcweir $directory =~ s/\Q$installer::globals::separator\E\s*$//; 1602cdf0e10cSrcweir my $pid = $$; # process id 1603cdf0e10cSrcweir my $time = time(); # time 1604cdf0e10cSrcweir 1605cdf0e10cSrcweir $directory = $directory . "_" . $pid . $time; 1606cdf0e10cSrcweir 1607cdf0e10cSrcweir if ( ! -d $directory ) { create_directory($directory); } 1608cdf0e10cSrcweir else { installer::exiter::exit_program("ERROR: Directory $directory already exists!", "create_pid_directory"); } 1609cdf0e10cSrcweir 1610cdf0e10cSrcweir return $directory; 1611cdf0e10cSrcweir} 1612cdf0e10cSrcweir 1613cdf0e10cSrcweir############################################################## 1614cdf0e10cSrcweir# Reading all files from a directory and its subdirectories 1615cdf0e10cSrcweir############################################################## 1616cdf0e10cSrcweir 1617cdf0e10cSrcweirsub read_complete_directory 1618cdf0e10cSrcweir{ 1619cdf0e10cSrcweir my ($directory, $pathstring, $filecollector) = @_; 1620cdf0e10cSrcweir 1621cdf0e10cSrcweir my @content = (); 1622cdf0e10cSrcweir opendir(DIR, $directory); 1623cdf0e10cSrcweir @content = readdir(DIR); 1624cdf0e10cSrcweir closedir(DIR); 1625cdf0e10cSrcweir 1626cdf0e10cSrcweir my $onefile; 1627cdf0e10cSrcweir 1628cdf0e10cSrcweir foreach $onefile (@content) 1629cdf0e10cSrcweir { 1630cdf0e10cSrcweir if ((!($onefile eq ".")) && (!($onefile eq ".."))) 1631cdf0e10cSrcweir { 1632cdf0e10cSrcweir my $completefilename = $directory . $installer::globals::separator . $onefile; 1633cdf0e10cSrcweir my $sep = ""; 1634cdf0e10cSrcweir if ( $pathstring ne "" ) { $sep = $installer::globals::separator; } 1635cdf0e10cSrcweir 1636cdf0e10cSrcweir if ( ! -d $completefilename ) # only files, no directories 1637cdf0e10cSrcweir { 1638cdf0e10cSrcweir my $content = $pathstring . $sep . $onefile; 1639cdf0e10cSrcweir push(@{$filecollector}, $content); 1640cdf0e10cSrcweir } 1641cdf0e10cSrcweir else # recursive for directories 1642cdf0e10cSrcweir { 1643cdf0e10cSrcweir my $newpathstring = $pathstring . $sep . $onefile; 1644cdf0e10cSrcweir read_complete_directory($completefilename, $newpathstring, $filecollector); 1645cdf0e10cSrcweir } 1646cdf0e10cSrcweir } 1647cdf0e10cSrcweir } 1648cdf0e10cSrcweir} 1649cdf0e10cSrcweir 1650cdf0e10cSrcweir############################################################## 1651cdf0e10cSrcweir# Reading all files from a directory and its subdirectories 1652cdf0e10cSrcweir# Version 2 1653cdf0e10cSrcweir############################################################## 1654cdf0e10cSrcweir 1655cdf0e10cSrcweirsub read_full_directory { 1656cdf0e10cSrcweir my ( $currentdir, $pathstring, $collector ) = @_; 1657cdf0e10cSrcweir my $item; 1658cdf0e10cSrcweir my $fullname; 1659cdf0e10cSrcweir local *DH; 1660cdf0e10cSrcweir 1661cdf0e10cSrcweir unless (opendir(DH, $currentdir)) 1662cdf0e10cSrcweir { 1663cdf0e10cSrcweir return; 1664cdf0e10cSrcweir } 1665cdf0e10cSrcweir while (defined ($item = readdir(DH))) 1666cdf0e10cSrcweir { 1667cdf0e10cSrcweir next if($item eq "." or $item eq ".."); 1668cdf0e10cSrcweir $fullname = $currentdir . $installer::globals::separator . $item; 1669cdf0e10cSrcweir my $sep = ""; 1670cdf0e10cSrcweir if ( $pathstring ne "" ) { $sep = $installer::globals::separator; } 1671cdf0e10cSrcweir 1672cdf0e10cSrcweir if( -d $fullname) 1673cdf0e10cSrcweir { 1674cdf0e10cSrcweir my $newpathstring = $pathstring . $sep . $item; 1675cdf0e10cSrcweir read_full_directory($fullname, $newpathstring, $collector) if(-d $fullname); 1676cdf0e10cSrcweir } 1677cdf0e10cSrcweir else 1678cdf0e10cSrcweir { 1679cdf0e10cSrcweir my $content = $pathstring . $sep . $item; 1680cdf0e10cSrcweir push(@{$collector}, $content); 1681cdf0e10cSrcweir } 1682cdf0e10cSrcweir } 1683cdf0e10cSrcweir closedir(DH); 1684cdf0e10cSrcweir return 1685cdf0e10cSrcweir} 1686cdf0e10cSrcweir 1687cdf0e10cSrcweir############################################################## 1688cdf0e10cSrcweir# Removing all empty directories below a specified directory 1689cdf0e10cSrcweir############################################################## 1690cdf0e10cSrcweir 1691cdf0e10cSrcweirsub remove_empty_dirs_in_folder 1692cdf0e10cSrcweir{ 1693cdf0e10cSrcweir my ( $dir ) = @_; 1694cdf0e10cSrcweir 1695cdf0e10cSrcweir my @content = (); 1696cdf0e10cSrcweir my $infoline = ""; 1697cdf0e10cSrcweir 1698cdf0e10cSrcweir $dir =~ s/\Q$installer::globals::separator\E\s*$//; 1699cdf0e10cSrcweir 1700cdf0e10cSrcweir if ( -d $dir ) 1701cdf0e10cSrcweir { 1702cdf0e10cSrcweir opendir(DIR, $dir); 1703cdf0e10cSrcweir @content = readdir(DIR); 1704cdf0e10cSrcweir closedir(DIR); 1705cdf0e10cSrcweir 1706cdf0e10cSrcweir my $oneitem; 1707cdf0e10cSrcweir 1708cdf0e10cSrcweir foreach $oneitem (@content) 1709cdf0e10cSrcweir { 1710cdf0e10cSrcweir if ((!($oneitem eq ".")) && (!($oneitem eq ".."))) 1711cdf0e10cSrcweir { 1712cdf0e10cSrcweir my $item = $dir . $installer::globals::separator . $oneitem; 1713cdf0e10cSrcweir 1714cdf0e10cSrcweir if ( -d $item ) # recursive 1715cdf0e10cSrcweir { 1716cdf0e10cSrcweir remove_empty_dirs_in_folder($item); 1717cdf0e10cSrcweir } 1718cdf0e10cSrcweir } 1719cdf0e10cSrcweir } 1720cdf0e10cSrcweir 1721cdf0e10cSrcweir # try to remove empty directory 1722cdf0e10cSrcweir my $returnvalue = rmdir $dir; 1723cdf0e10cSrcweir 1724cdf0e10cSrcweir if ( $returnvalue ) 1725cdf0e10cSrcweir { 1726cdf0e10cSrcweir $infoline = "Successfully removed empty dir $dir\n"; 1727cdf0e10cSrcweir push(@installer::globals::logfileinfo, $infoline); 1728cdf0e10cSrcweir } 1729cdf0e10cSrcweir 1730cdf0e10cSrcweir } 1731cdf0e10cSrcweir 1732cdf0e10cSrcweir} 1733cdf0e10cSrcweir 1734cdf0e10cSrcweir1; 1735